Skip to content

Commit

Permalink
added ! sleep to avoid unexpected corruptions.
Browse files Browse the repository at this point in the history
  • Loading branch information
kousuke-nakano committed Sep 13, 2023
1 parent f08b41a commit 8dbda5f
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/a_module_tests/test_upwinvp.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 3 additions & 0 deletions src/a_module_tests/test_upwinvp_complex.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 8dbda5f

Please sign in to comment.