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
|