gcc/testsuite/gfortran.dg/namelist_68.f90

   1 ! { dg-do run }
   2 ! PR47154 END= does not work in namelist read
   3       program foo
   4       real :: a
   5       namelist /b/a
   6       open(10,status="scratch")
   7       read (10,nml=b,end=100)
   8  100  continue
   9       end