OSDN Git Service

2010-09-05 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / float128_1.f90
1 ! Check that __float128 can be used where it's supported
2 !
3 ! { dg-do compile { xfail *-*-* } }
4 ! TODO: Enable as: compile { target ia64-*-* i?86-*-* x86_64-*-* } 
5 ! { dg-options "-fdump-tree-original" }
6 ! { dg-final { scan-tree-dump "sqrtq" "original" } }
7 ! { dg-final { scan-tree-dump "cabsq" "original" } }
8 ! { dg-final { scan-tree-dump "cosl" "original" } }
9 ! { dg-final { cleanup-tree-dump "original" } }
10 !
11   real(kind=16) :: x1, x2
12   complex(kind=16) :: z1, z2
13
14   real(kind=10) :: y
15
16   read (*,*) x1
17   x2 = sqrt(x1)                         ! sqrtq
18   z1 = x1 + (0._16 , 1.0_16)
19   z2 = z1 / (1._16, 2._16)
20
21   x1 = abs(z2)                          ! cabsq
22
23
24   y = 2
25   y = cos(y)                            ! cosl
26
27   print *, x1, x2, z1, z2, y
28
29 end