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

# { dg-options "-fstropping=upper" }  #
# Call a non-variable procedure before declaration.  #
BEGIN ASSERT (foo = 100);
      PROC foo = INT: 100;
      SKIP
END