language lawyer question

[Paul Brook]

On Friday 21 January 2005 14:45, Paul Brook wrote:
> On Friday 21 January 2005 06:10, Paul Thomas wrote:
> > The problem lies in this function:
> >
> >    function getOa(ob) result(oa)
> >       type(objB),target :: ob
> >       type(objA), pointer :: oa
> >       oa=>ob%oa
> >    end function getOa

Whoops, sorry, misread the code.
Section 12.4.1.1 was this is in fact well defined, and should work.

Paul