gcc/testsuite/algol68/execute/timesab-string-1.a68

# { dg-options "-fstropping=upper" }  #
BEGIN STRING foo := "foo";
      foo TIMESAB 1;
      ASSERT (foo = "foo");
      foo *:= 3;
      ASSERT (foo = "foofoofoo")
END