From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21054 invoked by alias); 24 Apr 2004 12:45:09 -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 20905 invoked by uid 48); 24 Apr 2004 12:45:04 -0000 Date: Sat, 24 Apr 2004 13:45:00 -0000 From: "bdavis9659 at comcast dot net" To: gcc-bugs@gcc.gnu.org Message-ID: <20040424124503.15115.bdavis9659@comcast.net> Reply-To: gcc-bugzilla@gcc.gnu.org Subject: [Bug libfortran/15115] New: [gfortran] scaling factor on F format not applied X-Bugzilla-Reason: CC X-SW-Source: 2004-04/txt/msg02250.txt.bz2 List-Id: from NIST test FM405.FOR $ cat e.f CHARACTER B381K(4)*38 B381K(1) = ' 23 23.345 T ENDS ' B381K(2) = ' 23.456 F 98 YOURS PROGRAMS ' B381K(3) = ' 13.1234 13.1234E0 1312.34 ' B381K(4) = ' 5.2345 56 5.2345 T TRUE 5.2345' READ(B381K(3),39036) AVS, BVS, CVS PRINT*,'AVS = ',AVS PRINT*,'BVS = ',BVS PRINT*,'CVS = ',CVS 39036 FORMAT(F9.5, 1X, E9.3, 1X, 2PF7.4) END $ gfortran e.f $ ./a.out AVS = 13.12340 BVS = 13.12340 CVS = 1312.340 ^^^ wrong, should be 13.12340 $ g77 e.f $ ./a.out AVS = 13.1233997 BVS = 13.1233997 CVS = 13.1233997 -- Summary: [gfortran] scaling factor on F format not applied Product: gcc Version: tree-ssa Status: UNCONFIRMED Severity: normal Priority: P2 Component: libfortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: bdavis9659 at comcast dot net CC: gcc-bugs at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15115