flang/test/Lower/Intrinsics/math-runtime-options.f90

   1 ! RUN: bbc -emit-fir --math-runtime=fast -outline-intrinsics %s -o - | FileCheck %s --check-prefixes="FIR,FAST"
   2 ! RUN: %flang_fc1 -emit-fir -mllvm -math-runtime=fast -mllvm -outline-intrinsics %s -o - | FileCheck %s --check-prefixes="FIR,FAST"
   3 ! RUN: bbc -emit-fir --math-runtime=relaxed -outline-intrinsics %s -o - | FileCheck %s --check-prefixes="FIR,RELAXED"
   4 ! RUN: %flang_fc1 -emit-fir -mllvm -math-runtime=relaxed -mllvm -outline-intrinsics %s -o - | FileCheck %s --check-prefixes="FIR,RELAXED"
   5 ! RUN: bbc -emit-fir --math-runtime=precise -outline-intrinsics %s -o - | FileCheck %s --check-prefixes="FIR,PRECISE"
   6 ! RUN: %flang_fc1 -emit-fir -mllvm -math-runtime=precise -mllvm -outline-intrinsics %s -o - | FileCheck %s --check-prefixes="FIR,PRECISE"
   7
   8 ! CHECK-LABEL: cos_testr
   9 subroutine cos_testr(a, b)
  10   real :: a, b
  11 ! FIR: fir.call @fir.cos.contract.f32.f32
  12   b = cos(a)
  13 end subroutine
  14
  15 ! CHECK-LABEL: cos_testd
  16 subroutine cos_testd(a, b)
  17   real(kind=8) :: a, b
  18 ! FIR: fir.call @fir.cos.contract.f64.f64
  19   b = cos(a)
  20 end subroutine
  21
  22 ! FIR: @fir.cos.contract.f32.f32(%arg0: f32) -> f32 attributes
  23 ! FAST: math.cos %arg0 fastmath<contract> : f32
  24 ! RELAXED: math.cos %arg0 fastmath<contract> : f32
  25 ! PRECISE: fir.call @cosf(%arg0) fastmath<contract> : (f32) -> f32
  26 ! FIR: @fir.cos.contract.f64.f64(%arg0: f64) -> f64
  27 ! FAST: math.cos %arg0 fastmath<contract> : f64
  28 ! RELAXED: math.cos %arg0 fastmath<contract> : f64
  29 ! PRECISE: fir.call @cos(%arg0) fastmath<contract> : (f64) -> f64