1 2 3 4 5 6
-- { dg-do compile } -- { dg-options "-gnatd.F" } package body Allocator2 is procedure Dummy is null; end Allocator2;