--  { dg-do compile }

procedure Alignment14 is

  type My_Int1 is new Integer;
  for My_Int1'Alignment use 8;

  type Arr1 is array (1 .. 2) of My_Int1;

  type My_Int2 is new Integer;
  for My_Int2'Alignment use 16;

  type Arr2 is array (1 .. 2) of My_Int2;

begin
   null;
end Alignment14;