File 29.patch of Package libquo

From 013cbded3faef910ef39481bc64cc5a6adf4e89e Mon Sep 17 00:00:00 2001
From: Christoph Junghans <junghans@lanl.gov>
Date: Thu, 26 Oct 2017 11:25:24 -0600
Subject: [PATCH] comp_dgemv: fix return value

---
 demos/mpi-openmp/dgemv.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/demos/mpi-openmp/dgemv.c b/demos/mpi-openmp/dgemv.c
index 9db4a92..510b35a 100644
--- a/demos/mpi-openmp/dgemv.c
+++ b/demos/mpi-openmp/dgemv.c
@@ -113,6 +113,7 @@ matrix_destruct(matrix_t *mat)
             if (mat->values[r]) free(mat->values[r]);
         }
     }
+    return SUCCESS;
 }
 
 typedef struct dgemv_t {
@@ -349,6 +350,8 @@ comp_dgemv(dgemv_t *d)
     const double end = gettime();
 
     pprintf(emit, "# comp-dgemv-s=%lf\n", timediff(start, end));
+
+    return SUCCESS;
 }
 
 int
openSUSE Build Service is sponsored by