1!{ dg-do run } 2! Tests namelist on logical variables 3! provided by Paul Thomas - pault@gcc.gnu.org 4 5program namelist_17 6 logical, dimension(2) :: l 7 namelist /mynml/ l 8 l = (/.true., .false./) 9 10 open (10, status = "scratch") 11 write (10, '(A)') "&mynml l = F T /" 12 rewind (10) 13 14 read (10, mynml, iostat = ier) 15 if (ier .ne. 0) call abort () 16 close (10) 17 18 open (10, status = "scratch") 19 write (10, mynml, iostat = ier) 20 if (ier .ne. 0) call abort () 21 rewind (10) 22 23 l = (/.true., .false./) 24 read (10, mynml, iostat = ier) 25 if (ier .ne. 0) call abort () 26 close (10) 27 28 if (l(1) .or. (.not.l(2))) call abort () 29 30end program namelist_17 31