gemv null handling

Author: SwayamInSync

src/csrc/quadblas_interface.cpp

@@ -46,14 +46,18 @@ qblas_gemv(char layout, char trans, size_t m, size_t n,
            Sleef_quad *beta, Sleef_quad *y, size_t incy)
 {
     if (m == 0 || n == 0) {
-        if (y && beta) {
-            int do_trans = (trans == 'T' || trans == 't' || trans == 'C' || trans == 'c');
-            size_t y_len = do_trans ? n : m;
-            Sleef_quad zero = Sleef_cast_from_doubleq1(0.0);
-            int beta_zero = Sleef_icmpeqq1(*beta, zero);
-            for (size_t i = 0; i < y_len; i++) {
-                y[i * incy] = beta_zero ? zero : Sleef_mulq1_u05(*beta, y[i * incy]);
-            }
+        int do_trans = (trans == 'T' || trans == 't' || trans == 'C' || trans == 'c');
+        size_t y_len = do_trans ? n : m;
+        if (y_len == 0) {
+            return 0;
+        }
+        if (!y || !beta) {
+            return -1;
+        }
+        Sleef_quad zero = Sleef_cast_from_doubleq1(0.0);
+        int beta_zero = Sleef_icmpeqq1(*beta, zero);
+        for (size_t i = 0; i < y_len; i++) {
+            y[i * incy] = beta_zero ? zero : Sleef_mulq1_u05(*beta, y[i * incy]);
         }
         return 0;
     }