Home
last modified time | relevance | path

Searched refs:EXPR_FUNCTION (Results 1 – 25 of 54) sorted by relevance

123

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Ddependency.c216 if (e1->expr_type != EXPR_FUNCTION || e2->expr_type != EXPR_FUNCTION) in gfc_dep_compare_functions()
287 if (e->expr_type == EXPR_FUNCTION && e->value.function.isym in gfc_discard_nops()
513 case EXPR_FUNCTION: in gfc_dep_compare_expr()
869 if (expr->expr_type != EXPR_FUNCTION || !expr->value.function.isym) in gfc_get_noncopying_intrinsic_argument()
928 if (e->expr_type != EXPR_VARIABLE && e->expr_type != EXPR_FUNCTION) in gfc_is_data_pointer()
1005 case EXPR_FUNCTION: in gfc_check_argument_var_dependency()
1076 case EXPR_FUNCTION: in gfc_check_argument_dependency()
1287 if (expr1->expr_type == EXPR_FUNCTION in gfc_check_dependency()
1368 case EXPR_FUNCTION: in gfc_check_dependency()
1808 case EXPR_FUNCTION: in contains_forall_index_p()
H A Dfrontend-passes.c342 if ((*e)->expr_type == EXPR_FUNCTION) in optimize_expr()
359 if ((*e)->expr_type == EXPR_FUNCTION && (*e)->value.function.isym) in optimize_expr()
446 if (fn->rank != 0 || fn->expr_type != EXPR_FUNCTION in callback_reduction()
541 if ((*e)->expr_type != EXPR_FUNCTION) in cfe_register_funcs()
727 fcn->expr_type = EXPR_FUNCTION; in get_len_call()
892 if (e->expr_type == EXPR_FUNCTION in do_warn_function_elimination()
1596 else if (seen_op && e->expr_type == EXPR_FUNCTION && e->rank > 0 in optimize_binop_array_assignment()
1652 while (rhs->expr_type == EXPR_FUNCTION && rhs->value.function.isym in remove_trim()
1721 if (e->expr_type != EXPR_FUNCTION || e->value.function.isym == NULL) in optimize_lexical_comparison()
1968 fcn->expr_type = EXPR_FUNCTION; in get_len_trim_call()
[all …]
H A Dexpr.c380 case EXPR_FUNCTION: in gfc_copy_expr()
484 case EXPR_FUNCTION: in free_expr0()
905 p->expr_type = EXPR_FUNCTION; in gfc_build_conversion()
1000 if (e->expr_type == EXPR_FUNCTION in is_non_constant_intrinsic()
1048 case EXPR_FUNCTION: in gfc_is_constant_expr()
2207 case EXPR_FUNCTION: in gfc_simplify_expr()
2947 case EXPR_FUNCTION: in gfc_check_init_expr()
3412 case EXPR_FUNCTION: in check_restricted()
3545 if (e->expr_type == EXPR_FUNCTION in gfc_specification_expr()
3760 && rvalue->expr_type == EXPR_FUNCTION && gfc_expr_attr (rvalue).pointer) in gfc_check_assign()
[all …]
H A Darray.c497 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
529 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
1163 if (expr->expr_type == EXPR_FUNCTION in match_array_cons_element()
1324 if (c->expr->expr_type == EXPR_FUNCTION in gfc_match_array_constructor()
2575 case EXPR_FUNCTION: in gfc_array_dimen_size()
H A Dprimary.c2659 if (expr->expr_type != EXPR_VARIABLE && expr->expr_type != EXPR_FUNCTION) in gfc_variable_attr()
2786 case EXPR_FUNCTION: in gfc_expr_attr()
2841 if (expr->expr_type != EXPR_VARIABLE && expr->expr_type != EXPR_FUNCTION) in caf_variable_attr()
2965 case EXPR_FUNCTION: in gfc_caf_attr()
3386 e->expr_type = EXPR_FUNCTION; in gfc_match_structure_constructor()
3744 e->expr_type = EXPR_FUNCTION; in gfc_match_rvalue()
3929 e->expr_type = EXPR_FUNCTION; in gfc_match_rvalue()
3970 e->expr_type = EXPR_FUNCTION; in gfc_match_rvalue()
H A Dcheck.c516 if ((e->expr_type == EXPR_VARIABLE || e->expr_type == EXPR_FUNCTION) in numeric_check()
1038 if (e->expr_type == EXPR_FUNCTION in variable_check()
1120 if (array->expr_type == EXPR_FUNCTION && array->value.function.isym in dim_rank_check()
1365 if (flag_coarray == GFC_FCOARRAY_LIB && array->expr_type == EXPR_FUNCTION in gfc_check_allocated()
1470 if (target->expr_type == EXPR_VARIABLE || target->expr_type == EXPR_FUNCTION) in gfc_check_associated()
1600 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_def()
1634 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_ref()
1722 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_cas()
1814 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_fetch_op()
4564 if (a->expr_type == EXPR_FUNCTION) in gfc_check_rank()
[all …]
H A Dtrans-expr.c2398 case EXPR_FUNCTION: in flatten_array_ctors_without_strlen()
4741 case EXPR_FUNCTION: in gfc_apply_interface_mapping_to_expr()
5321 else if (e->expr_type == EXPR_FUNCTION) in expr_may_alias_variables()
5819 && e->expr_type == EXPR_FUNCTION) in gfc_conv_procedure_call()
5969 else if ((e->expr_type == EXPR_FUNCTION) in gfc_conv_procedure_call()
5977 else if (e->expr_type == EXPR_FUNCTION in gfc_conv_procedure_call()
6207 if (e->expr_type == EXPR_FUNCTION in gfc_conv_procedure_call()
6656 if (e->expr_type == EXPR_VARIABLE || e->expr_type == EXPR_FUNCTION) in gfc_conv_procedure_call()
8091 if (expr->expr_type == EXPR_FUNCTION in gfc_trans_alloc_subarray_assign()
8898 case EXPR_FUNCTION: in gfc_conv_expr()
[all …]
H A Dresolve.c1418 else if (cons->expr->expr_type == EXPR_FUNCTION) in resolve_structure_cons()
3072 if (e->expr_type != EXPR_FUNCTION in impure_stmt_fcn()
3294 if (expr->expr_type != EXPR_FUNCTION) in resolve_function()
3852 e->expr_type = EXPR_FUNCTION; in logical_to_bitwise()
3934 if (f->expr_type == EXPR_FUNCTION) in impure_function_callback()
5554 gcc_assert (e->expr_type == EXPR_FUNCTION && e->value.function.isym in remove_caf_get_intrinsic()
5983 bool retval = e->expr_type == EXPR_FUNCTION; in check_host_association()
6015 || e->expr_type == EXPR_FUNCTION) in check_host_association()
6029 e->expr_type = EXPR_FUNCTION; in check_host_association()
6066 return e->expr_type == EXPR_FUNCTION; in check_host_association()
[all …]
H A Dtrans-array.c1248 if (rhs_ss->info->expr->expr_type == EXPR_FUNCTION) in get_class_info_from_ss()
1832 if (expr->expr_type == EXPR_FUNCTION) in gfc_trans_array_ctor_element()
5727 if (ubound->expr_type == EXPR_FUNCTION) in gfc_array_init_size()
6006 if (expr3->expr_type == EXPR_FUNCTION in gfc_array_allocate()
7251 case EXPR_FUNCTION: in get_array_charlen()
7409 while (expr->expr_type == EXPR_FUNCTION && expr->value.function.isym in gfc_conv_expr_descriptor()
7503 case EXPR_FUNCTION: in gfc_conv_expr_descriptor()
7678 else if (expr->expr_type == EXPR_FUNCTION && !transposed_dims (ss)) in gfc_conv_expr_descriptor()
8234 else if (expr->expr_type == EXPR_FUNCTION && expr->value.function.esym) in gfc_conv_array_parameter()
8270 if (expr->ts.type == BT_CHARACTER && expr->expr_type != EXPR_FUNCTION) in gfc_conv_array_parameter()
[all …]
H A Dclass.c172 && e->expr_type != EXPR_FUNCTION) in gfc_fix_class_refs()
173 || (e->expr_type == EXPR_FUNCTION in gfc_fix_class_refs()
183 gcc_assert (e->expr_type == EXPR_FUNCTION); in gfc_fix_class_refs()
1028 cond->block->expr1->expr_type = EXPR_FUNCTION; in finalize_component()
1136 expr->expr_type = EXPR_FUNCTION; in finalization_scalarizer()
H A Dtrans-stmt.c1930 if (e->expr_type == EXPR_FUNCTION in trans_associate_var()
2085 if (e->expr_type == EXPR_FUNCTION) in trans_associate_var()
2174 if (e->expr_type == EXPR_FUNCTION in trans_associate_var()
2182 else if (e->expr_type == EXPR_FUNCTION in trans_associate_var()
5441 if (expr2->expr_type == EXPR_FUNCTION && expr2->rank > 0) in gfc_trans_where_assign()
6235 if (code->expr3->expr_type == EXPR_FUNCTION && !code->expr3->mold in gfc_trans_allocate()
6296 || (code->expr3->expr_type == EXPR_FUNCTION in gfc_trans_allocate()
6568 && code->expr3->expr_type == EXPR_FUNCTION in gfc_trans_allocate()
6593 && code->expr3->expr_type == EXPR_FUNCTION in gfc_trans_allocate()
H A Dtrans-openmp.c1904 e4->expr_type = EXPR_FUNCTION; in gfc_trans_omp_array_reduction_or_udr()
3764 && expr2->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
3803 if (expr2->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
3861 if (e->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
3875 if (e->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
3890 gcc_assert (expr2->expr_type == EXPR_FUNCTION); in gfc_trans_omp_atomic()
3990 if (expr2->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
H A Dinterface.c3302 || (a->expr->expr_type == EXPR_FUNCTION in gfc_compare_actual_formal()
3318 || (a->expr->expr_type == EXPR_FUNCTION in gfc_compare_actual_formal()
3768 if (a->expr && a->expr->expr_type == EXPR_FUNCTION in check_intents()
4466 e->expr_type = EXPR_FUNCTION; in gfc_extend_expr()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Ddependency.cc217 if (e1->expr_type != EXPR_FUNCTION || e2->expr_type != EXPR_FUNCTION) in gfc_dep_compare_functions()
288 if (e->expr_type == EXPR_FUNCTION && e->value.function.isym in gfc_discard_nops()
514 case EXPR_FUNCTION: in gfc_dep_compare_expr()
870 if (expr->expr_type != EXPR_FUNCTION || !expr->value.function.isym) in gfc_get_noncopying_intrinsic_argument()
929 if (e->expr_type != EXPR_VARIABLE && e->expr_type != EXPR_FUNCTION) in gfc_is_data_pointer()
1006 case EXPR_FUNCTION: in gfc_check_argument_var_dependency()
1077 case EXPR_FUNCTION: in gfc_check_argument_dependency()
1288 if (expr1->expr_type == EXPR_FUNCTION in gfc_check_dependency()
1369 case EXPR_FUNCTION: in gfc_check_dependency()
1809 case EXPR_FUNCTION: in contains_forall_index_p()
H A Dfrontend-passes.cc342 if ((*e)->expr_type == EXPR_FUNCTION) in optimize_expr()
359 if ((*e)->expr_type == EXPR_FUNCTION && (*e)->value.function.isym) in optimize_expr()
446 if (fn->rank != 0 || fn->expr_type != EXPR_FUNCTION in callback_reduction()
541 if ((*e)->expr_type != EXPR_FUNCTION) in cfe_register_funcs()
727 fcn->expr_type = EXPR_FUNCTION; in get_len_call()
892 if (e->expr_type == EXPR_FUNCTION in do_warn_function_elimination()
1596 else if (seen_op && e->expr_type == EXPR_FUNCTION && e->rank > 0 in optimize_binop_array_assignment()
1652 while (rhs->expr_type == EXPR_FUNCTION && rhs->value.function.isym in remove_trim()
1721 if (e->expr_type != EXPR_FUNCTION || e->value.function.isym == NULL) in optimize_lexical_comparison()
1968 fcn->expr_type = EXPR_FUNCTION; in get_len_trim_call()
[all …]
H A Dexpr.cc381 case EXPR_FUNCTION: in gfc_copy_expr()
485 case EXPR_FUNCTION: in free_expr0()
913 p->expr_type = EXPR_FUNCTION; in gfc_build_conversion()
1008 if (e->expr_type == EXPR_FUNCTION in is_non_constant_intrinsic()
1056 case EXPR_FUNCTION: in gfc_is_constant_expr()
2232 case EXPR_FUNCTION: in gfc_simplify_expr()
2973 case EXPR_FUNCTION: in gfc_check_init_expr()
3229 if (expr->expr_type != EXPR_FUNCTION && gfc_derived_parameter_expr (expr)) in gfc_match_init_expr()
3444 case EXPR_FUNCTION: in check_restricted()
3577 if (e->expr_type == EXPR_FUNCTION in gfc_specification_expr()
[all …]
H A Darray.cc504 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
536 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
1175 if (expr->expr_type == EXPR_FUNCTION in match_array_cons_element()
1336 if (c->expr->expr_type == EXPR_FUNCTION in gfc_match_array_constructor()
2587 case EXPR_FUNCTION: in gfc_array_dimen_size()
H A Dprimary.cc2647 if (expr->expr_type != EXPR_VARIABLE && expr->expr_type != EXPR_FUNCTION) in gfc_variable_attr()
2794 case EXPR_FUNCTION: in gfc_expr_attr()
2849 if (expr->expr_type != EXPR_VARIABLE && expr->expr_type != EXPR_FUNCTION) in caf_variable_attr()
2973 case EXPR_FUNCTION: in gfc_caf_attr()
3394 e->expr_type = EXPR_FUNCTION; in gfc_match_structure_constructor()
3752 e->expr_type = EXPR_FUNCTION; in gfc_match_rvalue()
3937 e->expr_type = EXPR_FUNCTION; in gfc_match_rvalue()
3978 e->expr_type = EXPR_FUNCTION; in gfc_match_rvalue()
H A Dcheck.cc516 if ((e->expr_type == EXPR_VARIABLE || e->expr_type == EXPR_FUNCTION) in numeric_check()
1038 if (e->expr_type == EXPR_FUNCTION in variable_check()
1120 if (array->expr_type == EXPR_FUNCTION && array->value.function.isym in dim_rank_check()
1367 if (flag_coarray == GFC_FCOARRAY_LIB && array->expr_type == EXPR_FUNCTION in gfc_check_allocated()
1472 if (target->expr_type == EXPR_VARIABLE || target->expr_type == EXPR_FUNCTION) in gfc_check_associated()
1604 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_def()
1638 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_ref()
1726 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_cas()
1818 if (atom->expr_type == EXPR_FUNCTION in gfc_check_atomic_fetch_op()
4583 if (a->expr_type == EXPR_FUNCTION) in gfc_check_rank()
[all …]
H A Dtrans-expr.cc2492 case EXPR_FUNCTION: in flatten_array_ctors_without_strlen()
4830 case EXPR_FUNCTION: in gfc_apply_interface_mapping_to_expr()
5442 else if (e->expr_type == EXPR_FUNCTION) in expr_may_alias_variables()
6253 && e->expr_type == EXPR_FUNCTION) in gfc_conv_procedure_call()
6401 else if ((e->expr_type == EXPR_FUNCTION) in gfc_conv_procedure_call()
6409 else if (e->expr_type == EXPR_FUNCTION in gfc_conv_procedure_call()
6640 if (e->expr_type == EXPR_FUNCTION in gfc_conv_procedure_call()
7110 scalar_res_outside_loop = e->expr_type == EXPR_FUNCTION in gfc_conv_procedure_call()
7179 if (e->expr_type == EXPR_VARIABLE || e->expr_type == EXPR_FUNCTION) in gfc_conv_procedure_call()
8634 if (expr->expr_type == EXPR_FUNCTION in gfc_trans_alloc_subarray_assign()
[all …]
H A Dresolve.cc1457 else if (cons->expr->expr_type == EXPR_FUNCTION) in resolve_structure_cons()
3144 if (e->expr_type != EXPR_FUNCTION in impure_stmt_fcn()
3366 if (expr->expr_type != EXPR_FUNCTION) in resolve_function()
3935 e->expr_type = EXPR_FUNCTION; in logical_to_bitwise()
4017 if (f->expr_type == EXPR_FUNCTION) in impure_function_callback()
5639 gcc_assert (e->expr_type == EXPR_FUNCTION && e->value.function.isym in remove_caf_get_intrinsic()
6074 bool retval = e->expr_type == EXPR_FUNCTION; in check_host_association()
6106 || e->expr_type == EXPR_FUNCTION) in check_host_association()
6120 e->expr_type = EXPR_FUNCTION; in check_host_association()
6188 return e->expr_type == EXPR_FUNCTION; in check_host_association()
[all …]
H A Dtrans-array.cc1316 if (rhs_ss->info->expr->expr_type == EXPR_FUNCTION) in get_class_info_from_ss()
1928 if (expr->expr_type == EXPR_FUNCTION) in gfc_trans_array_ctor_element()
5837 if (ubound->expr_type == EXPR_FUNCTION) in gfc_array_init_size()
6116 if (expr3->expr_type == EXPR_FUNCTION in gfc_array_allocate()
7369 case EXPR_FUNCTION: in get_array_charlen()
7526 while (expr->expr_type == EXPR_FUNCTION && expr->value.function.isym in gfc_conv_expr_descriptor()
7628 case EXPR_FUNCTION: in gfc_conv_expr_descriptor()
7803 else if (expr->expr_type == EXPR_FUNCTION && !transposed_dims (ss)) in gfc_conv_expr_descriptor()
8402 else if (expr->expr_type == EXPR_FUNCTION && expr->value.function.esym) in gfc_conv_array_parameter()
8438 if (expr->ts.type == BT_CHARACTER && expr->expr_type != EXPR_FUNCTION) in gfc_conv_array_parameter()
[all …]
H A Dtrans-stmt.cc1237 || code->expr2->expr_type == EXPR_FUNCTION); in gfc_trans_sync()
1248 || code->expr3->expr_type == EXPR_FUNCTION); in gfc_trans_sync()
1967 if (e->expr_type == EXPR_FUNCTION in trans_associate_var()
2123 if (e->expr_type == EXPR_FUNCTION) in trans_associate_var()
2212 if (e->expr_type == EXPR_FUNCTION in trans_associate_var()
2220 else if (e->expr_type == EXPR_FUNCTION in trans_associate_var()
5477 if (expr2->expr_type == EXPR_FUNCTION && expr2->rank > 0) in gfc_trans_where_assign()
6271 if (code->expr3->expr_type == EXPR_FUNCTION && !code->expr3->mold in gfc_trans_allocate()
6332 || (code->expr3->expr_type == EXPR_FUNCTION in gfc_trans_allocate()
6604 && code->expr3->expr_type == EXPR_FUNCTION in gfc_trans_allocate()
[all …]
H A Dclass.cc174 && e->expr_type != EXPR_FUNCTION) in gfc_fix_class_refs()
175 || (e->expr_type == EXPR_FUNCTION in gfc_fix_class_refs()
185 gcc_assert (e->expr_type == EXPR_FUNCTION); in gfc_fix_class_refs()
1043 cond->block->expr1->expr_type = EXPR_FUNCTION; in finalize_component()
1151 expr->expr_type = EXPR_FUNCTION; in finalization_scalarizer()
H A Dtrans-openmp.cc2190 e4->expr_type = EXPR_FUNCTION; in gfc_trans_omp_array_reduction_or_udr()
4621 || (expr2->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
4649 && expr2->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
4677 && capture_expr2->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
4741 if (e->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
4755 if (e->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()
4770 gcc_assert (expr2->expr_type == EXPR_FUNCTION); in gfc_trans_omp_atomic()
4792 if (e->expr_type == EXPR_FUNCTION in gfc_trans_omp_atomic()

123