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