Clune, Thomas L. (GSFC-610.3) wrote:
> test had failed under one vendor, and I then sought the standard which
> seemed to back up the error message I was seeing.
Can you please explain (or quote) what exactly the message is? You said:
"one cannot extend the private type bound procedures"
which I cannot make sense of, so some pointer to the standard or the
error message would help in figuring what the standard actually says.
Your code seems perfectly reasonable to me, but that may be just me :-)