1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! { dg-do run { target fd_truncate } }
! 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)
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, status="delete")
stop
99 close(10, status="delete")
call abort()
end program test
|
