3 ! Writing to a non-empty readonly file caused a segfault.
4 ! We were still trying to write the EOR after an error ocurred
6 open (unit
=10, file
='PR19451.dat')
7 write (10,*) "Hello World"
9 open (unit
=10, file
='PR19451.dat', action
="read")
10 write (10,*,err
=20) "Hello World"