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