Merge pull request #953 from ACSimon33/test_memory_leak

langou · web-flow · commit 32009805532c · 2023-11-29T08:43:39.000-07:00
Fixed memory leak in testing framework
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)
 *

Original file line number	Diff line number	Diff line change
`@@ -1232,6 +1232,8 @@ PROGRAM CCHKAA`
`1232`	`1232`	`*`
`1233`	`1233`	`DEALLOCATE (A, STAT = AllocateStatus)`
`1234`	`1234`	`DEALLOCATE (B, STAT = AllocateStatus)`
	`1235`	`+ DEALLOCATE (E, STAT = AllocateStatus)`
	`1236`	`+ DEALLOCATE (S, STAT = AllocateStatus)`
`1235`	`1237`	`DEALLOCATE (WORK, STAT = AllocateStatus)`
`1236`	`1238`	`DEALLOCATE (RWORK, STAT = AllocateStatus)`
`1237`	`1239`	`*`
Original file line number	Diff line number	Diff line change
`@@ -1076,6 +1076,8 @@ PROGRAM DCHKAA`
`1076`	`1076`	`*`
`1077`	`1077`	`DEALLOCATE (A, STAT = AllocateStatus)`
`1078`	`1078`	`DEALLOCATE (B, STAT = AllocateStatus)`
	`1079`	`+ DEALLOCATE (E, STAT = AllocateStatus)`
	`1080`	`+ DEALLOCATE (S, STAT = AllocateStatus)`
`1079`	`1081`	`DEALLOCATE (WORK, STAT = AllocateStatus)`
`1080`	`1082`	`DEALLOCATE (RWORK, STAT = AllocateStatus)`
`1081`	`1083`	`*`
Original file line number	Diff line number	Diff line change
`@@ -1070,6 +1070,8 @@ PROGRAM SCHKAA`
`1070`	`1070`	`*`
`1071`	`1071`	`DEALLOCATE (A, STAT = AllocateStatus)`
`1072`	`1072`	`DEALLOCATE (B, STAT = AllocateStatus)`
	`1073`	`+ DEALLOCATE (E, STAT = AllocateStatus)`
	`1074`	`+ DEALLOCATE (S, STAT = AllocateStatus)`
`1073`	`1075`	`DEALLOCATE (WORK, STAT = AllocateStatus)`
`1074`	`1076`	`DEALLOCATE (RWORK, STAT = AllocateStatus)`
`1075`	`1077`	`*`
Original file line number	Diff line number	Diff line change
`@@ -1268,6 +1268,8 @@ PROGRAM ZCHKAA`
`1268`	`1268`	`*`
`1269`	`1269`	`DEALLOCATE (A, STAT = AllocateStatus)`
`1270`	`1270`	`DEALLOCATE (B, STAT = AllocateStatus)`
	`1271`	`+ DEALLOCATE (E, STAT = AllocateStatus)`
	`1272`	`+ DEALLOCATE (S, STAT = AllocateStatus)`
`1271`	`1273`	`DEALLOCATE (RWORK, STAT = AllocateStatus)`
`1272`	`1274`	`DEALLOCATE (WORK, STAT = AllocateStatus)`
`1273`	`1275`	`*`