1 2 3 4 5 6 7 8 9 10
-- { dg-compile } -- { dg-options "-g" } with Debug4_Pkg; procedure Debug4 is package P is new Debug4_Pkg (Natural); begin null; end;