Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
unopened_unit_1.f90
blob: 66895b02af16499e08cb9cc095bf3225fb160e3d [
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
Close
(
99
,
Status
=
'Delete'
)
End
program