c { dg-do run } | |
c pr 19657 | |
c test namelist not skipped if ending with logical. | |
c Based on example provided by fuyuki@ccsr.u-tokyo.ac.jp | |
program pr19657 | |
implicit none | |
logical l | |
integer i, ctr | |
namelist /nm/ i, l | |
open (10, status = "scratch") | |
write (10,*) "&nm i=1,l=t &end" | |
write (10,*) "&nm i=2 &end" | |
write (10,*) "&nm i=3 &end" | |
rewind (10) | |
do ctr = 1,3 | |
read (10,nm,end=190) | |
if (i.ne.ctr) call abort () | |
enddo | |
190 continue | |
end |