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