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
8 integer ispher
,nosym
,runflg
,noprop
9 namelist
/cntrl
/ ispher
,nosym
,runflg
,noprop
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"
23 if ((ispher
.ne
.1).or
.(nosym
.ne
.2).or
.(runflg
.ne
.3).or
.
24 & (noprop
.ne
.4)) STOP 1