gcc/testsuite/gfortran.dg/repeat_6.f90

   1 ! { dg-do run }
   2 !
   3 ! PR34559 -- ICE on empty string literals
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6 !
   7
   8   character(len=200) :: string = "a" // repeat ("", 3)       &
   9                                      // repeat ("xxx", 0)    &
  10                                      // repeat ("string", 2)
  11
  12   if (string /= "astringstring") CALL abort()
  13 end