mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-29 10:55:00 +00:00
21 lines
390 B
Ada
21 lines
390 B
Ada
|
-- { dg-do run }
|
||
|
|
||
|
procedure Alignment10 is
|
||
|
|
||
|
type Short_T is mod 2 ** 16;
|
||
|
for Short_T'Size use 16;
|
||
|
for Short_T'Alignment use 1;
|
||
|
|
||
|
subtype Short_Sub_T is Short_T range 1000 .. 1005;
|
||
|
|
||
|
A : aliased Short_T := 1000;
|
||
|
B : Short_Sub_T;
|
||
|
for B'Address use A'Address;
|
||
|
pragma Import (Ada, B);
|
||
|
|
||
|
begin
|
||
|
if B /= 1000 then
|
||
|
raise Program_Error;
|
||
|
end if;
|
||
|
end;
|