Re: write recursive call

[Richard E Maine <Richard dot Maine at nasa dot gov>]

On Nov 28, 2005, at 11:51 AM, Paul Thomas wrote:
> As I just learned from modifying the Polyhedron benchmark harness 
> program, most f95 compilers seem to permit recursion for the limited 
> case of external + internal IO eg;
>
> write (*, *) foo (x)
>
> character function foo (x)
> .....
>  write (foo, '(f10.4)') x

Yes, this is basically what f2003 allows. I was abbreviating in my 
description. It doesn't matter whether the "top-level" I/O is external 
or internal, but the "lower-level" ones must be internal (or uddtio, 
which is too much of a mouthful to spell out again).

In my observation, even recent vintage f77 compilers often allow this 
case, though many early f77 compilers definitely did not.

--
Richard Maine                |  Good judgment comes from experience;
Richard.Maine@nasa.gov       |  experience comes from bad judgment.
                            |        -- Mark Twain