1--  { dg-do compile }
2
3procedure 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;
11begin
12   null;
13end;
14
15
16