Merge pull request Reference-LAPACK#953 from ACSimon33/test_memory_leak

Fixed memory leak in testing framework
ACSimon33 · Nov 29, 2023 · 3200980 · 3200980
2 parents af77ebf + 3d2b9cb
commit 3200980
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 0 deletions.
diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F
@@ -1232,6 +1232,8 @@ PROGRAM CCHKAA
 *
       DEALLOCATE (A, STAT = AllocateStatus)
       DEALLOCATE (B, STAT = AllocateStatus)
+      DEALLOCATE (E, STAT = AllocateStatus)
+      DEALLOCATE (S, STAT = AllocateStatus)
       DEALLOCATE (WORK, STAT = AllocateStatus)
       DEALLOCATE (RWORK,  STAT = AllocateStatus)
 *

diff --git a/TESTING/LIN/dchkaa.F b/TESTING/LIN/dchkaa.F
@@ -1076,6 +1076,8 @@ PROGRAM DCHKAA
 *
       DEALLOCATE (A, STAT = AllocateStatus)
       DEALLOCATE (B, STAT = AllocateStatus)
+      DEALLOCATE (E, STAT = AllocateStatus)
+      DEALLOCATE (S, STAT = AllocateStatus)
       DEALLOCATE (WORK, STAT = AllocateStatus)
       DEALLOCATE (RWORK,  STAT = AllocateStatus)
 *

diff --git a/TESTING/LIN/schkaa.F b/TESTING/LIN/schkaa.F
@@ -1070,6 +1070,8 @@ PROGRAM SCHKAA
 *
       DEALLOCATE (A, STAT = AllocateStatus)
       DEALLOCATE (B, STAT = AllocateStatus)
+      DEALLOCATE (E, STAT = AllocateStatus)
+      DEALLOCATE (S, STAT = AllocateStatus)
       DEALLOCATE (WORK, STAT = AllocateStatus)
       DEALLOCATE (RWORK,  STAT = AllocateStatus)
 *

diff --git a/TESTING/LIN/zchkaa.F b/TESTING/LIN/zchkaa.F
@@ -1268,6 +1268,8 @@ PROGRAM ZCHKAA
 *
       DEALLOCATE (A, STAT = AllocateStatus)
       DEALLOCATE (B, STAT = AllocateStatus)
+      DEALLOCATE (E, STAT = AllocateStatus)
+      DEALLOCATE (S, STAT = AllocateStatus)
       DEALLOCATE (RWORK, STAT = AllocateStatus)
       DEALLOCATE (WORK,  STAT = AllocateStatus)
 *