| c { dg-do run } |
| c pr 12884 |
| c test namelist with input file containg / before namelist. Also checks |
| c non-standard use of $ instead of & |
| c Based on example provided by jean-pierre.flament@univ-lille1.fr |
| |
| program pr12884 |
| integer ispher,nosym,runflg,noprop |
| namelist /cntrl/ ispher,nosym,runflg,noprop |
| ispher = 0 |
| nosym = 0 |
| runflg = 0 |
| noprop = 0 |
| open (10, status = "scratch") |
| write (10, '(A)') " $FILE" |
| write (10, '(A)') " pseu dir/file" |
| write (10, '(A)') " $END" |
| write (10, '(A)') " $cntrl ispher=1,nosym=2," |
| write (10, '(A)') " runflg=3,noprop=4,$END" |
| write (10, '(A)')"/" |
| rewind (10) |
| read (10, cntrl) |
| if ((ispher.ne.1).or.(nosym.ne.2).or.(runflg.ne.3).or. |
| & (noprop.ne.4)) STOP 1 |
| end |
