bug report : gfortran E edit descriptor

[Tobias Burnus]

I think gfortran's result *is* *correct* according to the
Fortran standard.

(I concur that the result is not what one would expect but
it is now decades to late to change that.)


sudo.michio wrote:
> I have an trouble in E edit descriptor of gfortran.
> This is a example.
...
>       write(*,'(e9.3,a,f7.1)')a,' ',b
>       write(*,'(1pe9.3,a,f7.1)')a,' ',b
...
> (execute)
> a.exe
> (result)
>   135.000000       1737.50000    
> 0.135E+03  1737.5
> 1.350E+02 17375.0  ( <--- wrong value )

Looking at the Fortran standard [1], the result looks
correct:

"The k P edit descriptor temporarily changes (9.5.2) the scale
 factor for the connection to k. The scale factor affects the
 editing done by the F, E, EN, ES, D, and G edit descriptors
 for numeric quantities.
[...]

 * On output, with F output editing, the effect is that the
   externally represented number equals the internally represented
   number multiplied by 10**k; the internal value is converted using
   the I/O rounding mode and then the scale factor is applied to
   the converted decimal value.

 * On output, with E and D editing, the effect is that the
   significand (R414) part of the quantity to be produced is
   multiplied by 10**k and the exponent is reduced by k."


The referenced 9.5.2 contains the following, which implies
that the "1p" not only affects the immediately following "e9.3"
but also the later "f7.1":

"Edit descriptors take effect when they are encountered in
 format processing.  When a data transfer statement terminates,
 the values for the modes are reset to the values in effect
 immediately before the data transfer statement was executed."


Cheers,

Tobias

[1] http://j3-fortran.org/doc/year/10/10-007r1.pdf
Section "10.8.5 P editing"
Page 279 of the document, page number labelled as "261"