-- { dg-do run }
with Allocator_Maxalign2;
procedure Test_Allocator_Maxalign2 is
begin
Allocator_Maxalign2.Check;
end;