diff --git a/interface/gbmv.c b/interface/gbmv.c
index 8beea38ab..3abbbd0aa 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 6cb351695..2aba7bed6 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 e9c3f9d9c..019c72c13 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 7f06420ab..c2aca3786 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 478d05396..dbe090b15 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 74754efee..90ca1c965 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 e0999b262..c1ab19608 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 4ca890054..756252620 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 3235282ae..a7581740f 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 a121441f5..795958a02 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 70fc4f290..4b005d088 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 be92c207c..bfce536a0 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 da9d3a6ba..0317a06d2 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 b95f37389..7f4393c18 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 5b0168f3b..d818f30c6 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 5357a0c79..09e6c334d 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 e881b5d93..d9beffd5a 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/trsv.c b/interface/trsv.c
index 7a035de18..d1c069fc4 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 1b0c95876..09e5b2b44 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 4abe33878..4ee7cc73b 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 6186be371..3f5785c91 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 466f4ca02..ce836559f 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 8222bca42..c6999b4bf 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 40e1e7704..c2812f49e 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 53689a3ab..264c18fde 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 1f3c90563..5e286e778 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 ee09ea64f..fd71bc59e 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 a10cc3062..57f2fbfdf 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 74fd9db89..339ad801d 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 7d6d2f1a0..74a1b2467 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 ddbb3602d..cd5afea45 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 48cdc49be..418f81431 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 616d58878..c892fc43e 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 c344c718b..dd0dd72a2 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 e51915d18..bb912be07 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 0a18eb218..f199697f0 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 4e927bccd..d657ce7f9 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 539d7e7a5..51bd2f8e6 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);