diff --git a/src/core.f90 b/src/core.f90
index 181c0024..b91c8ffe 100644
--- a/src/core.f90
+++ b/src/core.f90
@@ -161,6 +161,7 @@ module syntran__core_m
 	!      + log, log10, log2, (gamma, log_gamma?)
 	!      + trig: atan2, (sind, sec, cos, hyperbolic, ... ?)
 	!      + norm, product
+	!      + bessel_jn
 	!      + reshape
 	!      + system: multiple out args? iostat and stdout
 	!    * recursive user-defined fns
diff --git a/src/tests/test.f90 b/src/tests/test.f90
index 87e73971..bf9835ff 100644
--- a/src/tests/test.f90
+++ b/src/tests/test.f90
@@ -674,7 +674,7 @@ subroutine unit_test_intr_fns(npass, nfail)
 			abs(eval_f64('sum(tan([0.0, 1.0]));') - sum(tan([0.d0, 1.0d0])))  < tol,  &
 			abs(eval_f64('sum(tan([0.5, 1.0]));') - sum(tan([0.5d0, 1.0d0]))) < tol,  &
 			abs(eval_f64('sum(tan([2.0, 1.0]));') - sum(tan([2.d0, 1.0d0])))  < tol,  &
-			abs(eval_f32('acos(0.0f);') - acos(0.0)) < tol,  &
+			abs(eval_f32('acos(0.0f);') - acos(0.0)) < ftol,  &
 			abs(eval_f32('acos(1.0f);') - acos(1.0)) < ftol,  &
 			abs(eval_f64('acos(0.0);') - acos(0.d0)) < tol,  &
 			abs(eval_f64('acos(1.0);') - acos(1.0d0)) < tol,  &