gcc/testsuite/algol68/execute/gen-loc-1.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #
 BEGIN INT jorl;
       REF INT var = LOC INT;
       var := jorl := 10;
       ASSERT (var = 10)
 END
	# { dg-options "-fstropping=upper" } #
	BEGIN INT jorl;
	REF INT var = LOC INT;
	var := jorl := 10;
	ASSERT (var = 10)
	END