12 lines
380 B
Fortran
12 lines
380 B
Fortran
! { dg-do run }
|
|
! PR 18982: verifies that opening an existing file with
|
|
! status="new" is an error
|
|
program main
|
|
nout = 10
|
|
open(nout, file="foo.dat", status="replace") ! make sure foo.dat exists
|
|
close(nout)
|
|
open(nout, file="foo.dat", status="new",err=100)
|
|
call abort ! This should never happen
|
|
100 call unlink ("foo.dat")
|
|
end program main
|