From 61917ebc9631968e7a7b65bb475221f812237df1 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 21 Aug 2012 23:01:36 +0200 Subject: [PATCH] parse.c (parse_contained): Include EXEC_END_PROCEDURE in ns->code to make sure the gfc_code is freed. 2012-08-21 Tobias Burnus * parse.c (parse_contained): Include EXEC_END_PROCEDURE in ns->code to make sure the gfc_code is freed. From-SVN: r190575 --- 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 4992ecfeccb..c4dad21000a 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 44b190092e1..c0ec6e4d85f 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.30.2