1-- { dg-do run }
2
3with System;
4
5procedure Alignment7 is
6
7  type R is record
8    I : Integer;
9    F : Long_Float;
10  end record;
11  for R'Alignment use 8;
12
13  procedure Q (A : System.Address) is
14    F : Long_Float;
15    for F'Address use A;
16  begin
17    F := 0.0;
18  end;
19
20  V : R;
21
22begin
23  Q (V.F'Address);
24end;
25