From patchwork Sat Jul 24 07:48:08 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 59850 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 17699B6EF3 for ; Sat, 24 Jul 2010 17:48:22 +1000 (EST) Received: (qmail 10242 invoked by alias); 24 Jul 2010 07:48:19 -0000 Received: (qmail 10227 invoked by uid 22791); 24 Jul 2010 07:48:18 -0000 X-SWARE-Spam-Status: No, hits=-1.9 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE X-Spam-Check-By: sourceware.org Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sat, 24 Jul 2010 07:48:12 +0000 Received: from [192.168.178.22] (port-92-204-52-63.dynamic.qsc.de [92.204.52.63]) by mx02.qsc.de (Postfix) with ESMTP id DFF8A1E24F; Sat, 24 Jul 2010 09:48:08 +0200 (CEST) Message-ID: <4C4A9AB8.3070302@net-b.de> Date: Sat, 24 Jul 2010 09:48:08 +0200 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; de; rv:1.9.1.10) Gecko/20100520 SUSE/3.0.5 Thunderbird/3.0.5 MIME-Version: 1.0 To: Steve Kargl CC: fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org Subject: Re: Revision 162491 -- fortran -fwhole-file regressions References: <20100724032640.GA23140@troutmask.apl.washington.edu> <4C4A8AA4.5090404@net-b.de> In-Reply-To: <4C4A8AA4.5090404@net-b.de> 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 Tobias Burnus wrote: > I will change the tests to use "abs(a-b) > epsilon(a)" instead of "(a > /= b)". > For integer_exponentiation_3.F90 I could not use "eps" as the check contains nearest.Thus, I use -ffloat-store. Committed as Rev. 162498. Tobias Index: gcc/testsuite/ChangeLog =================================================================== --- gcc/testsuite/ChangeLog (Revision 162497) +++ gcc/testsuite/ChangeLog (Arbeitskopie) @@ -1,5 +1,10 @@ 2010-07-24 Tobias Burnus + * gfortran.dg/entry_13.f90: Use abs() > eps instead of "/=". + * gfortran.dg/integer_exponentiation_3.F90: Use -ffloat-store. + +2010-07-24 Tobias Burnus + * gfortran.dg/func_decl_4.f90: Split test into two ... * gfortran.dg/func_decl_5.f90: ... parts. * gfortran.dg/common_resize_1.f: xfail two warnings (cf. PR 45045). Index: gcc/testsuite/gfortran.dg/entry_13.f90 =================================================================== --- gcc/testsuite/gfortran.dg/entry_13.f90 (Revision 162497) +++ gcc/testsuite/gfortran.dg/entry_13.f90 (Arbeitskopie) @@ -67,14 +67,14 @@ type(z) z1 z1 = x1//y1 - if (z1%x .ne. 19.0_4 + 7.0_4) call abort () + if (abs(z1%x - (19.0_4 + 7.0_4)) > epsilon(x1%x)) call abort () z1 = y1//x1 - if (z1%x .ne. 19.0_4 - 7.0_4) call abort () + if (abs(z1%x - (19.0_4 - 7.0_4)) > epsilon(x1%x)) call abort () z1 = x1==y1 - if (z1%x .ne. 19.0_4/7.0_4) call abort () + if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort () z1 = y1==x1 - if (z1%x .ne. 19.0_4/7.0_4) call abort () + if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort () end program test ! { dg-final { cleanup-modules "type_mod" } } Index: gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 =================================================================== --- gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 (Revision 162497) +++ gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 (Arbeitskopie) @@ -1,6 +1,9 @@ ! { dg-do run { xfail spu-*-* } } ! FAILs on SPU because of wrong compile-time rounding mode -! { dg-options "" } +! { dg-options "-ffloat-store" } +! +! -ffloat-store needed for x87 +! module mod_check implicit none