Home
last modified time | relevance | path

Searched refs:is_bind_c (Results 1 – 25 of 39) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Ddecl.c1507 if (sym->attr.is_bind_c == 0) in gfc_verify_c_interop_param()
1528 if (sym->ns->proc_name->attr.is_bind_c == 1) in gfc_verify_c_interop_param()
1720 if (sym->attr.is_bind_c == 1) in build_sym()
1737 if (sym->common_block != NULL && sym->common_block->is_bind_c == 1 in build_sym()
5807 set_com_block_bind_c (gfc_common_head *com_block, int is_bind_c) in set_com_block_bind_c() argument
5809 com_block->is_bind_c = is_bind_c; in set_com_block_bind_c()
5820 return (ts->u.derived->ts.is_c_interop || ts->u.derived->attr.is_bind_c) in gfc_verify_c_interop()
5871 if (tmp_sym->attr.function && tmp_sym->attr.is_bind_c) in verify_bind_c_sym()
5926 if (is_in_common == 1 && tmp_sym->attr.is_bind_c == 1) in verify_bind_c_sym()
5938 if (tmp_sym->attr.is_bind_c == 1) in verify_bind_c_sym()
[all …]
H A Dsymbol.c327 if (sym->attr.is_bind_c == 1 && warn_c_binding_type) in gfc_set_default_type()
341 && sym->ns->proc_name->attr.is_bind_c != 0 in gfc_set_default_type()
426 *is_bind_c = "BIND(C)", *procedure = "PROCEDURE", in gfc_check_conflict() local
595 conf (in_equivalence, is_bind_c); in gfc_check_conflict()
606 conf (is_bind_c, dummy); in gfc_check_conflict()
608 conf (is_bind_c, cray_pointer); in gfc_check_conflict()
609 conf (is_bind_c, cray_pointee); in gfc_check_conflict()
610 conf (is_bind_c, codimension); in gfc_check_conflict()
611 conf (is_bind_c, allocatable); in gfc_check_conflict()
612 conf (is_bind_c, elemental); in gfc_check_conflict()
[all …]
H A Dtrans-common.c255 if (com->is_bind_c == 1 && com->binding_label) in gfc_sym_mangled_common_id()
429 if (com->is_bind_c == 1 && com->binding_label) in build_common_decl()
441 if (!com->is_bind_c) in build_common_decl()
988 dummy_symbol->is_bind_c |= attr.is_bind_c; in accumulate_equivalence_attributes()
H A Dtrans-types.c2239 && ((sym->attr.function && sym->attr.is_bind_c) in gfc_sym_type()
2242 && sym->ns->proc_name->attr.is_bind_c) in gfc_sym_type()
2870 && !sym->attr.is_bind_c in gfc_return_by_reference()
2873 || !sym->ns->proc_name->attr.is_bind_c)) in gfc_return_by_reference()
3105 if (arg && arg->ts.type == BT_CHARACTER && !sym->attr.is_bind_c) in gfc_get_function_type()
H A Dmodule.c2282 if (attr->is_bind_c) in mio_symbol_attribute()
2487 attr->is_bind_c = 1; in mio_symbol_attribute()
4789 mio_integer (&p->is_bind_c); in load_commons()
5623 label = (p->is_bind_c && p->binding_label) ? p->binding_label : ""; in write_common_0()
5653 mio_integer (&(p->is_bind_c)); in write_common_0()
5692 int is_bind_c = 0; in write_blank_common() local
5706 mio_integer (&is_bind_c); in write_blank_common()
5764 if ((sym->attr.is_bind_c || sym->attr.is_iso_c) && sym->binding_label) in write_symbol()
H A Dtrans-decl.c378 if (sym->attr.is_bind_c == 1 && sym->binding_label) in mangled_identifier()
441 if ((sym->attr.is_bind_c == 1 || sym->attr.is_iso_c == 1) && in gfc_sym_mangled_function_id()
655 if(sym->attr.is_bind_c == 1 && sym->binding_label) in gfc_finish_var_decl()
2610 && (!sym->attr.is_bind_c || sym->attr.entry_master)) in create_function_arglist()
2768 && !sym->attr.is_bind_c); in create_function_arglist()
2835 if (!sym->attr.is_bind_c) in create_function_arglist()
5545 || sym->attr.is_bind_c in gfc_emit_parameter_debug_info()
6098 && sym->ns->proc_name != NULL && sym->ns->proc_name->attr.is_bind_c) in generate_local_decl()
6860 if ((gfc_option.rtcheck & GFC_RTCHECK_BOUNDS) && !sym->attr.is_bind_c) in gfc_generate_function_code()
H A Dresolve.c243 sym->attr.is_bind_c = ifc->attr.is_bind_c; in resolve_procedure_interface()
973 || csym->ts.u.derived->attr.is_bind_c)) in resolve_common_vars()
2536 else if (sym->attr.is_bind_c) /* (5) */ in gfc_explicit_interface_required()
8907 return !(sym->attr.is_bind_c || sym->attr.sequence in gfc_type_is_extensible()
12282 && derived_sym->attr.is_bind_c == 1) in resolve_bind_c_derived_types()
12314 if (!sym || !sym->attr.is_bind_c || sym->attr.is_iso_c in gfc_verify_binding_labels()
13253 if (sym->attr.is_bind_c && sym->attr.is_c_interop != 1) in resolve_fl_procedure()
13263 sym->attr.is_bind_c = 0; in resolve_fl_procedure()
13295 sym->attr.is_bind_c = 0; in resolve_fl_procedure()
13419 if (sym->attr.is_bind_c && sym->attr.if_source == IFSRC_UNKNOWN) in resolve_fl_procedure()
[all …]
H A Ddump-parse-tree.c804 if (attr->is_bind_c) in show_attr()
3231 || sym->attr.is_bind_c) in gfc_dump_external_c_prototypes()
3536 if (!sym->attr.is_bind_c) in write_interop_decl()
H A Dinterface.c648 && !(derived1->attr.is_bind_c && derived2->attr.is_bind_c) in gfc_compare_derived_types()
723 && (ts1->u.derived->attr.sequence || ts1->u.derived->attr.is_bind_c)) in gfc_compare_types()
5103 type = derived->attr.sequence || derived->attr.is_bind_c ? in check_dtio_interface1()
H A Dgfortran.h814 unsigned is_bind_c:1; /* say if is bound to C. */ member
1684 int is_bind_c; member
H A Dcheck.c5189 if (expr->ts.type == BT_DERIVED && !expr->ts.u.derived->attr.is_bind_c in is_c_interoperable()
5469 if (!attr.is_bind_c) in gfc_check_c_f_procpointer()
5508 if (!attr.is_bind_c) in gfc_check_c_funloc()
H A Dmatch.c5263 if (t->is_bind_c == 1) in gfc_match_common()
5278 if (sym->attr.is_bind_c == 1) in gfc_match_common()
6871 || c->ts.u.derived->attr.is_bind_c)) in gfc_match_type_is()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Ddecl.cc1507 if (sym->attr.is_bind_c == 0) in gfc_verify_c_interop_param()
1528 if (sym->ns->proc_name->attr.is_bind_c == 1) in gfc_verify_c_interop_param()
1799 if (sym->attr.is_bind_c == 1) in build_sym()
1816 if (sym->common_block != NULL && sym->common_block->is_bind_c == 1 in build_sym()
5896 set_com_block_bind_c (gfc_common_head *com_block, int is_bind_c) in set_com_block_bind_c() argument
5898 com_block->is_bind_c = is_bind_c; in set_com_block_bind_c()
5909 return (ts->u.derived->ts.is_c_interop || ts->u.derived->attr.is_bind_c) in gfc_verify_c_interop()
5960 if (tmp_sym->attr.function && tmp_sym->attr.is_bind_c) in verify_bind_c_sym()
6015 if (is_in_common == 1 && tmp_sym->attr.is_bind_c == 1) in verify_bind_c_sym()
6027 if (tmp_sym->attr.is_bind_c == 1) in verify_bind_c_sym()
[all …]
H A Dsymbol.cc327 if (sym->attr.is_bind_c == 1 && warn_c_binding_type) in gfc_set_default_type()
341 && sym->ns->proc_name->attr.is_bind_c != 0 in gfc_set_default_type()
426 *is_bind_c = "BIND(C)", *procedure = "PROCEDURE", in gfc_check_conflict() local
595 conf (in_equivalence, is_bind_c); in gfc_check_conflict()
606 conf (is_bind_c, dummy); in gfc_check_conflict()
608 conf (is_bind_c, cray_pointer); in gfc_check_conflict()
609 conf (is_bind_c, cray_pointee); in gfc_check_conflict()
610 conf (is_bind_c, codimension); in gfc_check_conflict()
611 conf (is_bind_c, allocatable); in gfc_check_conflict()
612 conf (is_bind_c, elemental); in gfc_check_conflict()
[all …]
H A Dtrans-common.cc255 if (com->is_bind_c == 1 && com->binding_label) in gfc_sym_mangled_common_id()
438 if (com->is_bind_c == 1 && com->binding_label) in build_common_decl()
450 if (!com->is_bind_c) in build_common_decl()
1017 dummy_symbol->is_bind_c |= attr.is_bind_c; in accumulate_equivalence_attributes()
H A Dtrans-types.cc2265 gfc_sym_type (gfc_symbol * sym, bool is_bind_c) in gfc_sym_type() argument
2299 && ((sym->attr.function && sym->attr.is_bind_c) in gfc_sym_type()
2302 && sym->ns->proc_name->attr.is_bind_c) in gfc_sym_type()
2321 if (is_bind_c && is_CFI_desc (sym, NULL)) in gfc_sym_type()
2941 && !sym->attr.is_bind_c in gfc_return_by_reference()
2944 || !sym->ns->proc_name->attr.is_bind_c)) in gfc_return_by_reference()
3172 type = gfc_sym_type (arg, sym->attr.is_bind_c); in gfc_get_function_type()
3203 if (arg && arg->ts.type == BT_CHARACTER && !sym->attr.is_bind_c) in gfc_get_function_type()
H A Dmodule.cc2345 if (attr->is_bind_c) in mio_symbol_attribute()
2587 attr->is_bind_c = 1; in mio_symbol_attribute()
4941 mio_integer (&p->is_bind_c); in load_commons()
5833 label = (p->is_bind_c && p->binding_label) ? p->binding_label : ""; in write_common_0()
5864 mio_integer (&(p->is_bind_c)); in write_common_0()
5903 int is_bind_c = 0; in write_blank_common() local
5917 mio_integer (&is_bind_c); in write_blank_common()
5975 if ((sym->attr.is_bind_c || sym->attr.is_iso_c) && sym->binding_label) in write_symbol()
H A Dtrans-decl.cc375 if (sym->attr.is_bind_c == 1 && sym->binding_label) in mangled_identifier()
438 if ((sym->attr.is_bind_c == 1 || sym->attr.is_iso_c == 1) && in gfc_sym_mangled_function_id()
660 if(sym->attr.is_bind_c == 1 && sym->binding_label) in gfc_finish_var_decl()
1552 if (sym->attr.dummy && sym->ns->proc_name->attr.is_bind_c in gfc_get_symbol_decl()
2634 && (!sym->attr.is_bind_c || sym->attr.entry_master)) in create_function_arglist()
2751 if (sym->attr.is_bind_c && is_CFI_desc (f->sym, NULL)) in create_function_arglist()
2802 && !sym->attr.is_bind_c); in create_function_arglist()
2869 if (!sym->attr.is_bind_c) in create_function_arglist()
5473 || sym->attr.is_bind_c in gfc_emit_parameter_debug_info()
6024 && sym->ns->proc_name != NULL && sym->ns->proc_name->attr.is_bind_c) in generate_local_decl()
[all …]
H A Dresolve.cc243 sym->attr.is_bind_c = ifc->attr.is_bind_c; in resolve_procedure_interface()
997 || csym->ts.u.derived->attr.is_bind_c)) in resolve_common_vars()
2594 else if (sym->attr.is_bind_c) /* (5) */ in gfc_explicit_interface_required()
9045 return !(sym->attr.is_bind_c || sym->attr.sequence in gfc_type_is_extensible()
12489 && derived_sym->attr.is_bind_c == 1) in resolve_bind_c_derived_types()
12521 if (!sym || !sym->attr.is_bind_c || sym->attr.is_iso_c in gfc_verify_binding_labels()
13465 if (sym->attr.is_bind_c && sym->attr.is_c_interop != 1) in resolve_fl_procedure()
13475 sym->attr.is_bind_c = 0; in resolve_fl_procedure()
13507 sym->attr.is_bind_c = 0; in resolve_fl_procedure()
13631 if (sym->attr.is_bind_c && sym->attr.if_source == IFSRC_UNKNOWN) in resolve_fl_procedure()
[all …]
H A Ddump-parse-tree.cc829 if (attr->is_bind_c) in show_attr()
3565 || sym->attr.is_bind_c) in gfc_dump_external_c_prototypes()
3875 if (!sym->attr.is_bind_c) in write_interop_decl()
H A Dinterface.cc657 && !(derived1->attr.is_bind_c && derived2->attr.is_bind_c) in gfc_compare_derived_types()
734 && (ts1->u.derived->attr.sequence || ts1->u.derived->attr.is_bind_c)) in gfc_compare_types()
5306 type = derived->attr.sequence || derived->attr.is_bind_c ? in check_dtio_interface1()
H A Dgfortran.h886 unsigned is_bind_c:1; /* say if is bound to C. */ member
1939 int is_bind_c; member
H A Dtrans-expr.cc6351 else if (sym->attr.is_bind_c && e && is_CFI_desc (fsym, NULL)) in gfc_conv_procedure_call()
6360 && fsym->ns->proc_name->attr.is_bind_c) in gfc_conv_procedure_call()
6815 if (!sym->attr.is_bind_c && e && fsym && fsym->as in gfc_conv_procedure_call()
6834 if (sym->attr.is_bind_c && e && is_CFI_desc (fsym, NULL)) in gfc_conv_procedure_call()
6949 if (!sym->attr.is_bind_c && e && fsym && e->rank > 0 in gfc_conv_procedure_call()
7298 && !sym->attr.is_bind_c in gfc_conv_procedure_call()
7422 if (ts.type == BT_CHARACTER && sym->attr.is_bind_c) in gfc_conv_procedure_call()
7484 || (comp->ts.type == BT_CHARACTER && !sym->attr.is_bind_c))) in gfc_conv_procedure_call()
9412 && expr->ts.u.derived->attr.is_bind_c) in gfc_conv_expr()
H A Dmatch.cc5305 if (t->is_bind_c == 1) in gfc_match_common()
5320 if (sym->attr.is_bind_c == 1) in gfc_match_common()
6962 || c->ts.u.derived->attr.is_bind_c)) in gfc_match_type_is()
H A Dcheck.cc5208 if (expr->ts.type == BT_DERIVED && !expr->ts.u.derived->attr.is_bind_c in is_c_interoperable()
5488 if (!attr.is_bind_c) in gfc_check_c_f_procpointer()
5527 if (!attr.is_bind_c) in gfc_check_c_funloc()

12