From 83d965ee5b24dfd519dcb8c254ab587c5a599b5c Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Tue, 23 Jan 2018 17:16:52 +0100
Subject: [PATCH] More for sonarqube
---
compute/zbuild.c | 6 ++++--
compute/zgeadd.c | 6 ++++--
compute/zgelqf.c | 6 ++++--
compute/zgelqf_param.c | 6 ++++--
compute/zgelqs.c | 6 ++++--
compute/zgelqs_param.c | 6 ++++--
compute/zgels.c | 6 ++++--
compute/zgels_param.c | 6 ++++--
compute/zgemm.c | 6 ++++--
compute/zgeqrf.c | 6 ++++--
compute/zgeqrf_param.c | 6 ++++--
compute/zgeqrs.c | 6 ++++--
compute/zgeqrs_param.c | 6 ++++--
compute/zgesv_incpiv.c | 6 ++++--
compute/zgesv_nopiv.c | 6 ++++--
compute/zgesvd.c | 6 ++++--
compute/zgetrf_incpiv.c | 6 ++++--
compute/zgetrf_nopiv.c | 6 ++++--
compute/zgetrs_incpiv.c | 6 ++++--
compute/zgetrs_nopiv.c | 6 ++++--
compute/zheevd.c | 6 ++++--
compute/zhemm.c | 6 ++++--
compute/zher2k.c | 6 ++++--
compute/zherk.c | 6 ++++--
compute/zhetrd.c | 6 ++++--
compute/zlacpy.c | 6 ++++--
compute/zlange.c | 6 ++++--
compute/zlanhe.c | 6 ++++--
compute/zlansy.c | 6 ++++--
compute/zlantr.c | 6 ++++--
compute/zlascal.c | 6 ++++--
compute/zlaset.c | 6 ++++--
compute/zlauum.c | 6 ++++--
compute/zplghe.c | 6 ++++--
compute/zplgsy.c | 6 ++++--
compute/zplrnt.c | 6 ++++--
compute/zposv.c | 6 ++++--
compute/zpotrf.c | 6 ++++--
compute/zpotri.c | 6 ++++--
compute/zpotrimm.c | 6 ++++--
compute/zpotrs.c | 6 ++++--
compute/zsymm.c | 6 ++++--
compute/zsyr2k.c | 6 ++++--
compute/zsyrk.c | 6 ++++--
compute/zsysv.c | 6 ++++--
compute/zsytrf.c | 6 ++++--
compute/zsytrs.c | 6 ++++--
compute/ztpgqrt.c | 6 ++++--
compute/ztpqrt.c | 6 ++++--
compute/ztradd.c | 6 ++++--
compute/ztrmm.c | 6 ++++--
compute/ztrsm.c | 6 ++++--
compute/ztrsmpl.c | 6 ++++--
compute/ztrtri.c | 6 ++++--
compute/zunglq.c | 6 ++++--
compute/zunglq_param.c | 6 ++++--
compute/zungqr.c | 6 ++++--
compute/zungqr_param.c | 6 ++++--
compute/zunmlq.c | 6 ++++--
compute/zunmlq_param.c | 6 ++++--
compute/zunmqr.c | 6 ++++--
compute/zunmqr_param.c | 6 ++++--
62 files changed, 248 insertions(+), 124 deletions(-)
diff --git a/compute/zbuild.c b/compute/zbuild.c
index fc5599c48..e95654787 100644
--- a/compute/zbuild.c
+++ b/compute/zbuild.c
@@ -277,10 +277,12 @@ int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index 004588b7e..4bc293e2f 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -306,10 +306,12 @@ int MORSE_zgeadd_Tile_Async(MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index 9ae0047a3..3b9a447d3 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -254,10 +254,12 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index 1a798badd..d0b8b3d36 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -251,10 +251,12 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index 52bd4f38a..78acc2a26 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -279,10 +279,12 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index f16c1c523..28dc028e2 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -284,10 +284,12 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgels.c b/compute/zgels.c
index 4837fde3a..5c6fa8313 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -337,10 +337,12 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index af3d95fea..d8893a197 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -341,10 +341,12 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgemm.c b/compute/zgemm.c
index df7040acc..ca9fd9336 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -379,10 +379,12 @@ int MORSE_zgemm_Tile_Async(MORSE_enum transA, MORSE_enum transB,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index 42bb7a134..e2baf0a4f 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -253,10 +253,12 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index fd4025425..17acd0c69 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -260,10 +260,12 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index d2b8ce3a2..31820a504 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -279,10 +279,12 @@ int MORSE_zgeqrs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index a33475a6c..ecb20508e 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -276,10 +276,12 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index e1e0cd665..b6d282485 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -280,10 +280,12 @@ int MORSE_zgesv_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, M
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index ade93eae8..e1f5d33c4 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -272,10 +272,12 @@ int MORSE_zgesv_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index d84f67c96..662794846 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -429,10 +429,12 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index d483bb306..f8b17559d 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -257,10 +257,12 @@ int MORSE_zgetrf_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index fb111d0f5..689ca3d2e 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -248,10 +248,12 @@ int MORSE_zgetrf_nopiv_Tile_Async(MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index 40a51921e..d8a786e06 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -284,10 +284,12 @@ int MORSE_zgetrs_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index c77ac7a89..e1f5d857b 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -272,10 +272,12 @@ int MORSE_zgetrs_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zheevd.c b/compute/zheevd.c
index db74e871d..200d35460 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -361,10 +361,12 @@ int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zhemm.c b/compute/zhemm.c
index 7fed4ed46..37ca9b644 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -341,10 +341,12 @@ int MORSE_zhemm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zher2k.c b/compute/zher2k.c
index 0ed13b198..cd021b2fa 100644
--- a/compute/zher2k.c
+++ b/compute/zher2k.c
@@ -343,10 +343,12 @@ int MORSE_zher2k_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zherk.c b/compute/zherk.c
index ceb31966c..abb9a3594 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -318,10 +318,12 @@ int MORSE_zherk_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index 8ead2512b..8d74ec773 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -354,10 +354,12 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index 305ba37c3..fbcc00388 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -263,10 +263,12 @@ int MORSE_zlacpy_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlange.c b/compute/zlange.c
index f2c18ac99..a523fad21 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -260,10 +260,12 @@ int MORSE_zlange_Tile_Async(MORSE_enum norm, MORSE_desc_t *A, double *value,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlanhe.c b/compute/zlanhe.c
index 70a0310a4..9bfa98331 100644
--- a/compute/zlanhe.c
+++ b/compute/zlanhe.c
@@ -264,10 +264,12 @@ int MORSE_zlanhe_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, d
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlansy.c b/compute/zlansy.c
index 00bdd602f..1cff55358 100644
--- a/compute/zlansy.c
+++ b/compute/zlansy.c
@@ -264,10 +264,12 @@ int MORSE_zlansy_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, d
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlantr.c b/compute/zlantr.c
index 5657add72..079e2f92d 100644
--- a/compute/zlantr.c
+++ b/compute/zlantr.c
@@ -287,10 +287,12 @@ int MORSE_zlantr_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlascal.c b/compute/zlascal.c
index 25f0f4b4c..68b84cdaa 100644
--- a/compute/zlascal.c
+++ b/compute/zlascal.c
@@ -245,10 +245,12 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlaset.c b/compute/zlaset.c
index 648a436b0..9b0d55720 100644
--- a/compute/zlaset.c
+++ b/compute/zlaset.c
@@ -254,10 +254,12 @@ int MORSE_zlaset_Tile_Async(MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zlauum.c b/compute/zlauum.c
index 5e172d6c3..963ad6e18 100644
--- a/compute/zlauum.c
+++ b/compute/zlauum.c
@@ -256,10 +256,12 @@ int MORSE_zlauum_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zplghe.c b/compute/zplghe.c
index db0711fc0..5836630ef 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -253,10 +253,12 @@ int MORSE_zplghe_Tile_Async( double bump,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index 4776d8d22..832a5a785 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -255,10 +255,12 @@ int MORSE_zplgsy_Tile_Async( MORSE_Complex64_t bump,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index dd9f6f876..9494b1a3c 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -244,10 +244,12 @@ int MORSE_zplrnt_Tile_Async( MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zposv.c b/compute/zposv.c
index d294d4c79..697973069 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -297,10 +297,12 @@ int MORSE_zposv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zpotrf.c b/compute/zpotrf.c
index a32124f64..4a718629e 100644
--- a/compute/zpotrf.c
+++ b/compute/zpotrf.c
@@ -267,10 +267,12 @@ int MORSE_zpotrf_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zpotri.c b/compute/zpotri.c
index 01b5990e4..7378823a4 100644
--- a/compute/zpotri.c
+++ b/compute/zpotri.c
@@ -256,10 +256,12 @@ int MORSE_zpotri_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index 85475ad3a..2a97aa4a3 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -278,10 +278,12 @@ int MORSE_zpotrimm_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index d7820e75a..a78834af3 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -274,10 +274,12 @@ int MORSE_zpotrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zsymm.c b/compute/zsymm.c
index 2962ba08a..45603d2b3 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -341,10 +341,12 @@ int MORSE_zsymm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zsyr2k.c b/compute/zsyr2k.c
index 0865f65e6..2b3ae43b8 100644
--- a/compute/zsyr2k.c
+++ b/compute/zsyr2k.c
@@ -343,10 +343,12 @@ int MORSE_zsyr2k_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zsyrk.c b/compute/zsyrk.c
index f4982277d..f9ed92792 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -318,10 +318,12 @@ int MORSE_zsyrk_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zsysv.c b/compute/zsysv.c
index cf499487e..d787cd332 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -288,10 +288,12 @@ int MORSE_zsysv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zsytrf.c b/compute/zsytrf.c
index 6905b7c33..04cfd22f2 100644
--- a/compute/zsytrf.c
+++ b/compute/zsytrf.c
@@ -253,10 +253,12 @@ int MORSE_zsytrf_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index fd7013dd9..cc95b1c19 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -267,10 +267,12 @@ int MORSE_zsytrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index 5c7aa8c6a..8bb275395 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -353,10 +353,12 @@ int MORSE_ztpgqrt_Tile_Async( int L,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(V1) != MORSE_SUCCESS) {
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index c8e238201..ea1db7270 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -323,10 +323,12 @@ int MORSE_ztpqrt_Tile_Async( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/ztradd.c b/compute/ztradd.c
index 5e5fdce40..ef66d816d 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -322,10 +322,12 @@ int MORSE_ztradd_Tile_Async(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index 5e838bf44..099c9cf00 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -341,10 +341,12 @@ int MORSE_ztrmm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index b881dc90e..1619d391b 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -339,10 +339,12 @@ int MORSE_ztrsm_Tile_Async(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index 1e37ec89b..50a37e418 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -269,10 +269,12 @@ int MORSE_ztrsmpl_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/ztrtri.c b/compute/ztrtri.c
index 30c48d1a5..d911cf16f 100644
--- a/compute/ztrtri.c
+++ b/compute/ztrtri.c
@@ -274,10 +274,12 @@ int MORSE_ztrtri_Tile_Async(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zunglq.c b/compute/zunglq.c
index b24f1ce45..07546a9e4 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -270,10 +270,12 @@ int MORSE_zunglq_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 76aafb555..3f14ca1f3 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -267,10 +267,12 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zungqr.c b/compute/zungqr.c
index 3d89e1a45..ac15a493d 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -269,10 +269,12 @@ int MORSE_zungqr_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index df3dd2b1c..02b6079f9 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -266,10 +266,12 @@ int MORSE_zungqr_param_Tile_Async( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index b0821c4c6..3cf4090f2 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -323,10 +323,12 @@ int MORSE_zunmlq_Tile_Async(MORSE_enum side, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 4d79bec12..e85697164 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -322,10 +322,12 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index 1b6a6b6ba..d292d049b 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -327,10 +327,12 @@ int MORSE_zunmqr_Tile_Async(MORSE_enum side, MORSE_enum trans,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index 6f5707ec6..f0ccc22d9 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -329,10 +329,12 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree,
return MORSE_ERR_UNALLOCATED;
}
/* Check sequence status */
- if (sequence->status == MORSE_SUCCESS)
+ if (sequence->status == MORSE_SUCCESS) {
request->status = MORSE_SUCCESS;
- else
+ }
+ else {
return morse_request_fail(sequence, request, MORSE_ERR_SEQUENCE_FLUSHED);
+ }
/* Check descriptors for correctness */
if (morse_desc_check(A) != MORSE_SUCCESS) {
--
GitLab