2 ! PR 18982: verifies that opening an existing file with
3 ! status="new" is an error
6 open(nout
, file
="foo_open_new.dat", status
="replace") ! make sure foo_open_new.dat exists
8 open(nout
, file
="foo_open_new.dat", status
="new",err
=100)
9 call abort
! This should never happen
10 100 call unlink ("foo_open_new.dat")