OpenCores

URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [unopened_unit_1.f90] - Diff between revs 816 and 826

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 816	Rev 826
`! PR 14565`	`! PR 14565`
`program unopened_unit_1`	`program unopened_unit_1`
`Integer I,J`	`Integer I,J`
`Do I = 1,10`	`Do I = 1,10`
`Write(99,*)I`	`Write(99,*)I`
`End Do`	`End Do`
`Rewind(99)`	`Rewind(99)`
`Do I = 1,10`	`Do I = 1,10`
`Read(99,*)J`	`Read(99,*)J`
`If (J.ne.I) Call abort`	`If (J.ne.I) Call abort`
`End Do`	`End Do`
`Close(99, Status='Delete')`	`Close(99, Status='Delete')`
`End program`	`End program`

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.