|
-- { 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;
|