Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
specs
/
size_attribute1_pkg1.ads
blob: 2cd2dc4d1d2303728fc9c3107f6b80236022a9b2 [
file
] [
log
] [
blame
]
--
{
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
;