15 lines
339 B
Ada
15 lines
339 B
Ada
-- { dg-do run }
|
|
|
|
with System.Storage_Elements; use System.Storage_Elements;
|
|
with Oalign1, Oalign2; use Oalign1, Oalign2;
|
|
|
|
procedure Test_Oalign is
|
|
begin
|
|
if Klunk1'Address mod Klunk1'Alignment /= 0 then
|
|
raise Program_Error;
|
|
end if;
|
|
if Klunk2'Address mod Klunk2'Alignment /= 0 then
|
|
raise Program_Error;
|
|
end if;
|
|
end;
|