log10_real16.f90 | Explore in Territory

! REQUIRES: flang-supports-f128-math
! RUN: bbc -emit-fir %s -o - | FileCheck %s
! RUN: bbc --math-runtime=precise -emit-fir %s -o - | FileCheck %s
! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s

! CHECK: fir.call @_FortranALog10F128({{.*}}){{.*}}: (f128) -> f128
  real(16) :: a, b
  b = log10(a)
end

llvm/flang/test/Lower/Intrinsics/log10_real16.f90