From ced7aabf90c37164583c43d65e1165b661d753f1 Mon Sep 17 00:00:00 2001 From: burnus Date: Tue, 21 Aug 2012 21:01:36 +0000 Subject: [PATCH] 2012-08-21 Tobias Burnus * 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/parse.c | 1 + 2 files changed, 6 insertions(+) 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 + + * parse.c (parse_contained): Include EXEC_END_PROCEDURE + in ns->code to make sure the gfc_code is freed. + 2012-08-20 Tobias Burnus 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: -- 2.7.4