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

[sdirkse at gams dot com]

------- Comment #17 from sdirkse at gams dot com  2008-12-22 20:37 -------
After all the updates committed for this bug, I thought I'd try the latest,
including updating to ggmp-4.2.4 and mpfr-2.3.2.  Here's the result for the GCC
4.3.2 release and the latest GCC.  Note that the 32-bit stuff hasn't changed
and now I get all-stars output for *both* outputs in 64-bit, not just one of
the outputs.

sigvm:/export/home/distrib/lang/f90$/usr/local2/bin/gfortran -v
Using built-in specs.
Target: i386-pc-solaris2.10
Configured with: ../configure CC=gcc --prefix=/usr/local2
--build=i386-pc-solaris2.10 --with-gnu-as --with-as=/usr/local/bin/as
--without-gnu-ld --with-ld=/usr/ccs/bin/ld --with-gmp=/usr/local
--with-mpfr=/usr/local --enable-languages=c,c++,fortran --enable-shared
Thread model: posix
gcc version 4.3.2 (GCC) 
sigvm:/export/home/distrib/lang/f90$cat bug.f
      PROGRAM bug
      IMPLICIT NONE

      DOUBLE PRECISION r
      COMMON /gggg91/ r

      DOUBLE PRECISION  x

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

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

      END
sigvm:/export/home/distrib/lang/f90$/usr/local2/bin/gfortran -o bug32 -m32
bug.f
sigvm:/export/home/distrib/lang/f90$/usr/local2/bin/gfortran -o bug64 -m64
bug.f
sigvm:/export/home/distrib/lang/f90$./bug32
 x =    1001.0000000000000     
 r =   1000.00000000000000     
sigvm:/export/home/distrib/lang/f90$./bug64
 x =    1001.0000000000000     
 r =  ********************     
sigvm:/export/home/distrib/lang/f90$/usr/local3/bin/gfortran -v
Using built-in specs.
Target: i386-pc-solaris2.11
Configured with: ../configure CC=gcc --prefix=/usr/local3
--build=i386-pc-solaris2.11 --with-gnu-as --with-as=/usr/local/bin/as
--without-gnu-ld --with-ld=/usr/ccs/bin/ld --with-gmp=/usr/local
--with-mpfr=/usr/local --enable-languages=c,c++,fortran --enable-shared
Thread model: posix
gcc version 4.4.0 20081222 (experimental) (GCC) 
sigvm:/export/home/distrib/lang/f90$/usr/local3/bin/gfortran -o bug32 -m32
bug.f 
sigvm:/export/home/distrib/lang/f90$/usr/local3/bin/gfortran -o bug64 -m64
bug.f 
sigvm:/export/home/distrib/lang/f90$./bug32
 x =    1001.0000000000000     
 r =   1000.00000000000000     
sigvm:/export/home/distrib/lang/f90$./bug64 
 x =  ********************     
 r =  ********************     
sigvm:/export/home/distrib/lang/f90$


-- 


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