Lines Matching defs:external
54 minit ("EXTERNAL-PROC", PROC_EXTERNAL),
127 gfc_set_implicit_none (bool type, bool external, locus *loc)
131 if (external)
414 *target = "TARGET", *external = "EXTERNAL", *intent = "INTENT",
474 if (attr->external)
475 a1 = external;
551 conf (target, external);
555 conf (external, dimension); /* See Fortran 95's R504. */
557 conf (external, intrinsic);
562 conf (external, subroutine);
626 conf (cray_pointer, external);
665 conf (value, external)
681 conf (asynchronous, external)
684 conf (volatile_, external)
758 conf2 (external);
849 conf2 (external);
873 conf2 (external);
1129 if (attr->external)
1131 duplicate_attr ("EXTERNAL", where);
1141 attr->external = 1;
1225 if (attr->procedure || (attr->external && attr->if_source != IFSRC_IFBODY)
2189 if (src->external && !gfc_add_external (dest, where))