diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-05 20:55:59 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-05 20:55:59 +0000 |
| commit | 6d895a1b1bda15a0d4daf14336c0855c279a8937 (patch) | |
| tree | 96b13d7223ea127c09108d10ed68d121a55e7dbe | |
| parent | ca2120ab621d244edeca1ba22534dcb96570ad12 (diff) | |
| download | gcc-6d895a1b1bda15a0d4daf14336c0855c279a8937.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163883 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/float128_1.f90 | 29 |
2 files changed, 6 insertions, 29 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 454d19ae365..4aefdc1dc88 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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> diff --git a/gcc/testsuite/gfortran.dg/float128_1.f90 b/gcc/testsuite/gfortran.dg/float128_1.f90 deleted file mode 100644 index 43fce1bccd5..00000000000 --- 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 |