1 2 3 4 5 6 7 8 9 10 11
-- { dg-do compile } with Discr25_Pkg; procedure Discr25 (N : Natural) is package Test_Set is new Discr25_Pkg (N); begin null; end;