URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr19657.f] - Diff between revs 154 and 816

Rev 154	Rev 816
`c { dg-do run }`	`c { dg-do run }`
`c pr 19657`	`c pr 19657`
`c test namelist not skipped if ending with logical.`	`c test namelist not skipped if ending with logical.`
`c Based on example provided by fuyuki@ccsr.u-tokyo.ac.jp`	`c Based on example provided by fuyuki@ccsr.u-tokyo.ac.jp`

`program pr19657`	`program pr19657`
`implicit none`	`implicit none`
`logical l`	`logical l`
`integer i, ctr`	`integer i, ctr`
`namelist /nm/ i, l`	`namelist /nm/ i, l`
`open (10, status = "scratch")`	`open (10, status = "scratch")`
`write (10,*) "&nm i=1,l=t &end"`	`write (10,*) "&nm i=1,l=t &end"`
`write (10,*) "&nm i=2 &end"`	`write (10,*) "&nm i=2 &end"`
`write (10,*) "&nm i=3 &end"`	`write (10,*) "&nm i=3 &end"`
`rewind (10)`	`rewind (10)`
`do ctr = 1,3`	`do ctr = 1,3`
`read (10,nm,end=190)`	`read (10,nm,end=190)`
`if (i.ne.ctr) call abort ()`	`if (i.ne.ctr) call abort ()`
`enddo`	`enddo`
`190 continue`	`190 continue`
`end`	`end`