URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [f2003_io_2.f03] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-std=f2003" }`	`! { dg-options "-std=f2003" }`
`! Test case prepared by Jerry DeLisle`	`! Test case prepared by Jerry DeLisle`

`integer :: istat, idvar`	`integer :: istat, idvar`
`character(25) :: msg`	`character(25) :: msg`
`real, dimension(10) :: a, b`	`real, dimension(10) :: a, b`

`a = 43.21`	`a = 43.21`
`open(10, file='mydata', asynchronous="yes")`	`open(10, file='mydata', asynchronous="yes")`
`write(10,'(10f8.3)', asynchronous="yes", decimal="comma") a`	`write(10,'(10f8.3)', asynchronous="yes", decimal="comma") a`
`rewind(10)`	`rewind(10)`
`read(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=idvar) b`	`read(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=idvar) b`
`istat = 123456`	`istat = 123456`
`wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=idvar)`	`wait(unit=10, err=25, iostat=istat, iomsg=msg, end=35, id=idvar)`

`print *, istat`	`print *, istat`

`25 continue`	`25 continue`

`35 continue`	`35 continue`
`end`	`end`