This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, fortran] Implement inquire(iolength= ) for DTIO
- From: Dominique d'Humières <dominiq at lps dot ens dot fr>
- To: Jerry DeLisle <jvdelisle at charter dot net>
- Cc: fortran at gcc dot gnu dot org, gcc-patches List <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 16 Oct 2016 11:15:35 +0200
- Subject: Re: [Patch, fortran] Implement inquire(iolength= ) for DTIO
- Authentication-results: sourceware.org; auth=none
Dear Jerry,
The new test fails unless I replace 64 with 16 in 'if (rl.ne.64) call abort’. This seems consistent with your comment
> The language seems a little obscure. I think the first sentence means
> don't expect inquire to use a UDDTIO procedure and the second sentence
> says when you use a derived type that has UDDTIO procedures
> in the output list, treat them as if they don't and use the default derived type lengths.
The end of the line
inquire(iolength=rl) rl, kl, chairman, rl, chairman, t;
looks suspicious. Should nit be
inquire(iolength=rl) rl, kl, chairman, rl, chairman, tl
?
TIA
Dominique