gcc/testsuite/gfortran.dg/repeat_5.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR32472 -- character literals were not implemented in REPEAT.
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6 !
   7   CHARACTER(len=1025) :: string2 = repeat('?',1025)
   8   print *, string2
   9 end