gcc/testsuite/algol68/execute/plus-string-2.a68

# { dg-options "-fstropping=upper" }  #
BEGIN PROC rec parse comment = VOID:
      BEGIN STRING content;
            done;
            100;
      done:
            ASSERT (content + "x" = "x")
      END;

      rec parse comment
END