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