xref: /llvm-project/flang/test/Lower/Intrinsics/bessel_jn_real16.f90 (revision e4604c35f5ccc4478c3b649edbc74b494098a442) 
1! REQUIRES: flang-supports-f128-math
2! RUN: bbc -emit-fir %s -o - | FileCheck %s
3! RUN: bbc --math-runtime=precise -emit-fir %s -o - | FileCheck %s
4! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
5
6! CHECK: fir.call @_FortranAJnF128({{.*}}){{.*}}: (i32, f128) -> f128
7  integer :: n
8  real(16) :: a, b
9  b = bessel_jn(n, a)
10end
11