gcc/testsuite/algol68/execute/undefined-3.a68

# { dg-options "-fstropping=upper" }  #
BEGIN ASSERT (sum = 1);
      PROC sum = INT: i + 1;
      INT i = 10;
      ASSERT (sum = 11)
END