From patchwork Tue Oct  5 10:11:13 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [fortran,19/22] Various minor fixups
From: Mikael Morin <mikael.morin@sfr.fr>
X-Patchwork-Id: 66798
Message-Id: <20101005100948.1836.92130@gimli.local>
To: gfortran <fortran@gcc.gnu.org> , patches <gcc-patches@gcc.gnu.org>
Date: Tue,  5 Oct 2010 12:11:13 +0200 (CEST)

2010-10-04  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-stmt.c (gfc_trans_forall_1): Free forall struct at the end.


diff --git a/trans-stmt.c b/trans-stmt.c
index 82cddd7..a158c84 100644
--- a/trans-stmt.c
+++ b/trans-stmt.c
@@ -3462,6 +3462,13 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info)
   gfc_free (varexpr);
   gfc_free (saved_vars);
 
+  for (this_forall = info->this_loop; this_forall;)
+    {
+      iter_info *next = this_forall->next;
+      gfc_free (this_forall);
+      this_forall = next;
+    }
+
   /* Free the space for this forall_info.  */
   gfc_free (info);