gcc/testsuite/gnat.dg/allocator_maxalign2.ads

   1 with System;
   2
   3 package Allocator_Maxalign2 is
   4    type Block is record
   5       X : Integer;
   6    end record;
   7    for Block'Alignment use Standard'Maximum_Alignment;
   8
   9    Addr : System.Address;
  10
  11    procedure Check;
  12 end;