flang/test/Lower/Intrinsics/gamma.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 = gamma(x)
  11 end function
  12
  13 ! ALL-LABEL: @_QPtest_real4
  14 ! ALL: {{%[A-Za-z0-9._]+}} = fir.call @tgammaf({{%[A-Za-z0-9._]+}}) {{.*}}: (f32) -> f32
  15
  16 function test_real8(x)
  17   real(8) :: x, test_real8
  18   test_real8 = gamma(x)
  19 end function
  20
  21 ! ALL-LABEL: @_QPtest_real8
  22 ! ALL: {{%[A-Za-z0-9._]+}} = fir.call @tgamma({{%[A-Za-z0-9._]+}}) {{.*}}: (f64) -> f64