===================================================================
@@ -98,7 +98,7 @@ gfc_namespace *gfc_global_ns_list;
gfc_gsymbol *gfc_gsym_root = NULL;
-static gfc_symbol *changed_syms = NULL;
+gfc_symbol *changed_syms = NULL;
gfc_dt_list *gfc_derived_types;
===================================================================
@@ -879,6 +879,7 @@ blank_line:
return ST_NONE;
}
+extern gfc_symbol *changed_syms;
/* Return the next non-ST_NONE statement to the caller. We also worry
about including files and the ends of include files at this stage. */
@@ -889,6 +890,9 @@ next_statement (void)
gfc_statement st;
locus old_locus;
+ /* We start with a clean state. */
+ gcc_assert (changed_syms == NULL);
+
gfc_new_block = NULL;
gfc_current_ns->old_cl_list = gfc_current_ns->cl_list;