gcc/testsuite/gfortran.dg/pr12884.f

   1 c { dg-do run }
   2 c pr 12884
   3 c test namelist with input file containg / before namelist. Also checks
   4 c non-standard use of $ instead of &
   5 c Based on example provided by jean-pierre.flament@univ-lille1.fr
   6
   7       program pr12884
   8       integer ispher,nosym,runflg,noprop
   9       namelist /cntrl/ ispher,nosym,runflg,noprop
  10       ispher = 0
  11       nosym = 0
  12       runflg = 0
  13       noprop = 0
  14       open (10, status = "scratch")
  15       write (10, '(A)') " $FILE"
  16       write (10, '(A)') "   pseu  dir/file"
  17       write (10, '(A)') " $END"
  18       write (10, '(A)') " $cntrl ispher=1,nosym=2,"
  19       write (10, '(A)') " runflg=3,noprop=4,$END"
  20       write (10, '(A)')"/"
  21       rewind (10)
  22       read (10, cntrl)
  23       if ((ispher.ne.1).or.(nosym.ne.2).or.(runflg.ne.3).or.
  24      &  (noprop.ne.4)) call abort ()
  25       end