13 lines
454 B
Diff
13 lines
454 B
Diff
|
diff --git a/src/testing/ATL_f77getri.c b/src/testing/ATL_f77getri.c
|
||
|
|
index 2cc576c..7ff8eba 100644
|
||
|
|
--- a/src/testing/ATL_f77getri.c
|
||
|
|
+++ b/src/testing/ATL_f77getri.c
|
||
|
|
@@ -97,7 +97,6 @@ int f77getri(const enum ATLAS_ORDER Order, const int N, TYPE *A, const int lda,
|
||
|
|
#ifdef ATL_FunkyInts
|
||
|
|
*lwork = F77lwork;
|
||
|
|
for (i=0; i < MN; i++) ipiv[i] = F77ipiv[i] + 1;
|
||
|
|
- free(F77ipiv);
|
||
|
|
#else
|
||
|
|
for (i=0; i < MN; i++) ipiv[i]++;
|
||
|
|
#endif
|