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] - Blame information for rev 307

Go to most recent revision | Details | Compare with Previous | 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
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`! PR 14565`
2			`program unopened_unit_1`
3			`Integer I,J`
4			`Do I = 1,10`
5			`Write(99,*)I`
6			`End Do`
7			`Rewind(99)`
8			`Do I = 1,10`
9			`Read(99,*)J`
10			`If (J.ne.I) Call abort`
11			`End Do`
12			`Close(99, Status='Delete')`
13			`End program`
14

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [unopened_unit_1.f90] - Blame information for rev 307