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 (file)
--- 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 (file)
--- 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: