78 gfc_interface_info current_interface;  variable
257   current_interface.type = type;  in gfc_match_interface()
277       current_interface.sym = gfc_new_block = sym;  in gfc_match_interface()
281       current_interface.uop = gfc_get_uop (name);  in gfc_match_interface()
285       current_interface.op = op;  in gfc_match_interface()
316   current_interface.type = INTERFACE_ABSTRACT;  in gfc_match_abstract_interface()
350   switch (current_interface.type)  in gfc_match_end_interface()
363       if (type != current_interface.type || op != current_interface.op)  in gfc_match_end_interface()
366 	  if (current_interface.op == INTRINSIC_ASSIGN)  in gfc_match_end_interface()
374 	      s1 = gfc_op2string (current_interface.op);  in gfc_match_end_interface()
414       if (type != current_interface.type  in gfc_match_end_interface()
415 	  || strcmp (current_interface.uop->name, name) != 0)  in gfc_match_end_interface()
418 		     current_interface.uop->name);  in gfc_match_end_interface()
426       if (type != current_interface.type  in gfc_match_end_interface()
427 	  || strcmp (current_interface.sym->name, name) != 0)  in gfc_match_end_interface()
430 		     current_interface.sym->name);  in gfc_match_end_interface()
4593   switch (current_interface.type)  in gfc_add_interface()
4600       for (ns = current_interface.ns; ns; ns = ns->parent)  in gfc_add_interface()
4601 	switch (current_interface.op)  in gfc_add_interface()
4658 	      if (!gfc_check_new_interface (ns->op[current_interface.op],  in gfc_add_interface()
4663       head = &current_interface.ns->op[current_interface.op];  in gfc_add_interface()
4668       for (ns = current_interface.ns; ns; ns = ns->parent)  in gfc_add_interface()
4670 	  gfc_find_symbol (current_interface.sym->name, ns, 0, &sym);  in gfc_add_interface()
4679       head = &current_interface.sym->generic;  in gfc_add_interface()
4683       if (!gfc_check_new_interface (current_interface.uop->op,  in gfc_add_interface()
4687       head = &current_interface.uop->op;  in gfc_add_interface()
4708   switch (current_interface.type)  in gfc_current_interface_head()
4711 	return current_interface.ns->op[current_interface.op];  in gfc_current_interface_head()
4715 	return current_interface.sym->generic;  in gfc_current_interface_head()
4718 	return current_interface.uop->op;  in gfc_current_interface_head()
4729   switch (current_interface.type)  in gfc_set_current_interface_head()
4732 	current_interface.ns->op[current_interface.op] = i;  in gfc_set_current_interface_head()
4737 	current_interface.sym->generic = i;  in gfc_set_current_interface_head()
4741 	current_interface.uop->op = i;  in gfc_set_current_interface_head()