3 procedure Alignment10 is
\r
5 type Short_T is mod 2 ** 16;
\r
6 for Short_T'Size use 16;
\r
7 for Short_T'Alignment use 1;
\r
9 subtype Short_Sub_T is Short_T range 1000 .. 1005;
\r
11 A : aliased Short_T := 1000;
\r
13 for B'Address use A'Address;
\r
14 pragma Import (Ada, B);
\r
18 raise Program_Error;
\r