Searched refs:implicit_ns (Results 1 – 2 of 2) sorted by relevance
4141 gfc_namespace * implicit_ns; in match_variable() local4144 implicit_ns = gfc_current_ns; in match_variable()4146 implicit_ns = sym->ns; in match_variable()4151 && gfc_get_default_type (sym->name, implicit_ns)->type == BT_DERIVED) in match_variable()4152 gfc_set_default_type (sym, 0, implicit_ns); in match_variable()
4149 gfc_namespace * implicit_ns; in match_variable() local4152 implicit_ns = gfc_current_ns; in match_variable()4154 implicit_ns = sym->ns; in match_variable()4159 && gfc_get_default_type (sym->name, implicit_ns)->type == BT_DERIVED) in match_variable()4160 gfc_set_default_type (sym, 0, implicit_ns); in match_variable()