gcc/testsuite/gnat.dg/alignment15.adb

   1 --  { dg-compile }
   2
   3 procedure Alignment15 is
   4    type T0 is record
   5       X : Integer;
   6    end record;
   7    for T0'Alignment use 0;
   8
   9    type T00 is record
  10       X : Integer;
  11    end record with Alignment => 0;
  12
  13    Dummy0  : T0;
  14    Dummy00 : T00;
  15 begin
  16    null;
  17 end;