Add new tests

gha3mi · Jan 25, 2024 · 972b465 · 972b465
1 parent f058ab2
commit 972b465
Showing 1 changed file with 16 additions and 4 deletions.
diff --git 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