Lines Matching defs:intrinsic
99 /* Structure for list of symbols of intrinsic modules. */
205 /* If we're reading an intrinsic module, this is its ID. */
548 if (strcmp (module_nature, "intrinsic") == 0)
549 use_list->intrinsic = true;
557 "be either INTRINSIC or NON_INTRINSIC");
567 if (strcmp (module_nature, "intrinsic") == 0
2114 minit ("INTRINSIC", AB_INTRINSIC),
2287 if (attr->intrinsic)
2506 attr->intrinsic = 1;
4265 /* Type-bound intrinsic operators. */
4611 /* Add the fields that say whether this is from an intrinsic module,
5595 /* Load intrinsic operator interfaces. */
5725 gfc_error ("Intrinsic operator %qs referenced at %L not found "
6292 /* From F2003 onwards, intrinsic procedures are no longer subject to
6293 the restriction, "that an elemental intrinsic function here be of
6295 expr of type integer or character" is lifted so that intrinsic
6296 procedures can be over-ridden. This requires that the intrinsic
6299 if (strcmp (sym->module, "(intrinsic)") == 0
6627 sym->attr.intrinsic = 1;
6636 /* Import the intrinsic ISO_C_BINDING module, generating symbols in
6668 mod_sym->attr.intrinsic = 1;
6725 the kinds for intrinsic data types. */
6900 gfc_error ("Symbol %qs referenced at %L not found in intrinsic "
7061 /* USE the ISO_FORTRAN_ENV intrinsic module. */
7095 mod_sym->attr.intrinsic = 1;
7100 if (!mod_symtree->n.sym->attr.intrinsic)
7101 gfc_error ("Use of intrinsic module %qs at %C conflicts with "
7102 "non-intrinsic module name used previously", mod);
7124 "constant from intrinsic module "
7192 "from intrinsic module ISO_FORTRAN_ENV at %C is "
7245 gfc_error ("Symbol %qs referenced at %L not found in intrinsic "
7289 /* First, try to find an non-intrinsic module, unless the USE statement
7290 specified that the module is intrinsic. */
7292 if (!module->intrinsic)
7295 /* Then, see if it's an intrinsic one, unless the USE statement
7296 specified that the module is non-intrinsic. */
7301 "intrinsic module at %C"))
7307 module->intrinsic = true;
7318 module->intrinsic = true;
7324 if (module_fp == NULL && module->intrinsic)
7325 gfc_fatal_error ("Cannot find an intrinsic module named %qs at %C",
7362 /* Check that we haven't already USEd an intrinsic module with the
7366 if (mod_symtree && mod_symtree->n.sym->attr.intrinsic)
7367 gfc_error ("Use of non-intrinsic module %qs at %C conflicts with "
7368 "intrinsic module name used previously", module_name);
7443 /* Remove duplicated intrinsic operators from the rename list. */
7478 bool intrinsic = next->intrinsic;
7479 bool neither = !non_intrinsic && !intrinsic;
7488 else if (seek->intrinsic)
7489 intrinsic = true;
7494 if (intrinsic && neither && !non_intrinsic)
7521 if ((!next->intrinsic && !seek->intrinsic)
7522 || (next->intrinsic && seek->intrinsic)
Indexes created Sat Apr 25 00:22:52 UTC 2026