33 lines
905 B
Fortran
33 lines
905 B
Fortran
! { dg-do run }
|
|
! PR27138 Failure to advance line on bad list directed read.
|
|
! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
program test
|
|
implicit none
|
|
integer :: ntype = 55
|
|
real :: rtype
|
|
complex :: ctype
|
|
logical :: ltype
|
|
OPEN (10, status="scratch")
|
|
write(10,*) "aaaa aaaa aaaa aaaa"
|
|
write(10,*) "bbbb bbbb bbbb bbbb"
|
|
write(10,*) "cccc cccc cccc cccc"
|
|
write(10,*) "dddd dddd dddd dddd"
|
|
write(10,*) " "
|
|
write(10,*) "1234 5678 9012 3456"
|
|
rewind(10)
|
|
READ (10,*,END=77,ERR=77) ntype
|
|
goto 99
|
|
77 READ (10,*,END=78,ERR=78) rtype
|
|
goto 99
|
|
78 READ (10,*,END=79,ERR=79) ctype
|
|
goto 99
|
|
79 READ (10,*,END=80,ERR=80) ltype
|
|
goto 99
|
|
80 READ (10,*,END=99,ERR=99) ntype
|
|
if (ntype.ne.1234) goto 99
|
|
close(10)
|
|
stop
|
|
99 close(10)
|
|
call abort()
|
|
end program test
|