pragma Share_Generic (GNAME {, GNAME}); GNAME ::= generic_unit_NAME | generic_instance_NAME
This pragma is provided for compatibility with Dec Ada 83. It has
no effect in GNAT
(which does not implement shared generics), other
than to check that the given names are all names of generic units or
generic instances.