add cos tests

JeffIrwin · Oct 27, 2024 · 49fa24a · 49fa24a
1 parent 0faa6a7
commit 49fa24a
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/tests/test.f90 b/src/tests/test.f90
@@ -640,6 +640,16 @@ subroutine unit_test_intr_fns(npass, nfail)
 			abs(eval_f64('sum(exp([0.0, 1.0]));') - sum(exp([0.d0, 1.0d0])))  < tol,  &
 			abs(eval_f64('sum(exp([0.5, 1.0]));') - sum(exp([0.5d0, 1.0d0]))) < tol,  &
 			abs(eval_f64('sum(exp([2.0, 1.0]));') - sum(exp([2.d0, 1.0d0])))  < tol,  &
+			abs(eval_f32('cos(0.0f);') - 1.0) < tol,  &
+			abs(eval_f32('cos(1.0f);') - cos(1.0)) < tol,  &
+			abs(eval_f64('cos(0.0);') - 1.0d0) < tol,  &
+			abs(eval_f64('cos(1.0);') - cos(1.0d0)) < tol,  &
+			abs(eval_f32('sum(cos([0.0f, 1.0f]));') - sum(cos([0.0, 1.0])))   < ftol,  &
+			abs(eval_f32('sum(cos([0.5f, 1.0f]));') - sum(cos([0.5, 1.0])))   < ftol,  &
+			abs(eval_f32('sum(cos([2.0f, 1.0f]));') - sum(cos([2.0, 1.0])))   < ftol,  &
+			abs(eval_f64('sum(cos([0.0, 1.0]));') - sum(cos([0.d0, 1.0d0])))  < tol,  &
+			abs(eval_f64('sum(cos([0.5, 1.0]));') - sum(cos([0.5d0, 1.0d0]))) < tol,  &
+			abs(eval_f64('sum(cos([2.0, 1.0]));') - sum(cos([2.d0, 1.0d0])))  < tol,  &
 			eval_i32('min(3, 2);')  == 2,  &
 			eval_i32('min(2, 2);')  == 2,  &
 			eval_i32('min(2, 3, 4);')  == 2,  &