mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
22 lines
520 B
Fortran
22 lines
520 B
Fortran
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) STOP 1
|
|
enddo
|
|
190 continue
|
|
end
|