1c { dg-do run }
2c pr 19657
3c test namelist not skipped if ending with logical.
4c Based on example provided by fuyuki@ccsr.u-tokyo.ac.jp
5
6      program pr19657
7      implicit none
8      logical   l
9      integer   i, ctr
10      namelist /nm/ i, l
11      open (10, status = "scratch")
12      write (10,*) "&nm i=1,l=t &end"
13      write (10,*) "&nm i=2 &end"
14      write (10,*) "&nm i=3 &end"
15      rewind (10)
16      do ctr = 1,3
17        read (10,nm,end=190)
18        if (i.ne.ctr) call abort ()
19      enddo
20 190  continue
21      end
22