Commit 46d2b70c by Tobias Burnus Committed by Tobias Burnus

float128_1.f90: Remove test case as it always fails since Rev 163611 backed out the front-end...

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.

From-SVN: r163883
parent 41500b41
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>
......
! 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment