gcc/testsuite/gfortran.dg/select_type_19.f03

   1 ! { dg-do run }
   2 !
   3 ! PR 46581: [4.6 Regression] [OOP] segfault in SELECT TYPE with associate-name
   4 !
   5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
   6
   7
   8   implicit none
   9
  10   type :: t1
  11     integer, allocatable :: ja(:)
  12   end type
  13
  14   class(t1), allocatable  :: a
  15
  16   allocate(a)
  17
  18   select type (aa=>a)
  19   type is (t1)
  20     if (allocated(aa%ja)) STOP 1
  21   end select
  22
  23 end