flang/test/Lower/Intrinsics/atanh.f90

   1 ! RUN: bbc -emit-fir %s -o - --math-runtime=fast | FileCheck --check-prefixes=ALL %s
   2 ! RUN: %flang_fc1 -emit-fir -mllvm -math-runtime=fast %s -o - | FileCheck --check-prefixes=ALL %s
   3 ! RUN: bbc -emit-fir %s -o - --math-runtime=relaxed | FileCheck --check-prefixes=ALL %s
   4 ! RUN: %flang_fc1 -emit-fir -mllvm -math-runtime=relaxed %s -o - | FileCheck --check-prefixes=ALL %s
   5 ! RUN: bbc -emit-fir %s -o - --math-runtime=precise | FileCheck --check-prefixes=ALL %s
   6 ! RUN: %flang_fc1 -emit-fir -mllvm -math-runtime=precise %s -o - | FileCheck --check-prefixes=ALL %s
   7
   8 function test_real4(x)
   9   real :: x, test_real4
  10   test_real4 = atanh(x)
  11 end function
  12
  13 ! ALL-LABEL: @_QPtest_real4
  14 ! ALL: {{%[A-Za-z0-9._]+}} = fir.call @atanhf({{%[A-Za-z0-9._]+}}) {{.*}}: (f32) -> f32
  15
  16 function test_real8(x)
  17   real(8) :: x, test_real8
  18   test_real8 = atanh(x)
  19 end function
  20
  21 ! ALL-LABEL: @_QPtest_real8
  22 ! ALL: {{%[A-Za-z0-9._]+}} = fir.call @atanh({{%[A-Za-z0-9._]+}}) {{.*}}: (f64) -> f64
  23
  24 function test_complex4(x)
  25   complex :: x, test_complex4
  26   test_complex4 = atanh(x)
  27 end function
  28
  29 ! ALL-LABEL: @_QPtest_complex4
  30 ! ALL: {{%[A-Za-z0-9._]+}} = fir.call @catanhf({{%[A-Za-z0-9._]+}}) {{.*}}: (complex<f32>) -> complex<f32>
  31
  32 function test_complex8(x)
  33   complex(kind=8) :: x, test_real8
  34   test_complex8 = atanh(x)
  35 end function
  36
  37 ! ALL-LABEL: @_QPtest_complex8
  38 ! ALL: {{%[A-Za-z0-9._]+}} = fir.call @catanh({{%[A-Za-z0-9._]+}}) {{.*}}: (complex<f64>) -> complex<f64>