gcc/testsuite/gfortran.dg/class_45b.f03

   1 ! { dg-do link }
   2 ! { dg-additional-sources class_45a.f03 }
   3 !
   4 ! PR 50227: [4.7 Regression] [OOP] ICE-on-valid with allocatable class variable
   5 !
   6 ! Contributed by Andrew Benson <abenson@caltech.edu>
   7
   8 program Test
   9   use G_Nodes
  10   class(t0), allocatable :: c
  11   allocate(t1 :: c)
  12 end program Test
  13
  14 ! { dg-final { cleanup-modules "G_Nodes" } }