blob: 8f09da023fb2ec6842d3b6d82f87b1ec25787694 [file] [log] [blame]
-- { dg-do compile }
with Addr16_Pkg; use Addr16_Pkg;
procedure Addr16 (R : Rec) is
pragma Unsuppress (Alignment_Check);
B : Integer;
for B'Address use R.A'Address;
begin
null;
end;