gcc/testsuite/gfortran.dg/repeat_7.f90

   1 ! { dg-do compile }
   2 ! PR 66310
   3 ! Make sure there is a limit to how large arrays we try to handle at
   4 ! compile time.
   5 program p
   6   character, parameter :: z = 'z'
   7   print *, repeat(z, huge(1_4)) ! { dg-warning "Evaluation of string" }
   8 end program p