URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [unopened_unit_1.f90] - Rev 12
Compare with Previous | Blame | View Log
! 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