URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [unopened_unit_1.f90] - Rev 308
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log