gcc/testsuite/algol68/compile/error-widening-2.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #

 BEGIN INT a := 10;
       LONG INT l := a; # { dg-error "coerced" } #
       l
 END
	# { dg-options "-fstropping=upper" } #

	BEGIN INT a := 10;
	LONG INT l := a; # { dg-error "coerced" } #
	l
	END