gcc/testsuite/algol68/compile/actual-bounds-expected-2.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #
 BEGIN LOC[]INT a := (1,2,3); # { dg-error "actual bounds expected" }  #
       SKIP
 END
	# { dg-options "-fstropping=upper" } #
	BEGIN LOC[]INT a := (1,2,3); # { dg-error "actual bounds expected" } #
	SKIP
	END