TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-22 20:36:01 +01:00
Code Issues Projects Releases Wiki Activity

Fix some memory leaks in the tests

Browse Source
This commit is contained in:
q-posev 2022-07-08 17:43:11 +02:00
parent 6ba83ee33f
commit daf85efe67
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
org/qmckl_ao.org
View File

@ -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);

3
org/qmckl_error.org
View File

@ -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