gcc/testsuite/algol68/execute/gen-loc-3.a68

# { dg-options "-fstropping=upper" }  #
BEGIN INT jorl;
      INT var := LOC INT := 15; # The generated name goes away #
      ASSERT (var = 15)
END