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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [unformatted_recl_1.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! PR31099 Runtime error on legal code using RECL`	`! PR31099 Runtime error on legal code using RECL`
`program test`	`program test`
`integer :: a, b`	`integer :: a, b`
`a=1`	`a=1`
`b=2`	`b=2`
`open(10, status="scratch", form="unformatted", recl=8)`	`open(10, status="scratch", form="unformatted", recl=8)`
`write(10) a,b`	`write(10) a,b`
`write(10) a,b`	`write(10) a,b`
`write(10) a,b`	`write(10) a,b`
`write(10) b, a`	`write(10) b, a`
`rewind(10)`	`rewind(10)`
`write(10) a,b`	`write(10) a,b`
`write(10) a,b`	`write(10) a,b`
`write(10) a,b`	`write(10) a,b`
`write(10) b, a`	`write(10) b, a`
`b=0`	`b=0`
`a=0`	`a=0`
`rewind(10)`	`rewind(10)`
`read(10) a, b`	`read(10) a, b`
`read(10) a, b`	`read(10) a, b`
`read(10) a, b`	`read(10) a, b`
`read(10) a, b`	`read(10) a, b`
`if ((a.ne.2).and.( b.ne.1)) call abort()`	`if ((a.ne.2).and.( b.ne.1)) call abort()`
`end program test`	`end program test`