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