[Bug fortran/15203] New: D FORMAT SPECIFIER

["akemball at netscape dot net" <gcc-bugzilla@gcc.gnu.org>]

g77 D FORMAT SPECIFIER
----------------------

Summary: g77 uses exponent letter 'E' instead of 'D' for the
         output of the Dw.d FORMAT specifier.

g77 version
-----------
Reading specs from /usr/lib/gcc-lib/i386-redhat-linux/3.2.2/specs
Configured with: ../configure --prefix=/usr --mandir=/usr/share/man
--infodir=/usr/share/info --enable-shared --enable-threads=posix
--disable-checking --with-system-zlib --enable-__cxa_atexit --host=i386-redhat-linux
Thread model: posix
gcc version 3.2.2 20030222 (Red Hat Linux 3.2.2-5)

System
------
Linux 2.4.20-8 #1 Thu Mar 13 17:54:28 EST 2003 i686 i686 i386 GNU/Linux

Compiler command line
---------------------
g77 tst.f

Compiler output
---------------
No warnings

Source file
-----------

      PROGRAM TST
C
      DOUBLE PRECISION A
C
      A = 1.2345678987654321D6
C
      WRITE (6,6000) A
 6000 FORMAT (D25.17)
C
      END

Output
------
$ a.out
0.12345678987654322E+07

Pre-processed file
------------------
        .file   "tst.f"
        .data
        .align 4
        .type   __g77_cilist_0.1,@object
        .size   __g77_cilist_0.1,20
__g77_cilist_0.1:
        .long   0
        .long   6
        .long   0
        .long   __g77_format_6000.0
        .long   0
        .type   __g77_format_6000.0,@object
        .size   __g77_format_6000.0,8
__g77_format_6000.0:
        .ascii  "(D25.17)"
        .section        .rodata
.LC1:
        .align 4
.LC0:
        .long   1
        .text
.globl MAIN__
        .type   MAIN__,@function
MAIN__:
        pushl   %ebp
        movl    %esp, %ebp
        subl    $8, %esp
        movl    $-434799158, -8(%ebp)
        movl    $1093850759, -4(%ebp)
        subl    $12, %esp
        pushl   $__g77_cilist_0.1
        call    s_wsfe
        addl    $16, %esp
        subl    $4, %esp
        pushl   $8
        leal    -8(%ebp), %eax
        pushl   %eax
        pushl   $.LC0
        call    do_fio
        addl    $16, %esp
        call    e_wsfe
        subl    $8, %esp
        pushl   $0
        pushl   $.LC1
        call    s_stop
.Lfe1:
        .size   MAIN__,.Lfe1-MAIN__
        .ident  "GCC: (GNU) 3.2.2 20030222 (Red Hat Linux 3.2.2-5)"

-- 
           Summary: D FORMAT SPECIFIER
           Product: gcc
           Version: 3.2.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: akemball at netscape dot net
                CC: akemball at netscape dot net,gcc-bugs at gcc dot gnu dot
                    org


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