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/] [flush_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR 22390 Implement flush statement`	`! PR 22390 Implement flush statement`
`program flush_1`	`program flush_1`

`character(len=256) msg`	`character(len=256) msg`
`integer ios`	`integer ios`

`open (unit=10, access='SEQUENTIAL', status='SCRATCH')`	`open (unit=10, access='SEQUENTIAL', status='SCRATCH')`

`write (10, *) 42`	`write (10, *) 42`
`flush 10`	`flush 10`

`write (10, *) 42`	`write (10, *) 42`
`flush(10)`	`flush(10)`

`write (10, *) 42`	`write (10, *) 42`
`flush(unit=10, iostat=ios)`	`flush(unit=10, iostat=ios)`
`if (ios /= 0) call abort`	`if (ios /= 0) call abort`

`write (10, *) 42`	`write (10, *) 42`
`flush (unit=10, err=20)`	`flush (unit=10, err=20)`
`goto 30`	`goto 30`
`20 call abort`	`20 call abort`
`30 continue`	`30 continue`

`call flush(10)`	`call flush(10)`

`end program flush_1`	`end program flush_1`