Lines Matching refs:subroutine
339 && (sym->ns->proc_name->attr.subroutine != 0
421 *function = "FUNCTION", *subroutine = "SUBROUTINE",
529 && (attr->function || attr->subroutine)
562 conf (external, subroutine);
603 conf (function, subroutine);
605 if (!function && !subroutine)
630 conf (cray_pointer, subroutine);
660 conf (value, subroutine)
765 conf2 (subroutine);
801 if (attr->subroutine)
803 a1 = subroutine;
855 conf2 (subroutine);
878 conf2 (subroutine);
950 /* Common subroutine called by attribute changing subroutines in order
1699 attr->subroutine = 1;
2034 || (flavor == FL_PROCEDURE && sym->attr.subroutine)
2147 if (src->subroutine && !gfc_add_subroutine (dest, NULL, where))
2324 /* This subroutine is called when a derived type is used in order to
2338 This subroutine takes a pointer to a symbol node and returns a
3410 && !(allow_subroutine && p->attr.subroutine)
3449 /* Subroutine that searches for a symbol, creating it if it doesn't
3655 This subroutine is made simpler due to the fact that attributes are
Indexes created Wed May 06 00:24:28 UTC 2026