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

# { dg-options "-fstropping=upper" }  #
BEGIN PROC(INT)INT foo = baz;
      PROC bar = (INT i) INT: i + 1;
      PROC baz = (INT i) INT: i - 1;
      ASSERT (foo (10) = 9)
END