blob: 1ec9cc719a4182037ba05b03ce6cbe766106fa3e [file] [log] [blame]
! 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 @_FortranAJnF128({{.*}}){{.*}}: (i32, f128) -> f128
integer :: n
real(16) :: a, b
b = bessel_jn(n, a)
end