gcc/testsuite/algol68/execute/assignation-struct-1.a68 - gcc.git - Git at Google

 # { dg-options "-fstropping=upper" }  #
 BEGIN MODE NODE = STRUCT (INT one, two, three);
       NODE top;
       top := (10,20,30);
       ASSERT (two OF top = 20)
 END
	# { dg-options "-fstropping=upper" } #
	BEGIN MODE NODE = STRUCT (INT one, two, three);
	NODE top;
	top := (10,20,30);
	ASSERT (two OF top = 20)
	END