2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / namelist_5.f90
blob4fcf9ae66882af9ab42a5d6bda599cb799c132a1
1 ! { dg-do compile }
2 ! { dg-options "-std=f95" }
4 ! Tests the fix for PR25054 in which namelist objects with non-constant
5 ! shape were allowed.
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 SUBROUTINE S1(I)
10 integer :: a,b(I)
11 NAMELIST /NLIST/ a,b ! { dg-error "with nonconstant shape" }
12 a=1 ; b=2
13 write(6,NML=NLIST)
14 END SUBROUTINE S1
15 END