gcc/testsuite/algol68/compile/error-coercion-1.a68 - gcc.git - Git at Google

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

 BEGIN INT a;
       a := "foo" # { dg-error "cannot be coerced" } #
 END
	# { dg-options "-fstropping=upper" } #

	BEGIN INT a;
	a := "foo" # { dg-error "cannot be coerced" } #
	END