mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-17 02:41:43 +02:00
Fix some memory leaks in the tests
This commit is contained in:
parent
6ba83ee33f
commit
daf85efe67
@ -2423,6 +2423,7 @@ assert (rc == QMCKL_SUCCESS);
|
|||||||
for (int64_t i=0 ; i < nucl_num ; ++i) {
|
for (int64_t i=0 ; i < nucl_num ; ++i) {
|
||||||
assert(nucleus_shell_num_test[i] == nucleus_shell_num[i]);
|
assert(nucleus_shell_num_test[i] == nucleus_shell_num[i]);
|
||||||
}
|
}
|
||||||
|
free(nucleus_shell_num_test);
|
||||||
|
|
||||||
shell_ang_mom_test = (int32_t*) malloc ( shell_num * sizeof(int32_t));
|
shell_ang_mom_test = (int32_t*) malloc ( shell_num * sizeof(int32_t));
|
||||||
rc = qmckl_get_ao_basis_shell_ang_mom (context, shell_ang_mom_test, shell_num);
|
rc = qmckl_get_ao_basis_shell_ang_mom (context, shell_ang_mom_test, shell_num);
|
||||||
|
@ -577,6 +577,9 @@ if (x < 0) {
|
|||||||
assert (strcmp(function_name,"qmckl_transpose") == 0);
|
assert (strcmp(function_name,"qmckl_transpose") == 0);
|
||||||
assert (strcmp(message,"Success") == 0);
|
assert (strcmp(message,"Success") == 0);
|
||||||
|
|
||||||
|
exit_code = qmckl_context_destroy(context);
|
||||||
|
assert(exit_code == QMCKL_SUCCESS);
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
#+end_src
|
#+end_src
|
||||||
|
Loading…
Reference in New Issue
Block a user