blob: cdaea47d65c5f80519d4c89b2ce5694c0f15a25a [file] [log] [blame]
-- { dg-do compile }
procedure Slice_Enum is
Pos : array (Boolean) of Integer;
begin
Pos (Boolean) := (others => 0);
end;