OSDN Git Service

2010-09-05 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 5 Sep 2010 20:55:59 +0000 (20:55 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 5 Sep 2010 20:55:59 +0000 (20:55 +0000)
        * gfortran.dg/float128_1.f90: Remove test case as
        it always fails since Rev 163611 backed out the
        front-end implementation.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163883 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/float128_1.f90 [deleted file]

index 454d19a..4aefdc1 100644 (file)
@@ -1,5 +1,11 @@
 2010-09-05  Tobias Burnus  <burnus@net-b.de>
 
 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>
        * gfortran.dg/float128_1.f90: XFAIL test case.
 
 2010-09-05  Tobias Burnus  <burnus@net-b.de>
diff --git a/gcc/testsuite/gfortran.dg/float128_1.f90 b/gcc/testsuite/gfortran.dg/float128_1.f90
deleted file mode 100644 (file)
index 43fce1b..0000000
+++ /dev/null
@@ -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