Sign in
gnu
/
gcc
/
e31ae982c446804d1b259554203401392b078364
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
repeat_5.f90
blob: 48acea53f1c724ff58351598bafb79582232b30b [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR32472
--
character literals were
not
implemented
in
REPEAT
.
!
!
Contributed
by
Tobias
Burnus
<
burnus@gcc
.
gnu
.
org
>
!
CHARACTER
(
len
=
1025
)
::
string2
=
repeat
(
'?'
,
1025
)
print
*,
string2
end