URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr12884.f] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
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)) call abort () end
Go to most recent revision | Compare with Previous | Blame | View Log