gcc/testsuite/gnat.dg/max_align.adb

   1 --  { dg-do compile }
   2
   3 procedure Max_Align is
   4    type Block is record
   5       X : Integer;
   6    end record;
   7    for Block'Alignment use Standard'Maximum_Alignment;
   8
   9    type Block_Access is access Block;
  10    Ptr : Block_Access := new Block;
  11 begin
  12    null;
  13 end;
  14
  15