blob: 5a3b8eb43c81f05433dc33b263a6f056e5ee84f6 [file] [log] [blame]
-- { dg-do run }
with System;
procedure Alignment7 is
type R is record
I : Integer;
F : Long_Float;
end record;
for R'Alignment use 8;
procedure Q (A : System.Address) is
F : Long_Float;
for F'Address use A;
begin
F := 0.0;
end;
V : R;
begin
Q (V.F'Address);
end;