added yes_ontarget = .true. to the failed tests. i.e., there was an u…

…ndefined variable in the test scripts.
sissaschool · Sep 13, 2023 · 62ef5c5 · 62ef5c5
1 parent aaa923d
commit 62ef5c5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/a_module_tests/test_upwinvp.f90 b/src/a_module_tests/test_upwinvp.f90
@@ -14,12 +14,15 @@
 ! along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 program test_upwinvp
+    use constants, only: yes_ontarget
     implicit none
     integer, parameter :: nel = 3, indt = 4
     real*8 :: psi(indt, nel, 2), ainv(nel), ainvn(nel), winv(nel, indt)
     integer :: i, j, k
     real*8, parameter :: eps = 1.0e-10  ! A small value for numerical comparison
-
+
+    yes_ontarget = .true.
+
     ! Initialize test data
     winv = 0.0
     do i = 1, indt

diff --git a/src/a_module_tests/test_upwinvp_complex.f90 b/src/a_module_tests/test_upwinvp_complex.f90
@@ -14,12 +14,15 @@
 ! along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 program test_upwinvp_complex
+    use constants, only: yes_ontarget
     implicit none
     integer, parameter :: nel = 3, indt = 4
     complex*16 :: psi(indt, nel, 2), ainv(nel), ainvn(nel), winv(nel, indt), expected(nel, indt)
     integer :: i, j, k
     real*8, parameter :: eps = 1.0e-10  ! A small value for numerical comparison
-
+
+    yes_ontarget = .true.
+
     ! Initialize test data
     winv = cmplx(0.0, 0.0)
     do i = 1, indt