gcc/testsuite/algol68/execute/modab-2.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #
 BEGIN INT n := 10;
       (((n MODAB 1))) := 5;
       ASSERT (n = 5)
 END
	# { dg-options "-fstropping=upper" } #
	BEGIN INT n := 10;
	(((n MODAB 1))) := 5;
	ASSERT (n = 5)
	END