gcc/testsuite/algol68/execute/mcgt/mcgt-2.8b.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #
 # Coercions and assignations.  #
 BEGIN REAL y, INT n, m := 1;
       y := n % m
 END
	# { dg-options "-fstropping=upper" } #
	# Coercions and assignations. #
	BEGIN REAL y, INT n, m := 1;
	y := n % m
	END