Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
negative_unit2.f90
blob: 85da3518c6624df3c1c81b3d1a84ac9295d8c660 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Test
case
submitted
by
Dominique
d
'Humieres
program negative_unit2
integer :: i, j
! i should be <= NEWUNIT_FIRST in libgfortran/io/unit.c
i = -100
write(unit=i,fmt=*, iostat=j) 10
if (j == 0) STOP 1
end program negative_unit2