This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Re: write recursive call

From: Paul Thomas <paulthomas2 at wanadoo dot fr>
To: Richard E Maine <Richard dot Maine at nasa dot gov>
Cc: François-Xavier Coudert <fxcoudert at gmail dot com>, fortran at gcc dot gnu dot org, Pierre-Matthieu anglade <pierre dot matthieu dot anglade at gmail dot com>
Date: Mon, 28 Nov 2005 20:51:01 +0100
Subject: Re: write recursive call
References: <25e63a4d0511240300g236e1aaeib7277db087197b49@mail.gmail.com> <19c433eb0511240325t24897aecnb219434f3762821b@mail.gmail.com> <282bf020028b527a3402cb3eb28a2857@nasa.gov>

Richard,

On Nov 24, 2005, at 3:25 AM, François-Xavier Coudert wrote:
I'd like to know if the fact that
"Recursive library calls not allowed"
for the intinsic function WRITE is a feature or a bug.
The basic line is: recursive I/O is indeed forbidden in Fortran 95,
but allowed in Fortran 2003.
But only in very limited cases, even in f2003. Specifically, it is not allowed to external files. The recursive I/O statement can only be to an internal file (or as part of user-defined-derived-type I/O, but that doesn't come up in f95).

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
.....

Cheers

Paul T

Follow-Ups:
- Re: write recursive call
  - From: Richard E Maine

References:
- write recursive call
  - From: Pierre-Matthieu anglade
- Re: write recursive call
  - From: François-Xavier Coudert
- Re: write recursive call
  - From: Richard E Maine

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]