OSDN Git Service

2008-01-17 H.J. Lu <hongjiu.lu@intel.com>
authorhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Jan 2008 01:29:11 +0000 (01:29 +0000)
committerhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Jan 2008 01:29:11 +0000 (01:29 +0000)
commit922715fd70a4c052eeb69eff2a0a02b49610a2cf
tree6618a99f503007bf9db19e45175332fb41f54b0e
parenteeaa887f60fb8137ce97644ce73ffa4884699b3a
2008-01-17  H.J. Lu  <hongjiu.lu@intel.com>

PR fortran/33375
* symbol.c (free_common_tree): Renamed to ...
(gfc_free_common_tree): This.  Remove static.
(gfc_free_namespace): Updated.

* gfortran.h (gfc_free_common_tree): New.

* match.c (gfc_match_common): Call gfc_free_common_tree () with
gfc_current_ns->common_root and set gfc_current_ns->common_root
to NULL on syntax error.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131621 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/match.c
gcc/fortran/symbol.c