-- { dg-do run }with System;procedure Alignment8 istype R is record
I :Integer;
F :Long_Long_Integer;end record;for R'Alignmentuse8;procedure Q (A : System.Address)is
F :Long_Long_Integer;for F'Addressuse A;begin
F :=0;end;
V : R;begin
Q (V.F'Address);end;