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

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.

From-SVN: r190575

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4992ecfeccb1f8e5c9940e7d25ee7197e9395a8f..c4dad21000a48ba2f5e20303fbfde83aef7febad 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 44b190092e1c83f8cf526b6de00020dbe70d5e17..c0ec6e4d85f2e59ed9bf60f00e74b40b3e9caa56 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: