Sign in
gnu
/
gcc
/
cfdff3eeb902958d3eefe60d5712d64e2367843f
/
.
/
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