[Bug fortran/37472] bad output on default-format write of double in common block with -m64 flag i

[dominiq at lps dot ens dot fr]

------- Comment #3 from dominiq at lps dot ens dot fr  2008-09-11 11:37 -------
I cannot reproduce it on ppc/intel Darwin9, however the following code:

      PROGRAM bug
      IMPLICIT NONE

      DOUBLE PRECISION r
      COMMON /gggg91/ r

      DOUBLE PRECISION  x

      x = 1000
      write(6,*) 'x = ', x

      r = 1000
      write(6,*) 'r = ', r

      x = 1001
      write(6,*) 'x = ', x

      r = 1001
      write(6,*) 'r = ', r

      END

gives

 x =    1000.00000000000     
 r =    1000.00000000000     
 x =    1001.00000000000     
 r =    1001.00000000000     

with gfortran 4.2.3 and

 x =   1000.00000000000000     
 r =   1000.00000000000000     
 x =    1001.0000000000000     
 r =    1001.0000000000000     

with 4.3.2 and 4.4.0 (trunk). Is this expected?


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37472