Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
unopened_unit_1.f90
blob: d87406ab4db6aa23bda1ceb3b3e949a4ca3aae08 [
file
] [
log
] [
blame
]
!
PR
14565
program unopened_unit_1
Integer
I
,
J
Do
I
=
1
,
10
Write
(
99
,*)
I
End
Do
Rewind
(
99
)
Do
I
=
1
,
10
Read
(
99
,*)
J
If
(
J
.
ne
.
I
)
Call
abort
End
Do
End
program