Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr71799.f90
blob: 32be5f766d3a2efe211d7736a9576a36b532fa44 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine test2
(
s
)
integer
(
1
)
::
i
integer
(
8
)
::
s
do
i
=
10
,
HUGE
(
i
)
-
10
,
222
!
{
dg
-
error
"overflow converting"
}
s
=
s
+
1
end
do
end
subroutine test2