1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-11-19 20:42:50 +01:00

Reduce scope of fname and message

This commit is contained in:
Anthony Scemama 2023-01-26 17:46:39 +01:00
parent ffa7355299
commit ebed18a205

View File

@ -627,10 +627,10 @@ qmckl_exit_code
qmckl_check(qmckl_context context, qmckl_exit_code rc)
{
char fname[QMCKL_MAX_FUN_LEN];
char message[QMCKL_MAX_MSG_LEN];
if (rc != QMCKL_SUCCESS) {
char fname[QMCKL_MAX_FUN_LEN];
char message[QMCKL_MAX_MSG_LEN];
fprintf(stderr, "===========\nQMCKL ERROR\n%s\n", qmckl_string_of_error(rc));
qmckl_get_error(context, &rc, fname, message);
fprintf(stderr, "Function: %s\nMessage: %s\n===========\n", fname, message);