fixed delete bug codeplex bug 5701

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;
 	}
 

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;
 	}
 

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;
 	}