summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr19657.f
blob: 1fe32ac7497750f7976778fbda3b5430f66451af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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