gcc/fortran/match.c

4629 	  sym->common_head = t;
4648 		      if (other->common_head
4649 			  && other->common_head != sym->common_head)
4654 				     sym->name, sym->common_head->name,
4655 				     other->common_head->name);
4659 		      other->common_head = t;
4912   gfc_common_head *common_head = NULL;
4968 	      common_head = sym->common_head;
4995 	    if (sym->common_head && sym->common_head != common_head)
4999 			   sym->common_head->name, common_head->name);
5003 	    sym->common_head = common_head;