diff --git a/interface/trtri.c b/interface/trtri.c index 0564bc183..71680e87d 100644 --- a/interface/trtri.c +++ b/interface/trtri.c @@ -138,6 +138,9 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In // call dtrtri from lapack for a walk around. if(uplo==0){ dtrtri_lapack_(UPLO, DIAG, N, a, ldA, Info); +#ifndef PPC440 + blas_memory_free(buffer); +#endif return 0; } #endif