2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / class_45b.f03
blob5c047e2c5987678faa222a59fb26ae3e2c9526f9
1 ! { dg-do link }
2 ! { dg-additional-sources class_45a.f03 }
4 ! PR 50227: [4.7 Regression] [OOP] ICE-on-valid with allocatable class variable
6 ! Contributed by Andrew Benson <abenson@caltech.edu>
8 program Test
9   use G_Nodes
10   class(t0), allocatable :: c
11   allocate(t1 :: c)
12 end program Test