From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 24856 invoked by alias); 29 Apr 2004 14:07:13 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 24838 invoked by uid 48); 29 Apr 2004 14:07:12 -0000 Date: Thu, 29 Apr 2004 14:41:00 -0000 From: "akemball at netscape dot net" To: gcc-bugs@gcc.gnu.org Message-ID: <20040429140708.15203.akemball@netscape.net> Reply-To: gcc-bugzilla@gcc.gnu.org Subject: [Bug fortran/15203] New: D FORMAT SPECIFIER X-Bugzilla-Reason: CC X-SW-Source: 2004-04/txt/msg02824.txt.bz2 List-Id: 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