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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [streamio_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR25828 Stream IO test 2`	`! PR25828 Stream IO test 2`
`! Contributed by Jerry DeLisle .`	`! Contributed by Jerry DeLisle .`
`PROGRAM readUstream`	`PROGRAM readUstream`
`IMPLICIT NONE`	`IMPLICIT NONE`
`CHARACTER*3 :: string`	`CHARACTER*3 :: string`
`INTEGER :: n`	`INTEGER :: n`
`string = "123"`	`string = "123"`
`n = 13579`	`n = 13579`
`OPEN(UNIT=11, FILE="streamio2", ACCESS="STREAM")`	`OPEN(UNIT=11, FILE="streamio2", ACCESS="STREAM")`
`WRITE(11) "first"`	`WRITE(11) "first"`
`WRITE(11) "second"`	`WRITE(11) "second"`
`WRITE(11) 7`	`WRITE(11) 7`
`READ(11, POS=3) string`	`READ(11, POS=3) string`
`READ(11, POS=12) n`	`READ(11, POS=12) n`
`if (string.ne."rst") call abort()`	`if (string.ne."rst") call abort()`
`if (n.ne.7) call abort()`	`if (n.ne.7) call abort()`
`close(unit=11, status="delete")`	`close(unit=11, status="delete")`