gcc/testsuite/gfortran.dg/namelist_5.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR25054 in which namelist objects with non-constant
   3 ! shape were allowed.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7 SUBROUTINE S1(I)
   8  integer :: a,b(I)
   9  NAMELIST /NLIST/ a,b ! { dg-error "must have constant shape" }
  10  a=1 ; b=2
  11  write(6,NML=NLIST)
  12 END SUBROUTINE S1
  13 END