Sign in
gnu
/
gcc
/
19220ca6aa79921cc431e41f25986e16410c7a6a
/
.
/
gcc
/
testsuite
/
g77.dg
/
12632.f
blob: 6801229eace0cf1145da6d23ef0fbc6a1802c9ae [
file
] [
log
] [
blame
]
C
{
dg
-
do
compile
}
C
{
dg
-
options
"-fbounds-check"
}
INTEGER I
(
1
)
I
(
2
)
=
0
!
{
dg
-
error
"out of defined range"
"out of defined range"
}
END
