Home
last modified time | relevance | path

Searched refs:declared_at (Results 1 – 25 of 43) sorted by relevance

12

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dresolve.cc167 if (gfc_is_intrinsic (ifc, 0, ifc->declared_at) in check_proc_interface()
168 || gfc_is_intrinsic (ifc, 1, ifc->declared_at)) in check_proc_interface()
201 sym->name, &sym->declared_at); in resolve_procedure_interface()
204 if (!check_proc_interface (ifc, &sym->declared_at)) in resolve_procedure_interface()
212 gfc_resolve_intrinsic (ifc, &ifc->declared_at); in resolve_procedure_interface()
302 &proc->declared_at); in gfc_resolve_formal_arglist()
306 &proc->declared_at); in gfc_resolve_formal_arglist()
317 &proc->declared_at); in gfc_resolve_formal_arglist()
327 gfc_add_flavor (&sym->attr, FL_PROCEDURE, sym->name, &sym->declared_at); in gfc_resolve_formal_arglist()
378 gfc_add_flavor (&sym->attr, FL_VARIABLE, sym->name, &sym->declared_at); in gfc_resolve_formal_arglist()
[all …]
H A Ddecl.cc564 newdata->var->expr->where = sym->declared_at; in match_old_style_init()
604 if (!gfc_add_data (&sym->attr, sym->name, &sym->declared_at)) in match_old_style_init()
1368 name, &sym->declared_at); in get_proc_name()
1375 name, &sym->declared_at); in get_proc_name()
1384 name, &sym->declared_at); in get_proc_name()
1396 name, &sym->declared_at); in get_proc_name()
1428 name, &sym->declared_at); in get_proc_name()
1439 name, &sym->declared_at); in get_proc_name()
1511 &(sym->declared_at)); in gfc_verify_c_interop_param()
1539 sym->name, &(sym->declared_at), in gfc_verify_c_interop_param()
[all …]
H A Dinterface.cc900 "interface at %L", &sym->declared_at); in gfc_check_operator_interface()
929 "two arguments", &sym->declared_at); in gfc_check_operator_interface()
932 &sym->declared_at); in gfc_check_operator_interface()
945 "a SUBROUTINE", &sym->declared_at); in gfc_check_operator_interface()
963 "an INTRINSIC type assignment", &sym->declared_at); in gfc_check_operator_interface()
972 &sym->declared_at); in gfc_check_operator_interface()
983 "INTENT(OUT) or INTENT(INOUT)", &sym->declared_at); in gfc_check_operator_interface()
990 "INTENT(IN)", &sym->declared_at); in gfc_check_operator_interface()
999 "INTENT(IN)", &sym->declared_at); in gfc_check_operator_interface()
1006 "INTENT(IN)", &sym->declared_at); in gfc_check_operator_interface()
[all …]
H A Dtrans-common.cc288 field = build_decl (gfc_get_location (&h->sym->declared_at), in build_field()
322 gfc_set_decl_location (len, &h->sym->declared_at); in build_field()
323 gfc_set_decl_location (addr, &h->sym->declared_at); in build_field()
745 var_decl = build_decl (gfc_get_location (&s->sym->declared_at), in create_common()
966 "%qs at %L", s1->sym->name, &s1->sym->declared_at, in confirm_condition()
967 s2->sym->name, &s2->sym->declared_at); in confirm_condition()
1156 s->sym->name, &s->sym->declared_at); in align_segment()
1345 c->where = ns->proc_name->declared_at; in finish_equivalences()
1347 c->where = ns->sym_root->n.sym->declared_at; in finish_equivalences()
H A Dparse.cc2773 main_program->declared_at = gfc_current_locus; in main_program_symbol()
3890 &current_interface.ns->proc_name->declared_at); in parse_interface()
3911 gfc_current_locus = gfc_current_block ()->declared_at; in match_deferred_characteristics()
3936 gfc_current_block ()->declared_at = gfc_current_locus; in match_deferred_characteristics()
4205 &gfc_current_block ()->declared_at); in parse_spec()
4209 &gfc_current_block ()->declared_at); in parse_spec()
4924 sym->declared_at = a->where; in parse_associate()
5139 &gfc_current_block()->declared_at); in parse_do_block()
6092 &gfc_new_block->declared_at)) in parse_contained()
6096 &gfc_new_block->declared_at); in parse_contained()
[all …]
H A Dtrans-decl.cc773 sym->name, &sym->declared_at); in gfc_finish_var_decl()
1817 decl = build_decl (gfc_get_location (&sym->declared_at), in gfc_get_symbol_decl()
2386 gfc_set_backend_locus (&sym->declared_at); in build_function_decl()
4506 proc_sym->name, &proc_sym->declared_at); in gfc_trans_deferred_vars()
4512 gfc_set_backend_locus (&proc_sym->declared_at); in gfc_trans_deferred_vars()
4536 gfc_set_backend_locus (&proc_sym->declared_at); in gfc_trans_deferred_vars()
4597 gfc_set_backend_locus (&proc_sym->declared_at); in gfc_trans_deferred_vars()
4751 gfc_set_backend_locus (&sym->declared_at); in gfc_trans_deferred_vars()
4774 gfc_set_backend_locus (&sym->declared_at); in gfc_trans_deferred_vars()
4824 gfc_set_backend_locus (&sym->declared_at); in gfc_trans_deferred_vars()
[all …]
H A Dsymbol.cc308 sym->name, &sym->declared_at, guessed); in gfc_set_default_type()
311 sym->name, &sym->declared_at); in gfc_set_default_type()
332 sym->name, &sym->declared_at); in gfc_set_default_type()
349 sym->name, &(sym->declared_at), in gfc_set_default_type()
351 &(sym->ns->proc_name->declared_at)); in gfc_set_default_type()
388 proc->result->name, &proc->result->declared_at); in gfc_check_function_type()
2013 &sym->declared_at); in gfc_add_type()
2283 "at %L", name, &sym->components->ts.u.derived->declared_at); in gfc_add_component()
3149 p->declared_at = gfc_current_locus; in gfc_new_symbol()
4273 gfc_add_save (&sym->attr, SAVE_EXPLICIT, sym->name, &sym->declared_at); in save_symbol()
[all …]
H A Dtrans-types.cc2547 else if (un->declared_at.lb) in gfc_get_union_type()
2548 gfc_set_decl_location (map_field, &un->declared_at); in gfc_get_union_type()
2861 else if (derived->declared_at.lb) in gfc_get_derived_type()
2862 gfc_set_decl_location (field, &derived->declared_at); in gfc_get_derived_type()
2883 gfc_set_decl_location (TYPE_STUB_DECL (typenode), &derived->declared_at); in gfc_get_derived_type()
H A Dopenmp.cc1121 sym->declared_at = prev_loc; in gfc_match_iterator()
4534 &n->sym->declared_at)) in gfc_match_omp_declare_target()
4538 &n->sym->declared_at); in gfc_match_omp_declare_target()
4582 &s->declared_at)) in gfc_match_omp_declare_target()
4586 &s->declared_at); in gfc_match_omp_declare_target()
5084 else if (!gfc_add_threadprivate (&sym->attr, sym->name, &sym->declared_at)) in gfc_match_omp_threadprivate()
5107 if (!gfc_add_threadprivate (&sym->attr, sym->name, &sym->declared_at)) in gfc_match_omp_threadprivate()
5231 "program units do", &ns->proc_name->declared_at); in gfc_check_omp_requires()
5236 "program units do", &ns->proc_name->declared_at); in gfc_check_omp_requires()
5241 "other program units do", &ns->proc_name->declared_at); in gfc_check_omp_requires()
H A Ddump-parse-tree.cc3756 write_decl (&(c->ts), c->as, c->name, false, &sym->declared_at, true); in write_type()
3778 write_decl (&(sym->ts), sym->as, sym_name, false, &sym->declared_at, true); in write_variable()
3808 write_decl (&(sym->ts), sym->as, sym_name, true, &sym->declared_at, bind_c); in write_proc()
3831 gfc_typename (&s->ts), &s->declared_at); in write_proc()
H A Dexpr.cc4075 && (gfc_is_intrinsic (sym, 0, sym->declared_at) in gfc_check_pointer_assign()
4076 || gfc_is_intrinsic (sym, 1, sym->declared_at))) in gfc_check_pointer_assign()
4578 lvalue.where = sym->declared_at; in gfc_check_assign_symbol()
5185 &ts->u.derived->declared_at); in gfc_generate_initializer()
5288 lval->where = sym->declared_at; in gfc_lval_expr_from_sym()
H A Dclass.cc458 &ts->u.derived->declared_at); in gfc_class_initializer()
796 ts->u.derived->name, &ts->u.derived->declared_at); in gfc_build_class_symbol()
1239 expr->where = sizes->declared_at; in finalization_get_offset()
H A Dfrontend-passes.cc5754 new_sym->declared_at = *loc; in check_externals_procedure()
5842 gfc_warning (0, "%s between %L and %L", buf, &def_sym->declared_at, in check_against_globals()
5843 &sym->declared_at); in check_against_globals()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dresolve.c167 if (gfc_is_intrinsic (ifc, 0, ifc->declared_at) in check_proc_interface()
168 || gfc_is_intrinsic (ifc, 1, ifc->declared_at)) in check_proc_interface()
201 sym->name, &sym->declared_at); in resolve_procedure_interface()
204 if (!check_proc_interface (ifc, &sym->declared_at)) in resolve_procedure_interface()
212 gfc_resolve_intrinsic (ifc, &ifc->declared_at); in resolve_procedure_interface()
302 &proc->declared_at); in gfc_resolve_formal_arglist()
306 &proc->declared_at); in gfc_resolve_formal_arglist()
317 &proc->declared_at); in gfc_resolve_formal_arglist()
327 gfc_add_flavor (&sym->attr, FL_PROCEDURE, sym->name, &sym->declared_at); in gfc_resolve_formal_arglist()
378 gfc_add_flavor (&sym->attr, FL_VARIABLE, sym->name, &sym->declared_at); in gfc_resolve_formal_arglist()
[all …]
H A Dinterface.c889 "interface at %L", &sym->declared_at); in gfc_check_operator_interface()
918 "two arguments", &sym->declared_at); in gfc_check_operator_interface()
921 &sym->declared_at); in gfc_check_operator_interface()
934 "a SUBROUTINE", &sym->declared_at); in gfc_check_operator_interface()
952 "an INTRINSIC type assignment", &sym->declared_at); in gfc_check_operator_interface()
961 &sym->declared_at); in gfc_check_operator_interface()
972 "INTENT(OUT) or INTENT(INOUT)", &sym->declared_at); in gfc_check_operator_interface()
979 "INTENT(IN)", &sym->declared_at); in gfc_check_operator_interface()
988 "INTENT(IN)", &sym->declared_at); in gfc_check_operator_interface()
995 "INTENT(IN)", &sym->declared_at); in gfc_check_operator_interface()
[all …]
H A Ddecl.c564 newdata->var->expr->where = sym->declared_at; in match_old_style_init()
604 if (!gfc_add_data (&sym->attr, sym->name, &sym->declared_at)) in match_old_style_init()
1368 name, &sym->declared_at); in get_proc_name()
1375 name, &sym->declared_at); in get_proc_name()
1384 name, &sym->declared_at); in get_proc_name()
1396 name, &sym->declared_at); in get_proc_name()
1428 name, &sym->declared_at); in get_proc_name()
1439 name, &sym->declared_at); in get_proc_name()
1511 &(sym->declared_at)); in gfc_verify_c_interop_param()
1539 sym->name, &(sym->declared_at), in gfc_verify_c_interop_param()
[all …]
H A Dtrans-common.c288 field = build_decl (gfc_get_location (&h->sym->declared_at), in build_field()
322 gfc_set_decl_location (len, &h->sym->declared_at); in build_field()
323 gfc_set_decl_location (addr, &h->sym->declared_at); in build_field()
717 var_decl = build_decl (gfc_get_location (&s->sym->declared_at), in create_common()
937 "%qs at %L", s1->sym->name, &s1->sym->declared_at, in confirm_condition()
938 s2->sym->name, &s2->sym->declared_at); in confirm_condition()
1127 s->sym->name, &s->sym->declared_at); in align_segment()
1316 c->where = ns->proc_name->declared_at; in finish_equivalences()
1318 c->where = ns->sym_root->n.sym->declared_at; in finish_equivalences()
H A Dparse.c2526 main_program->declared_at = gfc_current_locus; in main_program_symbol()
3640 &current_interface.ns->proc_name->declared_at); in parse_interface()
3661 gfc_current_locus = gfc_current_block ()->declared_at; in match_deferred_characteristics()
3686 gfc_current_block ()->declared_at = gfc_current_locus; in match_deferred_characteristics()
3955 &gfc_current_block ()->declared_at); in parse_spec()
3959 &gfc_current_block ()->declared_at); in parse_spec()
4674 sym->declared_at = a->where; in parse_associate()
4889 &gfc_current_block()->declared_at); in parse_do_block()
5750 &gfc_new_block->declared_at)) in parse_contained()
5754 &gfc_new_block->declared_at); in parse_contained()
[all …]
H A Dtrans-decl.c768 sym->name, &sym->declared_at); in gfc_finish_var_decl()
1778 decl = build_decl (gfc_get_location (&sym->declared_at), in gfc_get_symbol_decl()
2362 gfc_set_backend_locus (&sym->declared_at); in build_function_decl()
4575 proc_sym->name, &proc_sym->declared_at); in gfc_trans_deferred_vars()
4581 gfc_set_backend_locus (&proc_sym->declared_at); in gfc_trans_deferred_vars()
4605 gfc_set_backend_locus (&proc_sym->declared_at); in gfc_trans_deferred_vars()
4666 gfc_set_backend_locus (&proc_sym->declared_at); in gfc_trans_deferred_vars()
4820 gfc_set_backend_locus (&sym->declared_at); in gfc_trans_deferred_vars()
4843 gfc_set_backend_locus (&sym->declared_at); in gfc_trans_deferred_vars()
4893 gfc_set_backend_locus (&sym->declared_at); in gfc_trans_deferred_vars()
[all …]
H A Dsymbol.c308 sym->name, &sym->declared_at, guessed); in gfc_set_default_type()
311 sym->name, &sym->declared_at); in gfc_set_default_type()
332 sym->name, &sym->declared_at); in gfc_set_default_type()
349 sym->name, &(sym->declared_at), in gfc_set_default_type()
351 &(sym->ns->proc_name->declared_at)); in gfc_set_default_type()
388 proc->result->name, &proc->result->declared_at); in gfc_check_function_type()
2006 &sym->declared_at); in gfc_add_type()
2276 "at %L", name, &sym->components->ts.u.derived->declared_at); in gfc_add_component()
3141 p->declared_at = gfc_current_locus; in gfc_new_symbol()
4253 gfc_add_save (&sym->attr, SAVE_EXPLICIT, sym->name, &sym->declared_at); in save_symbol()
[all …]
H A Dtrans-types.c2479 else if (un->declared_at.lb) in gfc_get_union_type()
2480 gfc_set_decl_location (map_field, &un->declared_at); in gfc_get_union_type()
2791 else if (derived->declared_at.lb) in gfc_get_derived_type()
2792 gfc_set_decl_location (field, &derived->declared_at); in gfc_get_derived_type()
2813 gfc_set_decl_location (TYPE_STUB_DECL (typenode), &derived->declared_at); in gfc_get_derived_type()
H A Ddump-parse-tree.c3417 write_decl (&(c->ts), c->as, c->name, false, &sym->declared_at, true); in write_type()
3439 write_decl (&(sym->ts), sym->as, sym_name, false, &sym->declared_at, true); in write_variable()
3469 write_decl (&(sym->ts), sym->as, sym_name, true, &sym->declared_at, bind_c); in write_proc()
3492 gfc_typename (&s->ts), &s->declared_at); in write_proc()
H A Dopenmp.c3241 &n->sym->declared_at)) in gfc_match_omp_declare_target()
3245 &n->sym->declared_at); in gfc_match_omp_declare_target()
3273 &s->declared_at)) in gfc_match_omp_declare_target()
3277 &s->declared_at); in gfc_match_omp_declare_target()
3323 else if (!gfc_add_threadprivate (&sym->attr, sym->name, &sym->declared_at)) in gfc_match_omp_threadprivate()
3346 if (!gfc_add_threadprivate (&sym->attr, sym->name, &sym->declared_at)) in gfc_match_omp_threadprivate()
H A Dexpr.c4043 && (gfc_is_intrinsic (sym, 0, sym->declared_at) in gfc_check_pointer_assign()
4044 || gfc_is_intrinsic (sym, 1, sym->declared_at))) in gfc_check_pointer_assign()
4538 lvalue.where = sym->declared_at; in gfc_check_assign_symbol()
5145 &ts->u.derived->declared_at); in gfc_generate_initializer()
5248 lval->where = sym->declared_at; in gfc_lval_expr_from_sym()
H A Dclass.c456 &ts->u.derived->declared_at); in gfc_class_initializer()
781 ts->u.derived->name, &ts->u.derived->declared_at); in gfc_build_class_symbol()
1224 expr->where = sizes->declared_at; in finalization_get_offset()

12