Subversion Repositories openrisc

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