[Bug fortran/17541] New: data statements with double precision constants fail

[rkoenker at uiuc dot edu]

Given the program below one is assigned to zero
        program test
        double precision x
        call dbug(x)
        stop
        end
        subroutine dbug(x)
        double precision x,one
        data one/1.d0/
        write(*,*) one
        return
        end
rkoenker@welch-gentoo rkoenker $ g77 test.f
rkoenker@welch-gentoo rkoenker $ ./a.out
  0.

rkoenker@welch-gentoo rkoenker $ g77 -v
Reading specs from /usr/lib/gcc/x86_64-pc-linux-gnu/3.4.1/specs
Configured with: /var/tmp/portage/gcc-3.4.1-r2/work/gcc-3.4.1/configure --prefix=/usr --bindir=/
usr/x86_64-pc-linux-gnu/gcc-bin/3.4 --includedir=/usr/lib/gcc/x86_64-pc-linux-gnu/3.4.1/
include --datadir=/usr/share/gcc-data/x86_64-pc-linux-gnu/3.4 --mandir=/usr/share/gcc-data/
x86_64-pc-linux-gnu/3.4/man --infodir=/usr/share/gcc-data/x86_64-pc-linux-gnu/3.4/info --
enable-shared --host=x86_64-pc-linux-gnu --target=x86_64-pc-linux-gnu --with-system-zlib --
enable-languages=c,c++,f77 --enable-threads=posix --enable-long-long --disable-checking --
disable-libunwind-exceptions --enable-cstdio=stdio --enable-version-specific-runtime-libs --with-
gxx-include-dir=/usr/lib/gcc/x86_64-pc-linux-gnu/3.4.1/include/g++-v3 --with-local-prefix=/
usr/local --disable-werror --enable-shared --enable-nls --without-included-gettext --disable-
multilib --enable-__cxa_atexit --enable-clocale=gnu
Thread model: posix
gcc version 3.4.1 20040803 (Gentoo Linux 3.4.1-r2, ssp-3.4-2, pie-8.7.6.5)

-- 
           Summary: data statements with double precision constants fail
           Product: gcc
           Version: 3.4.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: rkoenker at uiuc dot edu
                CC: gcc-bugs at gcc dot gnu dot org


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