Subversion Repositories openrisc

! { dg-do run { target fd_truncate } }

! PR19451

! Writing to a non-empty readonly file caused a segfault.

! We were still trying to write the EOR after an error ocurred

program prog

  open (unit=10, file='PR19451.dat')

  write (10,*) "Hello World"

  close (10)

  open (unit=10, file='PR19451.dat', action="read")

  write (10,*,err=20) "Hello World"

  call abort()

  20 close (10, status='delete')

end program