1-- { dg-do compile }
2
3with Addr16_Pkg; use Addr16_Pkg;
4
5procedure Addr16 (R : Rec) is
6
7  pragma Unsuppress (Alignment_Check);
8
9  B : Integer;
10  for B'Address use R.A'Address;
11
12begin
13  null;
14end;
15