From b6aed219fd3f8593aa6564604d65bdfd2e2f7f30 Mon Sep 17 00:00:00 2001
From: Seyed Ali Ghasemi <info@gha3mi.com>
Date: Tue, 30 Jan 2024 23:28:24 +0100
Subject: [PATCH] Rename dot_product to fdot_product in tests. - To avoid
 overloading the intrinsic dot_product. To be able to use   the intrinsic
 dot_product as a reference in the tests.

---
 test/test1.f90 | 18 +++++++++---------
 test/test2.f90 | 10 +++++-----
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/test/test1.f90 b/test/test1.f90
index d3b45b2..b9bb000 100644
--- a/test/test1.f90
+++ b/test/test1.f90
@@ -1,7 +1,7 @@
 program test_dot1
 
    use kinds
-   use fordot
+   use fordot, only: fdot_product => dot_product ! rename dot_product to fdot_product to avoid overloading
    use forunittest
 
    implicit none
@@ -22,28 +22,28 @@ program test_dot1
 
    a_ref = dot_product(u,v)
 
-   a = dot_product(u,v, option='m1')
+   a = fdot_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='m2')
+   a = fdot_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='m3')
+   a = fdot_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='m4')
+   a = fdot_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)
+   a = fdot_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)
+   a = fdot_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)
+   a = fdot_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)
+   a = fdot_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
diff --git a/test/test2.f90 b/test/test2.f90
index 7e1c020..fb180ef 100644
--- a/test/test2.f90
+++ b/test/test2.f90
@@ -1,7 +1,7 @@
 program test_dot2
 
    use kinds
-   use fordot
+   use fordot, only: fdot_product => dot_product ! rename dot_product to fdot_product to avoid overloading
    use forunittest
 
    implicit none
@@ -28,16 +28,16 @@ program test_dot2
 
    a_ref = dot_product(u,v)
 
-   a = dot_product(u,v, coarray=.true., option='m1')
+   a = fdot_product(u,v, coarray=.true., option='m1')
    if (im==1) call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot2.1')
 
-   a = dot_product(u,v, coarray=.true., option='m2')
+   a = fdot_product(u,v, coarray=.true., option='m2')
    if (im==1) call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot2.2')
 
-   a = dot_product(u,v, coarray=.true., option='m3')
+   a = fdot_product(u,v, coarray=.true., option='m3')
    if (im==1) call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot2.3')
 
-   a = dot_product(u,v, coarray=.true., option='m4')
+   a = fdot_product(u,v, coarray=.true., option='m4')
    if (im==1) call ut%check(a, a_ref, tol=1e-5_rk, msg='test_dot2.4')
 
 end program test_dot2