This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch,Fortran,Committed] XFAIL gfortran.dg/float128_1.f90
- From: Tobias Burnus <burnus at net-b dot de>
- To: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>, FX <fxcoudert at gmail dot com>
- Date: Sun, 05 Sep 2010 22:59:07 +0200
- Subject: Re: [Patch,Fortran,Committed] XFAIL gfortran.dg/float128_1.f90
- References: <4C83FAD2.2050901@net-b.de>
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 <burnus@net-b.de>
+ * 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 <burnus@net-b.de>
+
* gfortran.dg/float128_1.f90: XFAIL test case.
2010-09-05 Tobias Burnus <burnus@net-b.de>
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