Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
repeat_7.f90
blob: 80a25066c43cf2bcf26df3caccde4fc615f81017 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
66310
!
Make
sure there
is
a limit to how large arrays we
try
to handle at
!
compile time
.
program p
character
,
parameter
::
z
=
'z'
print
*,
repeat
(
z
,
huge
(
1_4
))
!
{
dg
-
warning
"Evaluation of string"
}
end
program p