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/] [open_readonly_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run { target fd_truncate } }`	`! { dg-do run { target fd_truncate } }`
`! PR19451`	`! PR19451`
`! Writing to a non-empty readonly file caused a segfault.`	`! Writing to a non-empty readonly file caused a segfault.`
`! We were still trying to write the EOR after an error ocurred`	`! We were still trying to write the EOR after an error ocurred`
`program prog`	`program prog`
`open (unit=10, file='PR19451.dat')`	`open (unit=10, file='PR19451.dat')`
`write (10,*) "Hello World"`	`write (10,*) "Hello World"`
`close (10)`	`close (10)`
`open (unit=10, file='PR19451.dat', action="read")`	`open (unit=10, file='PR19451.dat', action="read")`
`write (10,*,err=20) "Hello World"`	`write (10,*,err=20) "Hello World"`
`call abort()`	`call abort()`
`20 close (10, status='delete')`	`20 close (10, status='delete')`
`end program`	`end program`