From patchwork Mon May 2 14:20:40 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Rainer Orth X-Patchwork-Id: 93665 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id C8D10B6F93 for ; Tue, 3 May 2011 00:21:01 +1000 (EST) Received: (qmail 14517 invoked by alias); 2 May 2011 14:20:59 -0000 Received: (qmail 14499 invoked by uid 22791); 2 May 2011 14:20:59 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from snape.CeBiTec.Uni-Bielefeld.DE (HELO smtp-relay.CeBiTec.Uni-Bielefeld.DE) (129.70.160.84) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Mon, 02 May 2011 14:20:45 +0000 Received: from localhost (localhost.CeBiTec.Uni-Bielefeld.DE [127.0.0.1]) by smtp-relay.CeBiTec.Uni-Bielefeld.DE (Postfix) with ESMTP id 2044A641; Mon, 2 May 2011 16:20:44 +0200 (CEST) Received: from smtp-relay.CeBiTec.Uni-Bielefeld.DE ([127.0.0.1]) by localhost (malfoy.CeBiTec.Uni-Bielefeld.DE [127.0.0.1]) (amavisd-new, port 10024) with LMTP id Gl5ZaPu68WEb; Mon, 2 May 2011 16:20:41 +0200 (CEST) Received: from manam.CeBiTec.Uni-Bielefeld.DE (manam.CeBiTec.Uni-Bielefeld.DE [129.70.161.120]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by smtp-relay.CeBiTec.Uni-Bielefeld.DE (Postfix) with ESMTPS id 9CC3D640; Mon, 2 May 2011 16:20:41 +0200 (CEST) Received: (from ro@localhost) by manam.CeBiTec.Uni-Bielefeld.DE (8.14.4+Sun/8.14.4/Submit) id p42EKfnu003982; Mon, 2 May 2011 16:20:41 +0200 (MEST) From: Rainer Orth To: gcc-patches@gcc.gnu.org Cc: fortran@gcc.gnu.org, Jerry DeLisle Subject: [testsuite] Compile gfortran.dg/fmt_g0_6.f08 with -ffloat-store Date: Mon, 02 May 2011 16:20:40 +0200 Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3 (usg-unix-v) MIME-Version: 1.0 X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org gfortran.dg/fmt_g0_6.f08 execution seems to fail on all 32-bit x86 targets at -O1 and above. Running it under gdb, I find Program received signal SIGABRT, Aborted. [Switching to Thread 1 (LWP 1)] 0xfed0ff85 in _lwp_kill () from /lib/libc.so.1 (gdb) where #0 0xfed0ff85 in _lwp_kill () from /lib/libc.so.1 #1 0xfed08f49 in thr_kill () from /lib/libc.so.1 #2 0xfecb8f3d in raise () from /lib/libc.so.1 #3 0xfec9114d in abort () from /lib/libc.so.1 #4 0xfef43b2c in _gfortran_abort () at /vol/gcc/src/hg/trunk/local/libgfortran/intrinsics/abort.c:34 #5 0x08051821 in check_f_fmt (val=0.995, roundmode=..., w=15, d=2, e=0, _roundmode=1) at /vol/gcc/src/hg/trunk/local/gcc/testsuite/gfortran.dg/fmt_g0_6.f08:76 #6 main (val=Could not find the frame base for "main". ) at /vol/gcc/src/hg/trunk/local/gcc/testsuite/gfortran.dg/fmt_g0_6.f08:26 #7 0x0805185b in check_all (val=0.995, w=15, d=2, e=0) at /vol/gcc/src/hg/trunk/local/gcc/testsuite/gfortran.dg/fmt_g0_6.f08:21 #8 main (val=0.995, w=15, d=2, e=Could not find the frame base for "main". ) at /vol/gcc/src/hg/trunk/local/gcc/testsuite/gfortran.dg/fmt_g0_6.f08:15 #9 0x08051923 in test_g0fr (argc=1, argv=0x8047a70 "/vol/gcc/obj/regression/trunk/11-gcc/build/gcc/testsuite/gfortran/fmt_g0_6.exe") at /vol/gcc/src/hg/trunk/local/gcc/testsuite/gfortran.dg/fmt_g0_6.f08:11 #10 main (argc=1, argv=0x8047a70 "/vol/gcc/obj/regression/trunk/11-gcc/build/gcc/testsuite/gfortran/fmt_g0_6.exe") at /vol/gcc/src/hg/trunk/local/gcc/testsuite/gfortran.dg/fmt_g0_6.f08:13 #11 0x08050f03 in _start () if (s_g /= s_f) call abort (gdb) p s_g $1 = '' 1.0 '', ' ' (gdb) p s_f $2 = '' 0.99 '', ' ' The failure vanishes with -ffloat-store, so I propose the following patch, tested on i386-pc-solaris2.11 with the appropriate runtest invocation. Ok for mainline? Rainer 2011-04-30 Rainer Orth * gfortran.dg/fmt_g0_6.f08: Use dg-options "-ffloat-store". Fix typo. diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 --- a/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 +++ b/gcc/testsuite/gfortran.dg/fmt_g0_6.f08 @@ -1,4 +1,5 @@ ! { dg-do run } -! PE48602 Invalid F conversion of G descriptor for values close to powers of 10 +! { dg-options "-ffloat-store" } + ! PR48602 Invalid F conversion of G descriptor for values close to powers of 10 ! Test case provided by Thomas Henlich program test_g0fr