gcc/testsuite/gnat.dg/alignment7.adb

   1 -- { dg-do run }
   2
   3 with System;
   4
   5 procedure 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
  22 begin
  23   Q (V.F'Address);
  24 end;