Commit 62cc26fc authored by Pavel Kus's avatar Pavel Kus Committed by Andreas Marek

checking values in multiple objects test

checking that the loaded values equal to the stored values
parent 9734ed1f
...@@ -127,6 +127,7 @@ program test ...@@ -127,6 +127,7 @@ program test
integer :: iter integer :: iter
character(len=5) :: iter_string character(len=5) :: iter_string
integer :: timings, debug, gpu
call read_input_parameters(na, nev, nblk, write_to_file) call read_input_parameters(na, nev, nblk, write_to_file)
call setup_mpi(myid, nprocs) call setup_mpi(myid, nprocs)
...@@ -209,6 +210,19 @@ program test ...@@ -209,6 +210,19 @@ program test
assert_elpa_ok(e2%setup()) assert_elpa_ok(e2%setup())
! test whether the user setting of e1 are correctly loade to e2
call e2%get("timings", timings, error)
call e2%get("debug", debug, error)
call e2%get("gpu", gpu, error)
if ((timings .ne. 1) .or. (debug .ne. 1) .or. (gpu .ne. 0)) then
print *, "Parameters not stored or loaded correctly. Aborting...", timings, debug, gpu
stop 1
if(myid == 0) print *, "parameters of e1" if(myid == 0) print *, "parameters of e1"
call e1%print_settings(error) call e1%print_settings(error)
assert_elpa_ok(error) assert_elpa_ok(error)
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment