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

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