From ff5876b8de28770670bf2eea2c09571929a334f6 Mon Sep 17 00:00:00 2001
From: David Parkhurst <dlparkhurst@gmail.com>
Date: Thu, 9 May 2024 22:48:12 -0600
Subject: [PATCH] Pad needed a free. Ran all test cases.

---
 src/PBasic.cpp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/PBasic.cpp b/src/PBasic.cpp
index 44d7dfc90..8701fde15 100644
--- a/src/PBasic.cpp
+++ b/src/PBasic.cpp
@@ -3211,13 +3211,15 @@ factor(struct LOC_exec * LINK)
 	case tokpad_:
 	case tokpad:
 	{
+		char* str;
 		n.stringval = true;
 		require(toklp, LINK);
-		string1 = strexpr(LINK);
+		str = strexpr(LINK);
 		require(tokcomma, LINK);
 		i = intexpr(LINK);
 		require(tokrp, LINK);
-		n.UU.sval = PhreeqcPtr->string_pad(string1, i);
+		n.UU.sval = PhreeqcPtr->string_pad(str, i);
+		PhreeqcPtr->PHRQ_free(str);
 	}
 	break;