2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / repeat_6.f90
blob308941f9a2dbfa66060305867025416bc4ae7868
1 ! { dg-do run }
3 ! PR34559 -- ICE on empty string literals
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
8 character(len=200) :: string = "a" // repeat ("", 3) &
9 // repeat ("xxx", 0) &
10 // repeat ("string", 2)
12 if (string /= "astringstring") CALL abort()
13 end