From 46d2b70cd7923180ef8869537fd5a2bd9a3de2f1 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 5 Sep 2010 22:55:59 +0200 Subject: [PATCH] float128_1.f90: Remove test case as it always fails since Rev 163611 backed out the front-end... 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. From-SVN: r163883 --- gcc/testsuite/ChangeLog | 6 +++++ gcc/testsuite/gfortran.dg/float128_1.f90 | 29 ------------------------ 2 files changed, 6 insertions(+), 29 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/float128_1.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 454d19ae3651..4aefdc1dc88d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +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. diff --git a/gcc/testsuite/gfortran.dg/float128_1.f90 b/gcc/testsuite/gfortran.dg/float128_1.f90 deleted file mode 100644 index 43fce1bccd5e..000000000000 --- a/gcc/testsuite/gfortran.dg/float128_1.f90 +++ /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 -- 2.47.3