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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`!`	`!`
`! PR libfortran/20660 and other bugs (not filed in bugzilla) relating`	`! PR libfortran/20660 and other bugs (not filed in bugzilla) relating`
`! to negative units`	`! to negative units`
`!`	`!`
`! Bugs submitted by Walt Brainerd`	`! Bugs submitted by Walt Brainerd`
`integer i`	`integer i`
`logical l`	`logical l`

`i = 0`	`i = 0`
`! gfortran created a 'fort.-1' file and wrote "Hello" in it`	`! gfortran created a 'fort.-1' file and wrote "Hello" in it`
`write (unit=-1, fmt=*, iostat=i) "Hello"`	`write (unit=-1, fmt=*, iostat=i) "Hello"`
`if (i <= 0) call abort`	`if (i <= 0) call abort`

`i = 0`	`i = 0`
`open (unit=-11, file="xxx", iostat=i)`	`open (unit=-11, file="xxx", iostat=i)`
`if (i <= 0) call abort`	`if (i <= 0) call abort`

`inquire (unit=-42, exist=l)`	`inquire (unit=-42, exist=l)`
`if (l) call abort`	`if (l) call abort`

`end`	`end`