diff options
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index d46a495..06585af 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -5325,6 +5325,7 @@ gfc_match_select_type (void) char name[GFC_MAX_SYMBOL_LEN]; bool class_array; gfc_symbol *sym; + gfc_namespace *parent_ns; m = gfc_match_label (); if (m == MATCH_ERROR) @@ -5404,7 +5405,9 @@ gfc_match_select_type (void) return MATCH_YES; cleanup: - gfc_current_ns = gfc_current_ns->parent; + parent_ns = gfc_current_ns->parent; + gfc_free_namespace (gfc_current_ns); + gfc_current_ns = parent_ns; return m; } |