Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
b42cc22ad4b3cc4c4cd697052b8f1dd85df96d0a
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
newunit_3.f90
blob: a0e5a8a75a7a9343fe05c33b722f3874e277e7a9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR48960
On
ERROR newunit should
not
modify user variable
.
program test_newunit
integer
::
st
,
un
=
0
open
(
newunit
=
un
,
file
=
'nonexisting.dat'
,
status
=
'old'
,
iostat
=
st
)
if
(
un
/=
0
)
call abort
end
program test_newunit