1! { dg-do run }
2! PR27138 Failure to advance line on bad list directed read.
3! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4      program test
5      implicit none
6      integer :: ntype = 55
7      real    :: rtype
8      complex :: ctype
9      logical :: ltype
10      OPEN (10, status="scratch")
11      write(10,*) "aaaa aaaa aaaa aaaa"
12      write(10,*) "bbbb bbbb bbbb bbbb"
13      write(10,*) "cccc cccc cccc cccc"
14      write(10,*) "dddd dddd dddd dddd"
15      write(10,*) "  "
16      write(10,*) "1234 5678 9012 3456"
17      rewind(10)
18      READ (10,*,END=77,ERR=77) ntype
19      goto 99
20   77 READ (10,*,END=78,ERR=78) rtype
21      goto 99
22   78 READ (10,*,END=79,ERR=79) ctype
23      goto 99
24   79 READ (10,*,END=80,ERR=80) ltype
25      goto 99
26   80 READ (10,*,END=99,ERR=99) ntype
27      if (ntype.ne.1234) goto 99
28      close(10)
29      stop
30   99 close(10)
31      call abort()
32      end program test
33