gcc/testsuite/gfortran.dg/class_6.f03

   1 ! { dg-do run }
   2 !
   3 ! PR 41629: [OOP] gimplification error on valid code
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7   type t1
   8     integer :: comp
   9   end type
  10
  11   type(t1), target :: a
  12
  13   class(t1) :: x
  14   pointer :: x       ! This is valid
  15
  16   a%comp = 3
  17   x => a
  18   print *,x%comp
  19   if (x%comp/=3) call abort()
  20
  21 end