diff --git a/driver/level3/gemm_batch_thread.c b/driver/level3/gemm_batch_thread.c
index 45d6977ba2..7cc903ff98 100644
--- a/driver/level3/gemm_batch_thread.c
+++ b/driver/level3/gemm_batch_thread.c
@@ -79,10 +79,32 @@ static int inner_small_matrix_thread(blas_arg_t *args, BLASLONG *range_m, BLASLO
 int CNAME(blas_arg_t * args_array, BLASLONG nums){
   XFLOAT *buffer;
   XFLOAT *sa, *sb;
+  blasint info;
   int nthreads=1;
   int (*routine)(blas_arg_t *, void *, void *, XFLOAT *, XFLOAT *, BLASLONG);
   int i=0, /*j,*/ current_nums;
 
+#ifndef COMPLEX
+#ifdef XDOUBLE
+#define ERROR_NAME "QGEMM_BATCH "
+#elif defined(DOUBLE)
+#define ERROR_NAME "DGEMM_BATCH "
+#elif defined(BFLOAT16)
+#define ERROR_NAME "SBGEMM_BATCH "
+#else
+#define ERROR_NAME "SGEMM_BATCH "
+#endif
+#else
+#ifdef XDOUBLE
+#define ERROR_NAME "XGEMM_BATCH "
+#elif defined(DOUBLE)
+#define ERROR_NAME "ZGEMM_BATCH "
+#else
+#define ERROR_NAME "CGEMM_BATCH "
+#endif
+#endif
+
+
 #ifdef SMP
   blas_queue_t * queue=NULL;
 #endif
@@ -90,6 +112,12 @@ int CNAME(blas_arg_t * args_array, BLASLONG nums){
   if(nums <=0 ) return 0;
 
   buffer = (XFLOAT *)blas_memory_alloc(0);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return(1); 
+  }
+
   sa = (XFLOAT *)((BLASLONG)buffer +GEMM_OFFSET_A);
   sb = (XFLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
   
@@ -119,6 +147,9 @@ int CNAME(blas_arg_t * args_array, BLASLONG nums){
     queue=(blas_queue_t *)malloc((nums+1) * sizeof(blas_queue_t));
     if(queue == NULL){
       openblas_warning(0, "memory alloc failed!\n");
+      if (buffer) blas_memory_free(buffer);
+      info = -999;
+      BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
       return(1);
     }
     for(i=0; i<nums; i++){
diff --git a/interface/gbmv.c b/interface/gbmv.c
index 8beea38ab3..3abbbd0aaa 100644
--- a/interface/gbmv.c
+++ b/interface/gbmv.c
@@ -226,6 +226,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0) y -= (leny-1)*incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (m * n < 250000 || kl+ku < 15 )
diff --git a/interface/gemm.c b/interface/gemm.c
index 6cb351695b..2aba7bed6c 100644
--- a/interface/gemm.c
+++ b/interface/gemm.c
@@ -699,6 +699,11 @@ else
 #endif
 
   buffer = (XFLOAT *)blas_memory_alloc(0);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 //For LOONGARCH64, applying an offset to the buffer is essential
 //for minimizing cache conflicts and optimizing performance.
diff --git a/interface/sbmv.c b/interface/sbmv.c
index e9c3f9d9cd..019c72c13c 100644
--- a/interface/sbmv.c
+++ b/interface/sbmv.c
@@ -198,6 +198,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMPTEST
   nthreads = num_cpu_avail(2);
diff --git a/interface/spmv.c b/interface/spmv.c
index 7f06420abc..c2aca37863 100644
--- a/interface/spmv.c
+++ b/interface/spmv.c
@@ -182,6 +182,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMPTEST
   nthreads = num_cpu_avail(2);
diff --git a/interface/spr.c b/interface/spr.c
index 478d05396f..dbe090b15d 100644
--- a/interface/spr.c
+++ b/interface/spr.c
@@ -192,6 +192,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/spr2.c b/interface/spr2.c
index 74754efee0..90ca1c965c 100644
--- a/interface/spr2.c
+++ b/interface/spr2.c
@@ -196,6 +196,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/symm.c b/interface/symm.c
index e0999b262e..c1ab196080 100644
--- a/interface/symm.c
+++ b/interface/symm.c
@@ -405,6 +405,11 @@ if (strcmp(gotoblas_corename(), "armv9sme") == 0
   FUNCTION_PROFILE_START();
 
   buffer = (FLOAT *)blas_memory_alloc(0);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A);
   sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
diff --git a/interface/symv.c b/interface/symv.c
index 4ca8900547..7562526204 100644
--- a/interface/symv.c
+++ b/interface/symv.c
@@ -180,6 +180,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (n <200)
diff --git a/interface/syr.c b/interface/syr.c
index 3235282ae5..a7581740f7 100644
--- a/interface/syr.c
+++ b/interface/syr.c
@@ -195,6 +195,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/syr2.c b/interface/syr2.c
index a121441f5f..795958a027 100644
--- a/interface/syr2.c
+++ b/interface/syr2.c
@@ -197,6 +197,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/syr2k.c b/interface/syr2k.c
index 70fc4f290e..4b005d0880 100644
--- a/interface/syr2k.c
+++ b/interface/syr2k.c
@@ -393,6 +393,11 @@ if (strcmp(gotoblas_corename(), "armv9sme") == 0
   FUNCTION_PROFILE_START();
 
   buffer = (FLOAT *)blas_memory_alloc(0);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A);
   sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
diff --git a/interface/syrk.c b/interface/syrk.c
index be92c207c3..bfce536a06 100644
--- a/interface/syrk.c
+++ b/interface/syrk.c
@@ -376,6 +376,11 @@ if (strcmp(gotoblas_corename(), "armv9sme") == 0
   FUNCTION_PROFILE_START();
 
   buffer = (FLOAT *)blas_memory_alloc(0);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A);
   sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
diff --git a/interface/tbmv.c b/interface/tbmv.c
index da9d3a6bab..0317a06d25 100644
--- a/interface/tbmv.c
+++ b/interface/tbmv.c
@@ -223,6 +223,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/tbsv.c b/interface/tbsv.c
index b95f37389c..7f4393c180 100644
--- a/interface/tbsv.c
+++ b/interface/tbsv.c
@@ -202,6 +202,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   (tbsv[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer);
 
diff --git a/interface/tpmv.c b/interface/tpmv.c
index 5b0168f3ba..d818f30c62 100644
--- a/interface/tpmv.c
+++ b/interface/tpmv.c
@@ -221,6 +221,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/tpsv.c b/interface/tpsv.c
index 5357a0c798..09e6c334df 100644
--- a/interface/tpsv.c
+++ b/interface/tpsv.c
@@ -193,6 +193,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   (tpsv[(trans<<2) | (uplo<<1) | unit])(n, a, x, incx, buffer);
 
diff --git a/interface/trmv.c b/interface/trmv.c
index e881b5d93f..d9beffd5a2 100644
--- a/interface/trmv.c
+++ b/interface/trmv.c
@@ -218,6 +218,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/trsm.c b/interface/trsm.c
index 3313fe4b3f..1395e88f59 100644
--- a/interface/trsm.c
+++ b/interface/trsm.c
@@ -397,6 +397,11 @@ if (strcmp(gotoblas_corename(), "armv9sme") == 0
   FUNCTION_PROFILE_START();
 
   buffer = (FLOAT *)blas_memory_alloc(0);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   sa = (FLOAT *)((BLASLONG)buffer + GEMM_OFFSET_A);
   sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
diff --git a/interface/trsv.c b/interface/trsv.c
index 7a035de18d..d1c069fc45 100644
--- a/interface/trsv.c
+++ b/interface/trsv.c
@@ -197,6 +197,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   (trsv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
 
diff --git a/interface/zgbmv.c b/interface/zgbmv.c
index 1b0c958766..09e5b2b44d 100644
--- a/interface/zgbmv.c
+++ b/interface/zgbmv.c
@@ -251,6 +251,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0) y -= (leny - 1) * incy * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (m * n  < 125000 || ku + kl < 15) 
diff --git a/interface/zhbmv.c b/interface/zhbmv.c
index 4abe33878a..4ee7cc73b8 100644
--- a/interface/zhbmv.c
+++ b/interface/zhbmv.c
@@ -204,6 +204,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0 ) y -= (n - 1) * incy * COMPSIZE;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMPBUG
   nthreads = num_cpu_avail(2);
diff --git a/interface/zhemv.c b/interface/zhemv.c
index 6186be3718..3f5785c916 100644
--- a/interface/zhemv.c
+++ b/interface/zhemv.c
@@ -199,6 +199,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, void *VALPHA
   if (incy < 0 ) y -= (n - 1) * incy * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (n<MULTI_THREAD_MINIMAL) {
diff --git a/interface/zher.c b/interface/zher.c
index 466f4ca026..ce836559f5 100644
--- a/interface/zher.c
+++ b/interface/zher.c
@@ -177,6 +177,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (n < 100)
diff --git a/interface/zher2.c b/interface/zher2.c
index 8222bca421..c6999b4bf6 100644
--- a/interface/zher2.c
+++ b/interface/zher2.c
@@ -186,6 +186,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, void *VALPHA
   if (incy < 0 ) y -= (n - 1) * incy * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (n < 100)
diff --git a/interface/zhpmv.c b/interface/zhpmv.c
index 40e1e77042..c2812f49e4 100644
--- a/interface/zhpmv.c
+++ b/interface/zhpmv.c
@@ -194,6 +194,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0 ) y -= (n - 1) * incy * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/zhpr.c b/interface/zhpr.c
index 53689a3ab3..264c18fdeb 100644
--- a/interface/zhpr.c
+++ b/interface/zhpr.c
@@ -175,6 +175,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (n < 100)
diff --git a/interface/zhpr2.c b/interface/zhpr2.c
index 1f3c90563e..5e286e7789 100644
--- a/interface/zhpr2.c
+++ b/interface/zhpr2.c
@@ -187,6 +187,11 @@ void CNAME(enum CBLAS_ORDER order,
   if (incy < 0 ) y -= (n - 1) * incy * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   if (n < 100)
diff --git a/interface/zsbmv.c b/interface/zsbmv.c
index ee09ea64f6..fd71bc59e9 100644
--- a/interface/zsbmv.c
+++ b/interface/zsbmv.c
@@ -139,6 +139,11 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT  *ALPHA, FLOAT *a, blasint *
   if (incy < 0 ) c -= (n - 1) * incy * COMPSIZE;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMPTEST
   nthreads = num_cpu_avail(2);
diff --git a/interface/zspmv.c b/interface/zspmv.c
index a10cc30627..57f2fbfdf2 100644
--- a/interface/zspmv.c
+++ b/interface/zspmv.c
@@ -128,6 +128,11 @@ void NAME(char *UPLO, blasint *N, FLOAT  *ALPHA, FLOAT *a,
   if (incy < 0 ) c -= (n - 1) * incy * COMPSIZE;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMPTEST
   nthreads = num_cpu_avail(2);
diff --git a/interface/zspr.c b/interface/zspr.c
index 74fd9db89f..339ad801d8 100644
--- a/interface/zspr.c
+++ b/interface/zspr.c
@@ -120,6 +120,11 @@ void NAME(char *UPLO, blasint *N, FLOAT  *ALPHA,
   if (incx < 0 ) x -= (n - 1) * incx;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/zspr2.c b/interface/zspr2.c
index 7d6d2f1a09..74a1b24676 100644
--- a/interface/zspr2.c
+++ b/interface/zspr2.c
@@ -123,6 +123,11 @@ void NAME(char *UPLO, blasint *N, FLOAT  *ALPHA,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/zsymv.c b/interface/zsymv.c
index ddbb3602d0..cd5afea453 100644
--- a/interface/zsymv.c
+++ b/interface/zsymv.c
@@ -118,6 +118,11 @@ void NAME(char *UPLO, blasint *N, FLOAT  *ALPHA, FLOAT *a, blasint *LDA,
   if (incy < 0 ) c -= (n - 1) * incy * COMPSIZE;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/zsyr.c b/interface/zsyr.c
index 48cdc49bea..418f81431f 100644
--- a/interface/zsyr.c
+++ b/interface/zsyr.c
@@ -205,6 +205,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, void* valpha, FL
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/zsyr2.c b/interface/zsyr2.c
index 616d58878f..c892fc43e7 100644
--- a/interface/zsyr2.c
+++ b/interface/zsyr2.c
@@ -125,6 +125,11 @@ void NAME(char *UPLO, blasint *N, FLOAT  *ALPHA,
   if (incy < 0 ) y -= (n - 1) * incy;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/ztbmv.c b/interface/ztbmv.c
index c344c718bd..dd0dd72a2d 100644
--- a/interface/ztbmv.c
+++ b/interface/ztbmv.c
@@ -238,6 +238,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/ztbsv.c b/interface/ztbsv.c
index e51915d18f..bb912be076 100644
--- a/interface/ztbsv.c
+++ b/interface/ztbsv.c
@@ -211,6 +211,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   (tbsv[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer);
 
diff --git a/interface/ztpmv.c b/interface/ztpmv.c
index 0a18eb2184..f199697f03 100644
--- a/interface/ztpmv.c
+++ b/interface/ztpmv.c
@@ -229,6 +229,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
 #ifdef SMP
   nthreads = num_cpu_avail(2);
diff --git a/interface/ztpsv.c b/interface/ztpsv.c
index 4e927bccd6..d657ce7f9e 100644
--- a/interface/ztpsv.c
+++ b/interface/ztpsv.c
@@ -202,6 +202,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   (tpsv[(trans<<2) | (uplo<<1) | unit])(n, a, x, incx, buffer);
 
diff --git a/interface/ztrsv.c b/interface/ztrsv.c
index 539d7e7a5d..51bd2f8e69 100644
--- a/interface/ztrsv.c
+++ b/interface/ztrsv.c
@@ -208,6 +208,11 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
   if (incx < 0 ) x -= (n - 1) * incx * 2;
 
   buffer = (FLOAT *)blas_memory_alloc(1);
+  if (!buffer) {
+    info = -999;
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    return;
+  }
 
   (trsv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);