2 -- { dg-options "-gnatws" }
4 procedure Small_Alignment is
6 type My_Integer is new Integer;
7 for My_Integer'Alignment use 1;
9 function Set_A return My_Integer is
14 function Set_B return My_Integer is
20 A : My_Integer := Set_A;
21 B : My_Integer := Set_B;