1-- { dg-do run }
2
3with System.Storage_Elements; use System.Storage_Elements;
4with Oalign1, Oalign2; use Oalign1, Oalign2;
5
6procedure Test_Oalign is
7begin
8   if Klunk1'Address mod Klunk1'Alignment /= 0 then
9      raise Program_Error;
10   end if;
11   if Klunk2'Address mod Klunk2'Alignment /= 0 then
12      raise Program_Error;
13   end if;
14end;
15