Sign in
gnu
/
gcc
/
1126a05deadda1ef363e0f78fd802c8ee0ea5b56
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
io1.f
blob: c5242446a4987f46b1d188540b3639880a437c0e [
file
] [
log
] [
blame
]
*
Fixed
by
1998
-
09
-
28
libI77
/
open
.
c change
.
open
(
90
,
status
=
'scratch'
)
write
(
90
,
'(1X, I1 / 1X, I1)'
)
1
,
2
rewind
90
write
(
90
,
'(1X, I1)'
)
1
rewind
90
!
implicit
ENDFILE expected
read
(
90
,
*)
i
read
(
90
,
*,
end
=
10
)
j
call abort
()
10
end