Home
last modified time | relevance | path

Searched refs:elemental (Results 1 – 25 of 77) sorted by relevance

1234

/netbsd-src/external/gpl3/gcc/dist/libgfortran/m4/
H A Dmisc_specifics.m425 elemental function _gfortran_specific__nint_`'ikind`_'rkind (parm)
36 elemental function _gfortran_specific__char_`'ckind`_i'ikind (parm)
47 elemental function _gfortran_specific__len_`'ckind`_i'ikind (parm)
58 elemental function _gfortran_specific__index_`'ckind`_i'ikind (parm1, parm2)
H A Dspecific2.m428 elemental function function_name (p1, p2)
H A Dspecific.m459 elemental function function_name (parm)
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/m4/
H A Dmisc_specifics.m425 elemental function _gfortran_specific__nint_`'ikind`_'rkind (parm)
36 elemental function _gfortran_specific__char_`'ckind`_i'ikind (parm)
47 elemental function _gfortran_specific__len_`'ckind`_i'ikind (parm)
58 elemental function _gfortran_specific__index_`'ckind`_i'ikind (parm1, parm2)
H A Dspecific2.m421 elemental function function_name (p1, p2)
H A Dspecific.m435 elemental function function_name (parm)
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Ddependency.c955 gfc_expr *expr, gfc_dep_check elemental) in gfc_check_argument_var_dependency() argument
968 || gfc_check_dependency (var, expr, elemental == NOT_ELEMENTAL)) in gfc_check_argument_var_dependency()
970 if (elemental == ELEM_DONT_CHECK_VARIABLE) in gfc_check_argument_var_dependency()
1014 if (elemental != NOT_ELEMENTAL) in gfc_check_argument_var_dependency()
1017 && expr->value.function.esym->attr.elemental) in gfc_check_argument_var_dependency()
1019 && expr->value.function.isym->elemental)) in gfc_check_argument_var_dependency()
1040 if (elemental) in gfc_check_argument_var_dependency()
1069 gfc_expr *expr, gfc_dep_check elemental) in gfc_check_argument_dependency() argument
1074 return gfc_check_argument_var_dependency (other, intent, expr, elemental); in gfc_check_argument_dependency()
1096 gfc_dep_check elemental) in gfc_check_fncall_dependency() argument
[all …]
H A Dinterface.c1758 if (s1->attr.elemental && !s2->attr.elemental) in gfc_compare_interfaces()
4007 if (!gfc_compare_actual_formal (ap, dummy_args, 0, sym->attr.elemental, in gfc_procedure_use()
4057 comp->attr.elemental, false, where)) in gfc_ppc_use()
4081 r = !sym->attr.elemental; in gfc_arglist_matches_symbol()
4144 if (intr->sym->attr.elemental) in gfc_search_interface()
4820 if (old_target->attr.elemental && !proc_target->attr.elemental) in gfc_check_typebound_override()
4826 if (!old_target->attr.elemental && proc_target->attr.elemental) in gfc_check_typebound_override()
H A Dsymbol.c417 *allocatable = "ALLOCATABLE", *elemental = "ELEMENTAL", in gfc_check_conflict() local
542 conf (pointer, elemental); in gfc_check_conflict()
544 conf (allocatable, elemental); in gfc_check_conflict()
572 conf (elemental, recursive); in gfc_check_conflict()
612 conf (is_bind_c, elemental); in gfc_check_conflict()
1606 if (attr->elemental) in gfc_add_elemental()
1612 attr->elemental = 1; in gfc_add_elemental()
2145 if (src->elemental && !gfc_add_elemental (dest, where)) in gfc_copy_attr()
H A Dtrans-common.c970 dummy_symbol->elemental |= attr.elemental; in accumulate_equivalence_attributes()
H A Dresolve.c238 sym->attr.elemental = ifc->attr.elemental; in resolve_procedure_interface()
1857 sym->attr.elemental = isym->elemental; in gfc_resolve_intrinsic()
2027 if (sym->attr.elemental && !sym->attr.intrinsic) in resolve_actual_arglist()
2175 && comp && comp->attr.elemental) in resolve_actual_arglist()
2227 && expr->value.function.esym->attr.elemental) in resolve_elemental_actual()
2233 && expr->value.function.isym->elemental) in resolve_elemental_actual()
2251 if (!esym->attr.elemental) in resolve_elemental_actual()
2531 if (sym->attr.elemental && !sym->attr.intrinsic) /* (4) */ in gfc_explicit_interface_required()
3035 || e->value.function.isym->elemental; in gfc_pure_function()
3867 sym->attr.elemental = 1; in logical_to_bitwise()
[all …]
H A Dintrinsic.c349 next_sym->elemental = (cl == CLASS_ELEMENTAL); in add_sym()
3964 sym->elemental = 1; in add_conv()
4138 char_conversions[n].elemental = 1; in add_char_conversions()
4767 if (t && specific->elemental) in check_specific()
5026 if (gfc_init_expr_flag && isym->elemental && flag in gfc_intrinsic_func_interface()
5049 if (isym->elemental) in gfc_intrinsic_func_interface()
5113 c->resolved_sym->attr.elemental = isym->elemental; in gfc_intrinsic_sub_interface()
5329 new_expr->symtree->n.sym->attr.elemental = 1; in gfc_convert_type_warn()
5402 new_expr->symtree->n.sym->attr.elemental = 1; in gfc_convert_chartype()
H A Dexpr.c1067 && (e->value.function.isym->elemental in gfc_is_constant_expr()
2232 if (isym && isym->elemental) in gfc_simplify_expr()
2898 || !e->value.function.isym->elemental) in check_elemental()
3004 if (isym && isym->elemental in gfc_check_init_expr()
3287 if (!f->attr.pure && !f->attr.elemental) in external_spec_function()
3442 && sym->ns->proc_name && sym->ns->proc_name->attr.elemental) in check_restricted()
4096 if (attr.elemental && !attr.intrinsic) in gfc_check_pointer_assign()
H A Dtrans-expr.c1053 bool elemental, bool copyback, bool optional, in gfc_conv_class_to_class() argument
1132 if (!elemental && full_array && copyback) in gfc_conv_class_to_class()
1204 if (!elemental && full_array && copyback) in gfc_conv_class_to_class()
1229 if (!elemental && full_array && copyback in gfc_conv_class_to_class()
1565 ppc_code->resolved_sym->attr.elemental = 1; in gfc_trans_class_array_init_assign()
5613 && comp->ts.interface->attr.elemental) in gfc_conv_procedure_call()
5614 || (comp && comp->attr.elemental) in gfc_conv_procedure_call()
5615 || sym->attr.elemental; in gfc_conv_procedure_call()
6104 && !sym->attr.elemental) in gfc_conv_procedure_call()
10019 && expr2->value.function.esym->attr.elemental) in arrayfunc_assign_needs_temporary()
[all …]
H A Dfrontend-passes.c575 if ((*e)->value.function.esym->attr.elemental && (*e)->rank > 0) in cfe_register_funcs()
598 if ((*e)->value.function.isym->elemental && (*e)->rank > 0) in cfe_register_funcs()
741 fcn->symtree->n.sym->attr.elemental = 1; in get_len_call()
1598 && (e->value.function.esym->attr.elemental in optimize_binop_array_assignment()
1603 && (e->value.function.isym->elemental in optimize_binop_array_assignment()
1985 fcn->symtree->n.sym->attr.elemental = 1; in get_len_trim_call()
H A Ddecl.c6426 if (!seen_impure && current_attr.elemental && !current_attr.pure) in gfc_match_prefix()
6452 if (current_attr.elemental) in copy_prefix()
6453 dest->elemental = 1; in copy_prefix()
6465 if (dest->elemental && !current_attr.elemental) in copy_prefix()
6489 if (current_attr.elemental && !gfc_add_elemental (dest, where)) in copy_prefix()
7831 if (proc->attr.elemental && entry->attr.is_bind_c) in gfc_match_entry()
7839 entry->attr.elemental = proc->attr.elemental; in gfc_match_entry()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Ddependency.cc956 gfc_expr *expr, gfc_dep_check elemental) in gfc_check_argument_var_dependency() argument
969 || gfc_check_dependency (var, expr, elemental == NOT_ELEMENTAL)) in gfc_check_argument_var_dependency()
971 if (elemental == ELEM_DONT_CHECK_VARIABLE) in gfc_check_argument_var_dependency()
1015 if (elemental != NOT_ELEMENTAL) in gfc_check_argument_var_dependency()
1018 && expr->value.function.esym->attr.elemental) in gfc_check_argument_var_dependency()
1020 && expr->value.function.isym->elemental)) in gfc_check_argument_var_dependency()
1041 if (elemental) in gfc_check_argument_var_dependency()
1070 gfc_expr *expr, gfc_dep_check elemental) in gfc_check_argument_dependency() argument
1075 return gfc_check_argument_var_dependency (other, intent, expr, elemental); in gfc_check_argument_dependency()
1097 gfc_dep_check elemental) in gfc_check_fncall_dependency() argument
[all …]
H A Dsymbol.cc417 *allocatable = "ALLOCATABLE", *elemental = "ELEMENTAL", in gfc_check_conflict() local
542 conf (pointer, elemental); in gfc_check_conflict()
544 conf (allocatable, elemental); in gfc_check_conflict()
572 conf_std (elemental, recursive, GFC_STD_F2018); in gfc_check_conflict()
612 conf (is_bind_c, elemental); in gfc_check_conflict()
1613 if (attr->elemental) in gfc_add_elemental()
1619 attr->elemental = 1; in gfc_add_elemental()
2152 if (src->elemental && !gfc_add_elemental (dest, where)) in gfc_copy_attr()
H A Dinterface.cc1778 if (s1->attr.elemental && !s2->attr.elemental) in gfc_compare_interfaces()
4210 if (!gfc_compare_actual_formal (ap, dummy_args, 0, sym->attr.elemental, in gfc_procedure_use()
4260 comp->attr.elemental, false, where)) in gfc_ppc_use()
4284 r = !sym->attr.elemental; in gfc_arglist_matches_symbol()
4347 if (intr->sym->attr.elemental) in gfc_search_interface()
5023 if (old_target->attr.elemental && !proc_target->attr.elemental) in gfc_check_typebound_override()
5029 if (!old_target->attr.elemental && proc_target->attr.elemental) in gfc_check_typebound_override()
H A Dtrans-common.cc999 dummy_symbol->elemental |= attr.elemental; in accumulate_equivalence_attributes()
H A Dresolve.cc238 sym->attr.elemental = ifc->attr.elemental; in resolve_procedure_interface()
1898 sym->attr.elemental = isym->elemental; in gfc_resolve_intrinsic()
2068 if (sym->attr.elemental && !sym->attr.intrinsic) in resolve_actual_arglist()
2216 && comp && comp->attr.elemental) in resolve_actual_arglist()
2268 && expr->value.function.esym->attr.elemental) in resolve_elemental_actual()
2274 && expr->value.function.isym->elemental) in resolve_elemental_actual()
2292 if (!esym->attr.elemental) in resolve_elemental_actual()
2589 if (sym->attr.elemental && !sym->attr.intrinsic) /* (4) */ in gfc_explicit_interface_required()
3107 || e->value.function.isym->elemental; in gfc_pure_function()
3950 sym->attr.elemental = 1; in logical_to_bitwise()
[all …]
H A Dintrinsic.cc408 next_sym->elemental = (cl == CLASS_ELEMENTAL); in add_sym()
3990 sym->elemental = 1; in add_conv()
4164 char_conversions[n].elemental = 1; in add_char_conversions()
4809 if (t && specific->elemental) in check_specific()
5068 if (gfc_init_expr_flag && isym->elemental && flag in gfc_intrinsic_func_interface()
5091 if (isym->elemental) in gfc_intrinsic_func_interface()
5155 c->resolved_sym->attr.elemental = isym->elemental; in gfc_intrinsic_sub_interface()
5372 new_expr->symtree->n.sym->attr.elemental = 1; in gfc_convert_type_warn()
5445 new_expr->symtree->n.sym->attr.elemental = 1; in gfc_convert_chartype()
H A Dexpr.cc1075 && (e->value.function.isym->elemental in gfc_is_constant_expr()
2258 if (isym && isym->elemental) in gfc_simplify_expr()
2924 || !e->value.function.isym->elemental) in check_elemental()
3030 if (isym && isym->elemental in gfc_check_init_expr()
3319 if (!f->attr.pure && !f->attr.elemental) in external_spec_function()
3474 && sym->ns->proc_name && sym->ns->proc_name->attr.elemental) in check_restricted()
4128 if (attr.elemental && !attr.intrinsic) in gfc_check_pointer_assign()
H A Dtrans-expr.cc1147 bool elemental, bool copyback, bool optional, in gfc_conv_class_to_class() argument
1226 if (!elemental && full_array && copyback) in gfc_conv_class_to_class()
1298 if (!elemental && full_array && copyback) in gfc_conv_class_to_class()
1323 if (!elemental && full_array && copyback in gfc_conv_class_to_class()
1659 ppc_code->resolved_sym->attr.elemental = 1; in gfc_trans_class_array_init_assign()
6047 && comp->ts.interface->attr.elemental) in gfc_conv_procedure_call()
6048 || (comp && comp->attr.elemental) in gfc_conv_procedure_call()
6049 || sym->attr.elemental; in gfc_conv_procedure_call()
6536 && !sym->attr.elemental) in gfc_conv_procedure_call()
10566 && expr2->value.function.esym->attr.elemental) in arrayfunc_assign_needs_temporary()
[all …]
H A Dfrontend-passes.cc575 if ((*e)->value.function.esym->attr.elemental && (*e)->rank > 0) in cfe_register_funcs()
598 if ((*e)->value.function.isym->elemental && (*e)->rank > 0) in cfe_register_funcs()
741 fcn->symtree->n.sym->attr.elemental = 1; in get_len_call()
1598 && (e->value.function.esym->attr.elemental in optimize_binop_array_assignment()
1603 && (e->value.function.isym->elemental in optimize_binop_array_assignment()
1985 fcn->symtree->n.sym->attr.elemental = 1; in get_len_trim_call()

1234