| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | class.c | 734 c->attr.access = ACCESS_PRIVATE; in gfc_build_class_symbol() 750 c->attr.access = ACCESS_PRIVATE; in gfc_build_class_symbol() 766 c->attr.access = ACCESS_PRIVATE; in gfc_build_class_symbol() 825 c->attr.access = ACCESS_PRIVATE; in add_proc_comp() 2387 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2396 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2408 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2446 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2474 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2540 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() [all …]
|
| H A D | symbol.c | 72 minit ("PRIVATE", ACCESS_PRIVATE), 478 if (attr->access == ACCESS_PRIVATE) in gfc_check_conflict() 724 if (attr->access == ACCESS_PRIVATE) in gfc_check_conflict() 773 if (attr->access == ACCESS_PUBLIC || attr->access == ACCESS_PRIVATE) in gfc_check_conflict() 1881 || (attr->use_assoc && attr->access != ACCESS_PRIVATE)) in gfc_add_access() 2535 if (p->attr.access == ACCESS_PRIVATE || in gfc_find_component() 2537 && sym->component_access == ACCESS_PRIVATE in gfc_find_component() 4950 dt_sym->component_access = ACCESS_PRIVATE; in generate_isocbinding_symbol() 4987 tmp_comp->attr.access = ACCESS_PRIVATE; in generate_isocbinding_symbol()
|
| H A D | trans-decl.c | 668 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in gfc_finish_var_decl() 698 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in gfc_finish_var_decl() 1014 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in gfc_build_qualified_array() 1386 && (sym->attr.access != ACCESS_PRIVATE || sym->attr.public_used)) in gfc_create_string_length() 2030 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in get_proc_pointer_decl() 2382 && (sym->ns->default_access == ACCESS_PRIVATE in build_function_decl() 2385 sym->attr.access = ACCESS_PRIVATE; in build_function_decl() 2389 && (sym->attr.access != ACCESS_PRIVATE || sym->binding_label in build_function_decl() 5307 && (sym->ns->default_access == ACCESS_PRIVATE in gfc_create_module_variable() 5310 sym->attr.access = ACCESS_PRIVATE; in gfc_create_module_variable() [all …]
|
| H A D | parse.c | 2936 gfc_typebound_default_access = ACCESS_PRIVATE; in parse_derived_contains() 3136 if (sym->component_access == ACCESS_PRIVATE in check_component() 3137 || c->attr.access == ACCESS_PRIVATE in check_component() 3387 s.sym->component_access = ACCESS_PRIVATE; in parse_derived() 3908 ? ACCESS_PUBLIC : ACCESS_PRIVATE; in parse_spec()
|
| H A D | interface.c | 643 if (derived1->component_access == ACCESS_PRIVATE in gfc_compare_derived_types() 644 || derived2->component_access == ACCESS_PRIVATE) in gfc_compare_derived_types() 4865 && proc->n.tb->access == ACCESS_PRIVATE) in gfc_check_typebound_override()
|
| H A D | decl.c | 5701 t = gfc_add_access (¤t_attr, ACCESS_PRIVATE, NULL, in match_attr_spec() 5977 if (tmp_sym->attr.access == ACCESS_PRIVATE in verify_bind_c_sym() 9059 gfc_access access = (st == ST_PUBLIC) ? ACCESS_PUBLIC : ACCESS_PRIVATE; in access_attr_decl() 10074 if (!gfc_add_access (attr, ACCESS_PRIVATE, NULL, NULL)) in gfc_get_type_attr_spec() 10978 ba->access = ACCESS_PRIVATE; in match_binding_attributes()
|
| H A D | frontend-passes.c | 421 fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE; in copy_walk_reduction_arg() 743 fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE; in get_len_call() 1987 fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE; in get_len_trim_call()
|
| H A D | resolve.c | 911 proc->attr.access = ACCESS_PRIVATE; in resolve_entries() 13886 && p->access != ACCESS_PRIVATE && derived->ns == gfc_current_ns) in resolve_typebound_intrinsic_op() 14696 strlen->attr.access = ACCESS_PRIVATE; in resolve_component() 14702 && sym->component_access != ACCESS_PRIVATE in resolve_component() 14898 token->attr.access = ACCESS_PRIVATE; in resolve_fl_derived0() 15017 && sym->attr.access != ACCESS_PRIVATE in resolve_fl_derived() 16077 else if (a->function && sym->result && a->access != ACCESS_PRIVATE in resolve_symbol()
|
| H A D | gfortran.h | 304 { ACCESS_UNKNOWN = 0, ACCESS_PUBLIC, ACCESS_PRIVATE enumerator
|
| H A D | module.c | 5543 if (specific_access == ACCESS_PRIVATE) in check_access() 5549 return default_access != ACCESS_PRIVATE; in check_access()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | class.cc | 749 c->attr.access = ACCESS_PRIVATE; in gfc_build_class_symbol() 765 c->attr.access = ACCESS_PRIVATE; in gfc_build_class_symbol() 781 c->attr.access = ACCESS_PRIVATE; in gfc_build_class_symbol() 840 c->attr.access = ACCESS_PRIVATE; in add_proc_comp() 2396 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2405 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2417 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2455 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2484 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() 2551 c->attr.access = ACCESS_PRIVATE; in gfc_find_derived_vtab() [all …]
|
| H A D | symbol.cc | 72 minit ("PRIVATE", ACCESS_PRIVATE), 478 if (attr->access == ACCESS_PRIVATE) in gfc_check_conflict() 725 if (attr->access == ACCESS_PRIVATE) in gfc_check_conflict() 774 if (attr->access == ACCESS_PUBLIC || attr->access == ACCESS_PRIVATE) in gfc_check_conflict() 1888 || (attr->use_assoc && attr->access != ACCESS_PRIVATE)) in gfc_add_access() 2542 if (p->attr.access == ACCESS_PRIVATE || in gfc_find_component() 2544 && sym->component_access == ACCESS_PRIVATE in gfc_find_component() 4994 dt_sym->component_access = ACCESS_PRIVATE; in generate_isocbinding_symbol() 5031 tmp_comp->attr.access = ACCESS_PRIVATE; in generate_isocbinding_symbol()
|
| H A D | trans-decl.cc | 673 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in gfc_finish_var_decl() 703 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in gfc_finish_var_decl() 1019 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in gfc_build_qualified_array() 1392 && (sym->attr.access != ACCESS_PRIVATE || sym->attr.public_used)) in gfc_create_string_length() 2069 if (sym->attr.access == ACCESS_PRIVATE && !sym->attr.public_used) in get_proc_pointer_decl() 2406 && (sym->ns->default_access == ACCESS_PRIVATE in build_function_decl() 2409 sym->attr.access = ACCESS_PRIVATE; in build_function_decl() 2413 && (sym->attr.access != ACCESS_PRIVATE || sym->binding_label in build_function_decl() 5235 && (sym->ns->default_access == ACCESS_PRIVATE in gfc_create_module_variable() 5238 sym->attr.access = ACCESS_PRIVATE; in gfc_create_module_variable() [all …]
|
| H A D | parse.cc | 3186 gfc_typebound_default_access = ACCESS_PRIVATE; in parse_derived_contains() 3386 if (sym->component_access == ACCESS_PRIVATE in check_component() 3387 || c->attr.access == ACCESS_PRIVATE in check_component() 3637 s.sym->component_access = ACCESS_PRIVATE; in parse_derived() 4158 ? ACCESS_PUBLIC : ACCESS_PRIVATE; in parse_spec()
|
| H A D | decl.cc | 5790 t = gfc_add_access (¤t_attr, ACCESS_PRIVATE, NULL, in match_attr_spec() 6066 if (tmp_sym->attr.access == ACCESS_PRIVATE in verify_bind_c_sym() 9147 gfc_access access = (st == ST_PUBLIC) ? ACCESS_PUBLIC : ACCESS_PRIVATE; in access_attr_decl() 10164 if (!gfc_add_access (attr, ACCESS_PRIVATE, NULL, NULL)) in gfc_get_type_attr_spec() 11068 ba->access = ACCESS_PRIVATE; in match_binding_attributes()
|
| H A D | frontend-passes.cc | 421 fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE; in copy_walk_reduction_arg() 743 fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE; in get_len_call() 1987 fcn->symtree->n.sym->attr.access = ACCESS_PRIVATE; in get_len_trim_call()
|
| H A D | interface.cc | 652 if (derived1->component_access == ACCESS_PRIVATE in gfc_compare_derived_types() 653 || derived2->component_access == ACCESS_PRIVATE) in gfc_compare_derived_types() 5068 && proc->n.tb->access == ACCESS_PRIVATE) in gfc_check_typebound_override()
|
| H A D | resolve.cc | 922 proc->attr.access = ACCESS_PRIVATE; in resolve_entries() 14098 && p->access != ACCESS_PRIVATE && derived->ns == gfc_current_ns) in resolve_typebound_intrinsic_op() 14909 strlen->attr.access = ACCESS_PRIVATE; in resolve_component() 14915 && sym->component_access != ACCESS_PRIVATE in resolve_component() 15115 token->attr.access = ACCESS_PRIVATE; in resolve_fl_derived0() 15237 && sym->attr.access != ACCESS_PRIVATE in resolve_fl_derived() 16304 else if (a->function && sym->result && a->access != ACCESS_PRIVATE in resolve_symbol()
|
| H A D | module.cc | 5753 if (specific_access == ACCESS_PRIVATE) in check_access() 5759 return default_access != ACCESS_PRIVATE; in check_access()
|
| H A D | gfortran.h | 354 { ACCESS_UNKNOWN = 0, ACCESS_PUBLIC, ACCESS_PRIVATE enumerator
|
| H A D | ChangeLog-2007 | 2484 attribute of ACCESS_PUBLIC or ACCESS_PRIVATE already marked.
|