1c { dg-do run }
2c pr 12884
3c test namelist with input file containg / before namelist. Also checks
4c non-standard use of $ instead of &
5c 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
26