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