From 3d2b9cbdcdfdde9f42d5de5ffe72893cd10b7c3f Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Wed, 29 Nov 2023 15:18:49 +0000 Subject: [PATCH] Fixed memory leak in testing framework (`?chkaa.F`) --- TESTING/LIN/cchkaa.F | 2 ++ TESTING/LIN/dchkaa.F | 2 ++ TESTING/LIN/schkaa.F | 2 ++ TESTING/LIN/zchkaa.F | 2 ++ 4 files changed, 8 insertions(+) diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F index 474454a519..57d95c7419 100644 --- 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 index 74077eb94e..6582cac135 100755 --- 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 index 2b9f2ea452..036b13924f 100644 --- 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 index 57d71833f9..f1020f2d87 100644 --- 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) *