Home | History | Annotate | Download | only in fortran

Lines Matching refs:binding_label

1804       if (!sym->binding_label)
1808 	  if (!set_binding_label (&sym->binding_label, sym->name,
6070       && tmp_sym->binding_label)
6075 		       &(tmp_sym->declared_at), tmp_sym->binding_label);
6096   if (!set_binding_label (&tmp_sym->binding_label, tmp_sym->name, num_idents))
6112   if (!set_binding_label (&com_block->binding_label, com_block->name,
7132 	  if (!set_binding_label (&sym->binding_label, sym->name, num))
7549 	&& sym->binding_label && sym->old_symbol->binding_label
7550 	&& strcmp (sym->binding_label, sym->old_symbol->binding_label) != 0)
7553 	  s1 = sym->binding_label;
7555 	  s2 = sym->old_symbol->binding_label;
7623 add_global_entry (const char *name, const char *binding_label, bool sub,
7633   if (!binding_label || gfc_notification_std (GFC_STD_F2008))
7653   if (binding_label
7655 	  || strcmp (name, binding_label) != 0))
7657       s = gfc_get_gsymbol (binding_label, true);
7668 	  s->binding_label = binding_label;
7842 	  && !add_global_entry (name, entry->binding_label, true,
7911 	  && !add_global_entry (name, entry->binding_label, false,
8065 	  && sym->binding_label && sym->old_symbol->binding_label
8066 	  && strcmp (sym->binding_label, sym->old_symbol->binding_label) != 0)
8069 	  s1 = sym->binding_label;
8071 	  s2 = sym->old_symbol->binding_label;
8174   char *binding_label = NULL;
8223       binding_label = gfc_widechar_to_char (e->value.character.string,
8228       if (check_bind_name_identifier (&binding_label) != MATCH_YES)
8256   if (binding_label)
8259 	sym->binding_label = binding_label;
8261 	curr_binding_label = binding_label;
8270 	sym->binding_label = IDENTIFIER_POINTER (get_identifier (sym->name));