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