From 8dbda5f2a2b60cc4eca4980511d32595dd6b1a2f Mon Sep 17 00:00:00 2001 From: kousuke-nakano <37653569+kousuke-nakano@users.noreply.github.com> Date: Wed, 13 Sep 2023 21:11:22 +0900 Subject: [PATCH] added ! sleep to avoid unexpected corruptions. --- src/a_module_tests/test_upwinvp.f90 | 3 +++ src/a_module_tests/test_upwinvp_complex.f90 | 3 +++ 2 files changed, 6 insertions(+) diff --git a/src/a_module_tests/test_upwinvp.f90 b/src/a_module_tests/test_upwinvp.f90 index d9de578..7bad072 100644 --- a/src/a_module_tests/test_upwinvp.f90 +++ b/src/a_module_tests/test_upwinvp.f90 @@ -23,6 +23,9 @@ program test_upwinvp yes_ontarget = .true. + ! sleep to avoid unexpected corruptions. + call sleep(2) + ! 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 index 766ac02..94b137e 100644 --- a/src/a_module_tests/test_upwinvp_complex.f90 +++ b/src/a_module_tests/test_upwinvp_complex.f90 @@ -23,6 +23,9 @@ program test_upwinvp_complex yes_ontarget = .true. + ! sleep to avoid unexpected corruptions. + call sleep(1) + ! Initialize test data winv = cmplx(0.0, 0.0) do i = 1, indt