testsuite/gnat.dg/test_allocator_maxalign2.adb

--  { dg-do run }

with Allocator_Maxalign2;

procedure Test_Allocator_Maxalign2 is
begin
   Allocator_Maxalign2.Check;
end;