Lines Matching defs:seek
4066 as well (look for "seek to the symbol's component list"). */
4934 /* First seek to the symbol's component list. */
6804 gfc_use_rename *seek, *last;
6810 for (seek = list->next; seek; seek = last->next)
6812 if (list->op == seek->op)
6814 last->next = seek->next;
6815 free (seek);
6818 last = seek;
6829 gfc_use_list *next, *seek, *last;
6837 for (seek = next->next; seek; seek = seek->next)
6839 if (next->module_name != seek->module_name)
6842 if (seek->non_intrinsic)
6844 else if (seek->intrinsic)
6869 for (seek = next->next; seek; seek = last->next)
6871 if (next->module_name != seek->module_name)
6873 last = seek;
6877 if ((!next->intrinsic && !seek->intrinsic)
6878 || (next->intrinsic && seek->intrinsic)
6881 if (!seek->only_flag)
6883 if (seek->rename)
6885 gfc_use_rename *r = seek->rename;
6889 next->rename = seek->rename;
6891 last->next = seek->next;
6892 free (seek);
6895 last = seek;