(j3.2006) Did we intend this to be OK?

[Cohen Malcolm]

>I could not find a constraint or other normative text to support this
>error message.

"An extended type includes all of the type parameters, all of the 
components, and the nonoverridden (4.5.7.3)
type-bound procedures of its parent type."

Therefore G already exists in the extended type, therefore you cannot 
specify a different access.

Cheers,
-- 
........................Malcolm Cohen, Nihon NAG, Tokyo.