1329   if (sym->attr.module_procedure && sym->attr.if_source == IFSRC_IFBODY)  in get_proc_name()
1422       && !current_attr.module_procedure  in get_proc_name()
4933   if (gfc_current_ns->proc_name->attr.module_procedure)  in gfc_match_import()
6363 	  current_attr.module_procedure = 1;  in gfc_match_prefix()
6450   if (dest->module_procedure)  in copy_prefix()
6524   if (progname->attr.module_procedure  in gfc_match_formal_arglist()
6665   if (progname->attr.module_procedure && progname->attr.host_assoc)  in gfc_match_formal_arglist()
7397   if (current_attr.module_procedure)  in gfc_match_function_decl()
7398     sym->attr.module_procedure = 1;  in gfc_match_function_decl()
7455     if (sym->attr.is_bind_c && sym->attr.module_procedure && sym->old_symbol  in gfc_match_function_decl()
7485 	  if(!sym->attr.module_procedure)  in gfc_match_function_decl()
7600   bool module_procedure;  in gfc_match_entry()  local
7679   module_procedure = gfc_current_ns->parent != NULL  in gfc_match_entry()
7686       && !module_procedure)  in gfc_match_entry()
7698 		     && module_procedure))  in gfc_match_entry()
7891   if (current_attr.module_procedure)  in gfc_match_subroutine()
7892     sym->attr.module_procedure = 1;  in gfc_match_subroutine()
7971       if (sym->attr.module_procedure && sym->old_symbol  in gfc_match_subroutine()
8007       if(!sym->attr.module_procedure)  in gfc_match_subroutine()
9830   if (!sym->attr.module_procedure)  in gfc_match_submod_proc()