gcc/testsuite/gnat.dg/slice_enum.adb - gcc - Git at Google

 --  { dg-do compile }

 procedure Slice_Enum is
    Pos : array (Boolean) of Integer;
 begin
    Pos (Boolean) := (others => 0);
 end;
	-- { dg-do compile }

	procedure Slice_Enum is
	Pos : array (Boolean) of Integer;
	begin
	Pos (Boolean) := (others => 0);
	end;