gcc/testsuite/algol68/execute/proc-29.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #
 # A heap proc variable.  #
 BEGIN HEAP PROC foo := INT: 666;
       ASSERT (foo = 666)
 END
	# { dg-options "-fstropping=upper" } #
	# A heap proc variable. #
	BEGIN HEAP PROC foo := INT: 666;
	ASSERT (foo = 666)
	END