From patchwork Sun Sep 5 20:59:07 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 63863 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 B2C52B70E1 for ; Mon, 6 Sep 2010 06:59:18 +1000 (EST) Received: (qmail 23451 invoked by alias); 5 Sep 2010 20:59:17 -0000 Received: (qmail 23434 invoked by uid 22791); 5 Sep 2010 20:59:16 -0000 X-SWARE-Spam-Status: No, hits=-1.8 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; Sun, 05 Sep 2010 20:59:10 +0000 Received: from [192.168.178.22] (port-92-204-40-202.dynamic.qsc.de [92.204.40.202]) by mx02.qsc.de (Postfix) with ESMTP id A6C851E4E0; Sun, 5 Sep 2010 22:59:08 +0200 (CEST) Message-ID: <4C84049B.4020607@net-b.de> Date: Sun, 05 Sep 2010 22:59:07 +0200 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; de; rv:1.9.2.7) Gecko/20100714 SUSE/3.1.1 Thunderbird/3.1.1 MIME-Version: 1.0 To: gcc patches , gfortran , FX Subject: Re: [Patch,Fortran,Committed] XFAIL gfortran.dg/float128_1.f90 References: <4C83FAD2.2050901@net-b.de> In-Reply-To: <4C83FAD2.2050901@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 Actually, even with "xfail" at "dg-compile" I saw FAILs in when regtesting - thus I decided to remove the test case. FX: Please remember to re-add the test case when committing the quad support. Committed as Rev. 163883. Tobias Index: ChangeLog =================================================================== --- ChangeLog (Revision 163881) +++ ChangeLog (Arbeitskopie) @@ -1,5 +1,11 @@ 2010-09-05 Tobias Burnus + * gfortran.dg/float128_1.f90: Remove test case as + it always fails since Rev 163611 backed out the + front-end implementation. + +2010-09-05 Tobias Burnus + * gfortran.dg/float128_1.f90: XFAIL test case. 2010-09-05 Tobias Burnus Index: gfortran.dg/float128_1.f90 =================================================================== --- gfortran.dg/float128_1.f90 (Revision 163880) +++ gfortran.dg/float128_1.f90 (Arbeitskopie) @@ -1,29 +0,0 @@ -! Check that __float128 can be used where it's supported -! -! { dg-do compile { xfail *-*-* } } -! TODO: Enable as: compile { target ia64-*-* i?86-*-* x86_64-*-* } -! { dg-options "-fdump-tree-original" } -! { dg-final { scan-tree-dump "sqrtq" "original" } } -! { dg-final { scan-tree-dump "cabsq" "original" } } -! { dg-final { scan-tree-dump "cosl" "original" } } -! { dg-final { cleanup-tree-dump "original" } } -! - real(kind=16) :: x1, x2 - complex(kind=16) :: z1, z2 - - real(kind=10) :: y - - read (*,*) x1 - x2 = sqrt(x1) ! sqrtq - z1 = x1 + (0._16 , 1.0_16) - z2 = z1 / (1._16, 2._16) - - x1 = abs(z2) ! cabsq - - - y = 2 - y = cos(y) ! cosl - - print *, x1, x2, z1, z2, y - -end