2 c Derived from g77.f-torture/execute/intrinsic-unix-bessel.f
3 c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
6 double precision dx
, da
11 a
= BESJN
(m
,x
) ! { dg
-error
"incorrect type" "incorrect type" }
12 a
= BESYN
(m
,x
) ! { dg
-error
"incorrect type" "incorrect type" }
13 da
= DBESJN
(m
,dx
) ! { dg
-error
"incorrect type" "incorrect type" }
14 da
= DBESYN
(m
,dx
) ! { dg
-error
"incorrect type" "incorrect type" }