! { dg-do run } | |
! | |
! PR34559 -- ICE on empty string literals | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
! | |
character(len=200) :: string = "a" // repeat ("", 3) & | |
// repeat ("xxx", 0) & | |
// repeat ("string", 2) | |
if (string /= "astringstring") STOP 1 | |
end |