From 600168de6787b774f9bbc48c8d3e246240fe24ce Mon Sep 17 00:00:00 2001
From: Marcus Cuda <marcus@cuda.org>
Date: Tue, 23 Oct 2012 12:58:01 +0300
Subject: [PATCH] fixed delete bug codeplex bug 5701

---
 src/NativeWrappers/ACML/lapack.cpp      | 4 ++++
 src/NativeWrappers/GotoBlas2/lapack.cpp | 4 ++++
 src/NativeWrappers/MKL/lapack.cpp       | 4 ++++
 3 files changed, 12 insertions(+)

diff --git a/src/NativeWrappers/ACML/lapack.cpp b/src/NativeWrappers/ACML/lapack.cpp
index f62fca8e..e26a2656 100644
--- a/src/NativeWrappers/ACML/lapack.cpp
+++ b/src/NativeWrappers/ACML/lapack.cpp
@@ -399,6 +399,7 @@ extern "C"{
 		}
 
 		spotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -416,6 +417,7 @@ extern "C"{
 		}
 
 		dpotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -433,6 +435,7 @@ extern "C"{
 		}
 
 		cpotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -450,6 +453,7 @@ extern "C"{
 		}
 
 		zpotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		delete[] clone;
 		return info;
 	}
 
diff --git a/src/NativeWrappers/GotoBlas2/lapack.cpp b/src/NativeWrappers/GotoBlas2/lapack.cpp
index bdd00272..2aaab319 100644
--- a/src/NativeWrappers/GotoBlas2/lapack.cpp
+++ b/src/NativeWrappers/GotoBlas2/lapack.cpp
@@ -424,6 +424,7 @@ extern "C"{
 		}
 
 		spotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -441,6 +442,7 @@ extern "C"{
 		}
 
 		dpotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -458,6 +460,7 @@ extern "C"{
 		}
 
 		cpotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -475,6 +478,7 @@ extern "C"{
 		}
 
 		zpotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
diff --git a/src/NativeWrappers/MKL/lapack.cpp b/src/NativeWrappers/MKL/lapack.cpp
index 8771ae28..0024ac31 100644
--- a/src/NativeWrappers/MKL/lapack.cpp
+++ b/src/NativeWrappers/MKL/lapack.cpp
@@ -419,6 +419,7 @@ extern "C"{
 		}
 
 		spotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -436,6 +437,7 @@ extern "C"{
 		}
 
 		dpotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -453,6 +455,7 @@ extern "C"{
 		}
 
 		cpotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}
 
@@ -470,6 +473,7 @@ extern "C"{
 		}
 
 		zpotrs_(&uplo, &n, &nrhs, clone, &n, b, &n, &info);
+		delete[] clone;
 		return info;
 	}