From 972b4653f21e79f6b95cd12792704537d7668a7f Mon Sep 17 00:00:00 2001 From: Seyed Ali Ghasemi Date: Thu, 25 Jan 2024 10:34:30 +0100 Subject: [PATCH] Add new tests --- test/test1.f90 | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) diff --git a/test/test1.f90 b/test/test1.f90 index d435e9a..d3b45b2 100644 --- a/test/test1.f90 +++ b/test/test1.f90 @@ -22,17 +22,29 @@ program test_dot1 a_ref = dot_product(u,v) - a = dot_product(u,v) + a = dot_product(u,v, option='m1') call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.1') - a = dot_product(u,v, option='m1') + a = dot_product(u,v, option='m2') call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.2') - a = dot_product(u,v, option='m2') + a = dot_product(u,v, option='m3') call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.3') - a = dot_product(u,v, option='m3') + a = dot_product(u,v, option='m4') call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.4') + a = dot_product(u,v, option='m1b', nblock=16) + call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.5') + + a = dot_product(u,v, option='m2b', nblock=16) + call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.6') + + a = dot_product(u,v, option='m3b', nblock=16) + call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.7') + + a = dot_product(u,v, option='m4b', nblock=16) + call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot1.8') + end program test_dot1