2 ! PR27138 Failure to advance line on bad list directed read.
3 ! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
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"
16 write(10,*) "1234 5678 9012 3456"
18 READ (10,*,END=77,ERR=77) ntype
20 77 READ (10,*,END=78,ERR=78) rtype
22 78 READ (10,*,END=79,ERR=79) ctype
24 79 READ (10,*,END=80,ERR=80) ltype
26 80 READ (10,*,END=99,ERR=99) ntype
27 if (ntype.ne.1234) goto 99
28 close(10, status="delete")
30 99 close(10, status="delete")