URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
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
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.