Patchwork [Fortran,Committed] XFAIL gfortran.dg/float128_1.f90

login
register
mail settings
Submitter Tobias Burnus
Date Sept. 5, 2010, 8:59 p.m.
Message ID <4C84049B.4020607@net-b.de>
Download mbox | patch
Permalink /patch/63863/
State New
Headers show

Comments

Tobias Burnus - Sept. 5, 2010, 8:59 p.m.
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

Patch

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