From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 21 Aug 2012 21:01:36 +0000 (+0000)
Subject: 2012-08-21  Tobias Burnus  <burnus@net-b.de>
X-Git-Tag: upstream/4.9.2~11034
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ced7aabf90c37164583c43d65e1165b661d753f1;p=platform%2Fupstream%2Flinaro-gcc.git

2012-08-21  Tobias Burnus  <burnus@net-b.de>

        * parse.c (parse_contained): Include EXEC_END_PROCEDURE
        in ns->code to make sure the gfc_code is freed.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190575 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4992ecf..c4dad21 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-21  Tobias Burnus  <burnus@net-b.de>
+
+	* parse.c (parse_contained): Include EXEC_END_PROCEDURE
+	in ns->code to make sure the gfc_code is freed.
+
 2012-08-20  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/54301
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 44b1900..c0ec6e4 100644
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -4075,6 +4075,7 @@ parse_contained (int module)
 	case ST_END_PROGRAM:
 	case ST_END_SUBROUTINE:
 	  accept_statement (st);
+	  gfc_current_ns->code = s1.head;
 	  break;
 
 	default: