1! { dg-do run } 2! PR 18982: verifies that opening an existing file with 3! status="new" is an error 4program main 5 nout = 10 6 open(nout, file="foo.dat", status="replace") ! make sure foo.dat exists 7 close(nout) 8 open(nout, file="foo.dat", status="new",err=100) 9 call abort ! This should never happen 10100 call unlink ("foo.dat") 11end program main 12