gcc/testsuite/gnat.dg/specs/size_attribute1_pkg1.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- { dg-excess-errors "no code generated" }

with Size_Attribute1_Pkg2;

generic

  type T is private;

package Size_Attribute1_Pkg1 is

  package My_R is new Size_Attribute1_Pkg2 (T);

  procedure Dummy;

end Size_Attribute1_Pkg1;