--  { dg-do run }

with Allocator_Maxalign2;

procedure Test_Allocator_Maxalign2 is
begin
   Allocator_Maxalign2.Check;
end;