(j3.2006) Function returning procedure pointers

[Rafik Zurob]

j3-bounces at mailman.j3-fortran.org wrote on 26/12/2014 12:37:25 AM:

> From: Bill Long <longb at cray.com>
> To: fortran standards email list for J3 <j3 at mailman.j3-fortran.org>
> Date: 26/12/2014 12:42 AM
> Subject: Re: (j3.2006) Function returning procedure pointers
> Sent by: j3-bounces at mailman.j3-fortran.org
> 
> 
> On Dec 25, 2014, at 12:07 AM, Malcolm Cohen <malcolm at nag-j.co.jp> wrote:
...
> > 
> > It's not that it's impossible to implement, but it's really 
> horrid.  Does anyone 
> > accept the following yet?
> > 
> 
> I checked the 4 compilers I have available.
> 
> Cray accepts it:
> 
> > ftn test.f90
> > ./a.out
>  ok
> > 

IBM XL Fortran accepts it as well:

$ xlf2008 ptrreturn.f
** junk   === End of Compilation 1 ===
** test   === End of Compilation 2 ===
1501-510  Compilation successful for file ptrreturn.f.
$ ./a.out
 ok
$

Regards

Rafik