| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | intrinsic.c | 475 a1, type1, kind1, optional1, INTENT_IN, in add_sym_1() 574 a1, type1, kind1, optional1, INTENT_IN, in add_sym_1m() 575 a2, type2, kind2, optional2, INTENT_IN, in add_sym_1m() 601 a1, type1, kind1, optional1, INTENT_IN, in add_sym_2() 602 a2, type2, kind2, optional2, INTENT_IN, in add_sym_2() 685 a1, type1, kind1, optional1, INTENT_IN, in add_sym_3() 686 a2, type2, kind2, optional2, INTENT_IN, in add_sym_3() 687 a3, type3, kind3, optional3, INTENT_IN, in add_sym_3() 718 a1, type1, kind1, optional1, INTENT_IN, in add_sym_5ml() 719 a2, type2, kind2, optional2, INTENT_IN, in add_sym_5ml() [all …]
|
| H A D | interface.c | 976 if (i2 != INTENT_IN) in gfc_check_operator_interface() 985 if (i1 != INTENT_IN) in gfc_check_operator_interface() 992 if (args == 2 && i2 != INTENT_IN) in gfc_check_operator_interface() 1224 return a1 && p2 && (s2->attr.intent != INTENT_IN); in compare_ptr_alloc() 2202 if (!attr.pointer && attr.target && formal->attr.intent == INTENT_IN) in compare_pointer() 2454 && formal->attr.intent != INTENT_IN) in compare_parameter() 2605 else if (warn_surprising && where && formal->attr.intent != INTENT_IN) in compare_parameter() 3373 && f->sym->attr.intent != INTENT_IN in gfc_compare_actual_formal() 3401 && f->sym->attr.intent != INTENT_IN && !f->sym->attr.value in gfc_compare_actual_formal() 3732 if ((f1_intent == INTENT_IN && f2_intent == INTENT_OUT) in check_some_aliasing() [all …]
|
| H A D | dependency.c | 1006 if (intent != INTENT_IN) in gfc_check_argument_var_dependency() 1079 return gfc_check_argument_dependency (other, INTENT_IN, expr, in gfc_check_argument_dependency() 1115 if (formal && intent == INTENT_IN in gfc_check_fncall_dependency() 1116 && formal->sym->attr.intent == INTENT_IN) in gfc_check_fncall_dependency() 1907 return e->symtree->n.sym->attr.intent != INTENT_IN; in callback_dummy_intent_not_in()
|
| H A D | iresolve.c | 3311 static const sym_intent INTENTS[] = {INTENT_IN, INTENT_IN, INTENT_IN, in gfc_resolve_mvbits() 3312 INTENT_INOUT, INTENT_IN}; in gfc_resolve_mvbits()
|
| H A D | io.c | 1487 if (result->symtree->n.sym->attr.intent == INTENT_IN) in match_vtag() 3103 if (p->sym->attr.intent == INTENT_IN) in check_namelist() 3797 io_constraint (k == M_WRITE && sym->attr.intent == INTENT_IN, in check_io_constraints()
|
| H A D | class.c | 1537 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN) in finalizer_insert_packed_call() 2509 src->attr.intent = INTENT_IN; in gfc_find_derived_vtab() 2850 src->attr.intent = INTENT_IN; in find_intrinsic_vtab()
|
| H A D | decl.c | 1042 return INTENT_IN; in match_intent_spec() 5067 DECL_IN = INTENT_IN, DECL_OUT = INTENT_OUT, DECL_INOUT = INTENT_INOUT, in match_attr_spec() 5081 gcc_assert (INTENT_IN > 0); in match_attr_spec() 5648 t = gfc_add_intent (¤t_attr, INTENT_IN, &seen_at[d]); in match_attr_spec()
|
| H A D | symbol.c | 62 minit ("IN", INTENT_IN), 686 if (attr->volatile_ && attr->intent == INTENT_IN) in gfc_check_conflict()
|
| H A D | trans-expr.c | 93 if ((attr.pointer || attr.allocatable) && attr.intent != INTENT_IN) in gfc_conv_scalar_to_descriptor() 5037 if (intent != INTENT_IN) in gfc_conv_subref_array_arg() 5867 fsym->attr.intent != INTENT_IN in gfc_conv_procedure_call() 6189 fsym->attr.intent != INTENT_IN in gfc_conv_procedure_call() 6329 fsym->attr.intent != INTENT_IN in gfc_conv_procedure_call() 6424 INTENT_IN, fsym->attr.pointer); in gfc_conv_procedure_call()
|
| H A D | check.c | 1012 && e->symtree->n.sym->attr.intent == INTENT_IN in variable_check() 3349 && status->symtree->n.sym->attr.intent == INTENT_IN) in gfc_check_kill_sub()
|
| H A D | gfortran.h | 299 { INTENT_UNKNOWN = 0, INTENT_IN, INTENT_OUT, INTENT_INOUT enumerator
|
| H A D | trans-io.c | 910 last_dt == READ ? INTENT_IN : INTENT_OUT, false); in set_internal_unit()
|
| H A D | openmp.c | 4455 if (n->sym->attr.pointer && n->sym->attr.intent == INTENT_IN) 4761 if (n->sym->attr.pointer && n->sym->attr.intent == INTENT_IN)
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | intrinsic.cc | 534 a1, type1, kind1, optional1, INTENT_IN, in add_sym_1() 633 a1, type1, kind1, optional1, INTENT_IN, in add_sym_1m() 634 a2, type2, kind2, optional2, INTENT_IN, in add_sym_1m() 660 a1, type1, kind1, optional1, INTENT_IN, in add_sym_2() 661 a2, type2, kind2, optional2, INTENT_IN, in add_sym_2() 744 a1, type1, kind1, optional1, INTENT_IN, in add_sym_3() 745 a2, type2, kind2, optional2, INTENT_IN, in add_sym_3() 746 a3, type3, kind3, optional3, INTENT_IN, in add_sym_3() 777 a1, type1, kind1, optional1, INTENT_IN, in add_sym_5ml() 778 a2, type2, kind2, optional2, INTENT_IN, in add_sym_5ml() [all …]
|
| H A D | interface.cc | 987 if (i2 != INTENT_IN) in gfc_check_operator_interface() 996 if (i1 != INTENT_IN) in gfc_check_operator_interface() 1003 if (args == 2 && i2 != INTENT_IN) in gfc_check_operator_interface() 1235 return a1 && p2 && (s2->attr.intent != INTENT_IN); in compare_ptr_alloc() 2222 if (!attr.pointer && attr.target && formal->attr.intent == INTENT_IN) in compare_pointer() 2519 && formal->attr.intent != INTENT_IN) in compare_parameter() 2670 else if (warn_surprising && where && formal->attr.intent != INTENT_IN) in compare_parameter() 3550 && f->sym->attr.intent != INTENT_IN in gfc_compare_actual_formal() 3580 && f->sym->attr.intent != INTENT_IN && !f->sym->attr.value in gfc_compare_actual_formal() 3935 if ((f1_intent == INTENT_IN && f2_intent == INTENT_OUT) in check_some_aliasing() [all …]
|
| H A D | dependency.cc | 1007 if (intent != INTENT_IN) in gfc_check_argument_var_dependency() 1080 return gfc_check_argument_dependency (other, INTENT_IN, expr, in gfc_check_argument_dependency() 1116 if (formal && intent == INTENT_IN in gfc_check_fncall_dependency() 1117 && formal->sym->attr.intent == INTENT_IN) in gfc_check_fncall_dependency() 1908 return e->symtree->n.sym->attr.intent != INTENT_IN; in callback_dummy_intent_not_in()
|
| H A D | iresolve.cc | 3347 static const sym_intent INTENTS[] = {INTENT_IN, INTENT_IN, INTENT_IN, in gfc_resolve_mvbits() 3348 INTENT_INOUT, INTENT_IN}; in gfc_resolve_mvbits()
|
| H A D | io.cc | 1487 if (result->symtree->n.sym->attr.intent == INTENT_IN) in match_vtag() 3103 if (p->sym->attr.intent == INTENT_IN) in check_namelist() 3797 io_constraint (k == M_WRITE && sym->attr.intent == INTENT_IN, in check_io_constraints()
|
| H A D | class.cc | 1552 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN) in finalizer_insert_packed_call() 2520 src->attr.intent = INTENT_IN; in gfc_find_derived_vtab() 2864 src->attr.intent = INTENT_IN; in find_intrinsic_vtab()
|
| H A D | trans-expr.cc | 135 if ((attr.pointer || attr.allocatable) && attr.intent != INTENT_IN) in gfc_conv_scalar_to_descriptor() 5126 if (intent != INTENT_IN) in gfc_conv_subref_array_arg() 5886 || fsym->attr.intent == INTENT_IN) in gfc_conv_gfc_desc_to_cfi_desc() 6301 fsym->attr.intent != INTENT_IN in gfc_conv_procedure_call() 6622 fsym->attr.intent != INTENT_IN in gfc_conv_procedure_call() 6762 fsym->attr.intent != INTENT_IN in gfc_conv_procedure_call() 6879 INTENT_IN, fsym->attr.pointer); in gfc_conv_procedure_call()
|
| H A D | decl.cc | 1042 return INTENT_IN; in match_intent_spec() 5172 DECL_IN = INTENT_IN, DECL_OUT = INTENT_OUT, DECL_INOUT = INTENT_INOUT, in match_attr_spec() 5186 gcc_assert (INTENT_IN > 0); in match_attr_spec() 5737 t = gfc_add_intent (¤t_attr, INTENT_IN, &seen_at[d]); in match_attr_spec()
|
| H A D | symbol.cc | 62 minit ("IN", INTENT_IN), 686 if (attr->volatile_ && attr->intent == INTENT_IN) in gfc_check_conflict()
|
| H A D | check.cc | 1012 && e->symtree->n.sym->attr.intent == INTENT_IN in variable_check() 3353 && status->symtree->n.sym->attr.intent == INTENT_IN) in gfc_check_kill_sub()
|
| H A D | trans-decl.cc | 4429 if (sym->attr.intent != INTENT_IN) in gfc_null_and_pass_deferred_len() 7274 || sym->attr.intent == INTENT_IN)) in gfc_conv_cfi_to_gfc() 7292 if (sym->attr.intent != INTENT_IN) in gfc_conv_cfi_to_gfc()
|
| H A D | gfortran.h | 349 { INTENT_UNKNOWN = 0, INTENT_IN, INTENT_OUT, INTENT_INOUT enumerator
|