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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR26509 : Writing beyond fixed length direct access records.`	`! PR26509 : Writing beyond fixed length direct access records.`
`! Test case derived from PR.`	`! Test case derived from PR.`
`! Submitted by Jerry Delisle .`	`! Submitted by Jerry Delisle .`
`program testrecl`	`program testrecl`
`implicit none`	`implicit none`
`open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)`	`open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)`
`write(unit=10,rec=1, err=100) 1d0`	`write(unit=10,rec=1, err=100) 1d0`
`call abort()`	`call abort()`
`100 continue`	`100 continue`
`close(unit=10, status='delete')`	`close(unit=10, status='delete')`
`end`	`end`