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

 # { dg-options "-fstropping=upper" }  #
 BEGIN INT x := 10;
       INT res := (REF INT xx := x; xx);
       ASSERT (res = 10)
 END
	# { dg-options "-fstropping=upper" } #
	BEGIN INT x := 10;
	INT res := (REF INT xx := x; xx);
	ASSERT (res = 10)
	END