gcc/testsuite/gfortran.dg/float128_1.f90

   1 ! Check that __float128 can be used where it's supported
   2 !
   3 ! { dg-do compile { target ia64-*-* i?86-*-* x86_64-*-* } }
   4 ! { dg-options "-fdump-tree-original" }
   5 ! { dg-final { scan-tree-dump "sqrtq" "original" } }
   6 ! { dg-final { scan-tree-dump "cabsq" "original" } }
   7 ! { dg-final { scan-tree-dump "cosl" "original" } }
   8 ! { dg-final { cleanup-tree-dump "original" } }
   9 !
  10   real(kind=16) :: x1, x2
  11   complex(kind=16) :: z1, z2
  12
  13   real(kind=10) :: y
  14
  15   read (*,*) x1
  16   x2 = sqrt(x1)                         ! sqrtq
  17   z1 = x1 + (0._16 , 1.0_16)
  18   z2 = z1 / (1._16, 2._16)
  19
  20   x1 = abs(z2)                          ! cabsq
  21
  22
  23   y = 2
  24   y = cos(y)                            ! cosl
  25
  26   print *, x1, x2, z1, z2, y
  27
  28 end