gcc/testsuite/algol68/execute/mult-string-4.a68

# { dg-options "-fstropping=upper" }  #
BEGIN STRING foo = "abc";
      ASSERT (foo[] * 2 = "abcabc")
END