gcc/testsuite/gnat.dg/incomplete2.ads


1
2
3
4
5
6
7
8

limited with Incomplete1;
package Incomplete2 is
   pragma Elaborate_Body;
   generic
      type T is private;
   package G is end G;
   package I1 is new G (Incomplete1.T); -- { dg-error "premature use" }
end Incomplete2;