| /netbsd-src/external/gpl2/lvm2/dist/tools/ |
| H A D | pvchange.c | 39 int allocatable = 0; in _pvchange_single() local
49 allocatable = !strcmp(arg_str_value(cmd, allocatable_ARG, "n"), in _pvchange_single()
116 if (allocatable && (pv_status(pv) & ALLOCATABLE_PV)) { in _pvchange_single()
123 if (!allocatable && !(pv_status(pv) & ALLOCATABLE_PV)) { in _pvchange_single()
130 if (allocatable) { in _pvchange_single()
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | primary.c | 2652 int dimension, codimension, pointer, allocatable, target; in gfc_variable_attr() local
2670 allocatable = CLASS_DATA (sym)->attr.allocatable; in gfc_variable_attr()
2677 allocatable = attr.allocatable; in gfc_variable_attr()
2707 allocatable = pointer = 0; in gfc_variable_attr()
2714 allocatable = pointer = 0; in gfc_variable_attr()
2743 allocatable = CLASS_DATA (comp)->attr.allocatable; in gfc_variable_attr()
2749 allocatable = comp->attr.allocatable; in gfc_variable_attr()
2758 allocatable = pointer = 0; in gfc_variable_attr()
2765 attr.allocatable = allocatable; in gfc_variable_attr()
2797 attr.allocatable = CLASS_DATA (sym)->attr.allocatable; in gfc_expr_attr()
[all …]
|
| H A D | symbol.c | 382 proc->attr.allocatable = proc->result->attr.allocatable; in gfc_check_function_type()
417 *allocatable = "ALLOCATABLE", *elemental = "ELEMENTAL", in gfc_check_conflict() local
457 if (attr->in_namelist && (attr->allocatable || attr->pointer)) in gfc_check_conflict()
460 a2 = attr->allocatable ? allocatable : pointer; in gfc_check_conflict()
472 if (attr->allocatable) in gfc_check_conflict()
473 a1 = allocatable; in gfc_check_conflict()
544 conf (allocatable, elemental); in gfc_check_conflict()
568 conf (allocatable, pointer); in gfc_check_conflict()
569 conf_std (allocatable, dummy, GFC_STD_F2003); in gfc_check_conflict()
570 conf_std (allocatable, function, GFC_STD_F2003); in gfc_check_conflict()
[all …]
|
| H A D | trans-expr.c | 55 else if (attr.allocatable) in get_scalar_to_descriptor_type()
93 if ((attr.pointer || attr.allocatable) && attr.intent != INTENT_IN) in gfc_conv_scalar_to_descriptor()
115 && (ref->u.c.component->attr.allocatable in gfc_get_ultimate_alloc_ptr_comps_caf_token()
411 if (array_ref && CLASS_DATA (ref->u.c.component)->attr.allocatable) in gfc_find_and_cut_at_last_class_ref()
1943 && !sym->attr.allocatable in gfc_conv_expr_present()
1946 && !CLASS_DATA (sym)->attr.allocatable in gfc_conv_expr_present()
2699 if (((c->attr.pointer || c->attr.allocatable) in gfc_conv_component_ref()
2789 if ((sym->attr.pointer || sym->attr.allocatable) in gfc_maybe_dereference_var()
2809 && !(sym->attr.codimension && sym->attr.allocatable) in gfc_maybe_dereference_var()
2813 && CLASS_DATA (sym)->attr.allocatable)))) in gfc_maybe_dereference_var()
[all …]
|
| H A D | resolve.c | 217 sym->attr.allocatable = ifc->result->attr.allocatable; in resolve_procedure_interface()
227 sym->attr.allocatable = ifc->attr.allocatable; in resolve_procedure_interface()
281 || sym->attr.pointer || sym->attr.allocatable in gfc_resolve_formal_arglist()
349 && !(sym->attr.pointer || sym->attr.allocatable)) in gfc_resolve_formal_arglist()
352 || CLASS_DATA (sym)->attr.allocatable))) in gfc_resolve_formal_arglist()
362 || sym->attr.pointer || sym->attr.allocatable || sym->attr.target in gfc_resolve_formal_arglist()
365 || CLASS_DATA (sym)->attr.allocatable in gfc_resolve_formal_arglist()
471 if (sym->attr.allocatable in gfc_resolve_formal_arglist()
473 && CLASS_DATA (sym)->attr.allocatable)) in gfc_resolve_formal_arglist()
1309 && (comp->attr.allocatable || cons->expr->rank)) in resolve_structure_cons()
[all …]
|
| H A D | trans-decl.c | 595 if (attr->allocatable) in gfc_finish_decl_attrs()
715 && sym->attr.codimension && !sym->attr.allocatable))) in gfc_finish_var_decl()
750 || sym->attr.allocatable) in gfc_finish_var_decl()
1210 || array_attr->allocatable in gfc_build_dummy_array_decl()
1591 && sym->attr.allocatable) in gfc_get_symbol_decl()
1807 || ((sym->attr.allocatable || !sym->attr.dummy) && !sym->attr.pointer)) in gfc_get_symbol_decl()
1812 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension in gfc_get_symbol_decl()
1815 || CLASS_DATA (sym)->attr.allocatable)) in gfc_get_symbol_decl()
1825 && !sym->attr.allocatable in gfc_get_symbol_decl()
1831 && sym->attr.allocatable in gfc_get_symbol_decl()
[all …]
|
| H A D | interface.c | 492 if (cmp1->attr.allocatable != cmp2->attr.allocatable) in compare_components()
1220 CLASS_DATA(s1)->attr.allocatable : s1->attr.allocatable; in compare_ptr_alloc()
1362 if (s1->attr.allocatable != s2->attr.allocatable) in gfc_check_dummy_characteristics()
1577 if (r1->attr.allocatable != r2->attr.allocatable) in gfc_check_result_characteristics()
1649 if (!r1->attr.allocatable && !r1->attr.pointer && r1->as && r2->as) in gfc_check_result_characteristics()
2172 if (formal->attr.allocatable in compare_allocatable()
2173 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable)) in compare_allocatable()
2178 else if (!attr.allocatable) in compare_allocatable()
2455 || CLASS_DATA (formal)->attr.allocatable)) in compare_parameter()
2481 && (CLASS_DATA (formal)->attr.allocatable in compare_parameter()
[all …]
|
| H A D | class.c | 651 attr->class_ok = attr->dummy || attr->pointer || attr->allocatable in gfc_build_class_symbol()
665 if ((*as) && attr->allocatable) in gfc_build_class_symbol()
673 else if (attr->allocatable) in gfc_build_class_symbol()
737 c->attr.pointer = attr->pointer || (attr->dummy && !attr->allocatable) in gfc_build_class_symbol()
739 c->attr.allocatable = attr->allocatable; in gfc_build_class_symbol()
792 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0; in gfc_build_class_symbol()
897 if (c->ts.type == BT_DERIVED && !c->attr.pointer && !c->attr.allocatable) in has_finalizer_component()
919 else if (comp->attr.allocatable && comp->ts.type != BT_CLASS) in comp_is_finalizable()
928 && CLASS_DATA (comp)->attr.allocatable) in comp_is_finalizable()
994 if (comp->attr.allocatable in finalize_component()
[all …]
|
| H A D | trans-array.c | 5954 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false, in gfc_array_allocate() local
5967 allocatable = expr->symtree->n.sym->attr.allocatable; in gfc_array_allocate()
5973 allocatable = prev_ref->u.c.component->attr.allocatable; in gfc_array_allocate()
6109 if (allocatable) in gfc_array_allocate()
6123 if (allocatable) in gfc_array_allocate()
6468 gcc_assert (!(sym->attr.pointer || sym->attr.allocatable)); in gfc_trans_auto_array_allocation()
6688 || sym->attr.allocatable in gfc_trans_dummy_array_bias()
6689 || (is_classarray && CLASS_DATA (sym)->attr.allocatable)) in gfc_trans_dummy_array_bias()
7993 && !expr->symtree->n.sym->attr.allocatable in gfc_conv_expr_descriptor()
8134 ultimate_alloc_comp = ref->u.c.component->attr.allocatable; in gfc_conv_array_parameter()
[all …]
|
| H A D | trans-types.c | 1351 || array_attr->allocatable) in gfc_is_nodesc_array()
2282 else if (sym->attr.allocatable) in gfc_sym_type()
2290 if (sym->attr.allocatable || sym->attr.pointer in gfc_sym_type()
2620 bool same_alloc_type = c->attr.allocatable in gfc_get_derived_type()
2656 bool same_alloc_type = c->attr.allocatable in gfc_get_derived_type()
2702 bool same_alloc_type = c->attr.allocatable in gfc_get_derived_type()
2742 if (c->attr.pointer || c->attr.allocatable || c->attr.pdt_array) in gfc_get_derived_type()
2763 else if ((c->attr.pointer || c->attr.allocatable || c->attr.pdt_string) in gfc_get_derived_type()
2836 && (c->attr.allocatable || c->attr.pointer) in gfc_get_derived_type()
3133 && !arg->attr.allocatable) in gfc_get_function_type()
[all …]
|
| H A D | parse.c | 2974 bool coarray, lock_type, event_type, allocatable, pointer; in check_component() local
2975 coarray = lock_type = event_type = allocatable = pointer = false; in check_component()
2982 if (c->attr.allocatable in check_component()
2984 && CLASS_DATA (c)->attr.allocatable) in check_component()
2988 allocatable = true; in check_component()
3034 && !allocatable && !pointer)) in check_component()
3051 && !allocatable && !pointer)) in check_component()
3074 if (lock_type && allocatable && !coarray) in check_component()
3077 else if (lock_type && allocatable && c->ts.type == BT_DERIVED in check_component()
3111 if (event_type && allocatable && !coarray) in check_component()
[all …]
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | primary.cc | 2640 int dimension, codimension, pointer, allocatable, target, optional; in gfc_variable_attr() local
2659 allocatable = CLASS_DATA (sym)->attr.allocatable; in gfc_variable_attr()
2666 allocatable = attr.allocatable; in gfc_variable_attr()
2709 allocatable = pointer = 0; in gfc_variable_attr()
2717 allocatable = pointer = optional = false; in gfc_variable_attr()
2747 allocatable = CLASS_DATA (comp)->attr.allocatable; in gfc_variable_attr()
2756 allocatable = comp->attr.allocatable; in gfc_variable_attr()
2765 allocatable = pointer = optional = false; in gfc_variable_attr()
2772 attr.allocatable = allocatable; in gfc_variable_attr()
2805 attr.allocatable = CLASS_DATA (sym)->attr.allocatable; in gfc_expr_attr()
[all …]
|
| H A D | symbol.cc | 382 proc->attr.allocatable = proc->result->attr.allocatable; in gfc_check_function_type()
417 *allocatable = "ALLOCATABLE", *elemental = "ELEMENTAL", in gfc_check_conflict() local
457 if (attr->in_namelist && (attr->allocatable || attr->pointer)) in gfc_check_conflict()
460 a2 = attr->allocatable ? allocatable : pointer; in gfc_check_conflict()
472 if (attr->allocatable) in gfc_check_conflict()
473 a1 = allocatable; in gfc_check_conflict()
544 conf (allocatable, elemental); in gfc_check_conflict()
568 conf (allocatable, pointer); in gfc_check_conflict()
569 conf_std (allocatable, dummy, GFC_STD_F2003); in gfc_check_conflict()
570 conf_std (allocatable, function, GFC_STD_F2003); in gfc_check_conflict()
[all …]
|
| H A D | trans-expr.cc | 95 else if (attr.allocatable) in get_scalar_to_descriptor_type()
135 if ((attr.pointer || attr.allocatable) && attr.intent != INTENT_IN) in gfc_conv_scalar_to_descriptor()
157 && (ref->u.c.component->attr.allocatable in gfc_get_ultimate_alloc_ptr_comps_caf_token()
489 && CLASS_DATA (ref->u.c.component)->attr.allocatable) in gfc_find_and_cut_at_last_class_ref()
2037 && !sym->attr.allocatable in gfc_conv_expr_present()
2040 && !CLASS_DATA (sym)->attr.allocatable in gfc_conv_expr_present()
2793 if (((c->attr.pointer || c->attr.allocatable) in gfc_conv_component_ref()
2890 if ((sym->attr.pointer || sym->attr.allocatable in gfc_maybe_dereference_var()
2911 && !(sym->attr.codimension && sym->attr.allocatable) in gfc_maybe_dereference_var()
2915 && CLASS_DATA (sym)->attr.allocatable)))) in gfc_maybe_dereference_var()
[all …]
|
| H A D | resolve.cc | 217 sym->attr.allocatable = ifc->result->attr.allocatable; in resolve_procedure_interface()
227 sym->attr.allocatable = ifc->attr.allocatable; in resolve_procedure_interface()
281 || sym->attr.pointer || sym->attr.allocatable in gfc_resolve_formal_arglist()
349 && !(sym->attr.pointer || sym->attr.allocatable)) in gfc_resolve_formal_arglist()
352 || CLASS_DATA (sym)->attr.allocatable))) in gfc_resolve_formal_arglist()
362 || sym->attr.pointer || sym->attr.allocatable || sym->attr.target in gfc_resolve_formal_arglist()
365 || CLASS_DATA (sym)->attr.allocatable in gfc_resolve_formal_arglist()
471 if (sym->attr.allocatable in gfc_resolve_formal_arglist()
473 && CLASS_DATA (sym)->attr.allocatable)) in gfc_resolve_formal_arglist()
808 && (el->sym->result->attr.allocatable in resolve_entries()
[all …]
|
| H A D | trans-decl.cc | 592 if (attr->allocatable) in gfc_finish_decl_attrs()
720 && sym->attr.codimension && !sym->attr.allocatable))) in gfc_finish_var_decl()
755 || sym->attr.allocatable) in gfc_finish_var_decl()
1215 || array_attr->allocatable in gfc_build_dummy_array_decl()
1630 && sym->attr.allocatable) in gfc_get_symbol_decl()
1846 || ((sym->attr.allocatable || !sym->attr.dummy) && !sym->attr.pointer)) in gfc_get_symbol_decl()
1851 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension in gfc_get_symbol_decl()
1854 || CLASS_DATA (sym)->attr.allocatable)) in gfc_get_symbol_decl()
1864 && !sym->attr.allocatable in gfc_get_symbol_decl()
1870 && sym->attr.allocatable in gfc_get_symbol_decl()
[all …]
|
| H A D | interface.cc | 492 if (cmp1->attr.allocatable != cmp2->attr.allocatable) in compare_components()
1231 CLASS_DATA(s1)->attr.allocatable : s1->attr.allocatable; in compare_ptr_alloc()
1374 if (s1->attr.allocatable != s2->attr.allocatable) in gfc_check_dummy_characteristics()
1589 if (r1->attr.allocatable != r2->attr.allocatable) in gfc_check_result_characteristics()
1661 if (!r1->attr.allocatable && !r1->attr.pointer && r1->as && r2->as) in gfc_check_result_characteristics()
2192 if (formal->attr.allocatable in compare_allocatable()
2193 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable)) in compare_allocatable()
2198 else if (!attr.allocatable) in compare_allocatable()
2520 || CLASS_DATA (formal)->attr.allocatable)) in compare_parameter()
2546 && (CLASS_DATA (formal)->attr.allocatable in compare_parameter()
[all …]
|
| H A D | class.cc | 655 && ts->u.derived->components->attr.allocatable >= attr->allocatable) in gfc_build_class_symbol()
662 attr->allocatable |= ts->u.derived->components->attr.allocatable; in gfc_build_class_symbol()
666 attr->class_ok = attr->dummy || attr->pointer || attr->allocatable in gfc_build_class_symbol()
680 if ((*as) && attr->allocatable) in gfc_build_class_symbol()
688 else if (attr->allocatable) in gfc_build_class_symbol()
752 c->attr.pointer = attr->pointer || (attr->dummy && !attr->allocatable) in gfc_build_class_symbol()
754 c->attr.allocatable = attr->allocatable; in gfc_build_class_symbol()
807 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0; in gfc_build_class_symbol()
912 if (c->ts.type == BT_DERIVED && !c->attr.pointer && !c->attr.allocatable) in has_finalizer_component()
934 else if (comp->attr.allocatable && comp->ts.type != BT_CLASS) in comp_is_finalizable()
[all …]
|
| H A D | ChangeLog-2015 | 676 allocatable component references to the right of part reference
770 length to zero. If the 'to' expression has allocatable
1193 component when the object to assign is not an allocatable class
1194 object (the memory is already present for allocatable class objects).
1202 * trans-array.c (gfc_conv_array_parameter): Guard allocatable
1205 * trans-expr.c (gfc_conv_expr_reference): Remove allocatable
1211 elemental_proc and nodesc_arg to decide whether generate allocatable
1304 with allocatable or pointer components are marked referenced
1309 result decl for functions returning an object with allocatable
1459 allocatable associated objects.
[all …]
|
| H A D | trans-array.cc | 6064 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false, in gfc_array_allocate() local
6077 allocatable = expr->symtree->n.sym->attr.allocatable; in gfc_array_allocate()
6083 allocatable = prev_ref->u.c.component->attr.allocatable; in gfc_array_allocate()
6219 if (allocatable) in gfc_array_allocate()
6233 if (allocatable) in gfc_array_allocate()
6585 gcc_assert (!(sym->attr.pointer || sym->attr.allocatable)); in gfc_trans_auto_array_allocation()
6806 || sym->attr.allocatable in gfc_trans_dummy_array_bias()
6807 || (is_classarray && CLASS_DATA (sym)->attr.allocatable)) in gfc_trans_dummy_array_bias()
8123 if ((!attr.pointer && !attr.allocatable && as && as->type == AS_ASSUMED_RANK) in gfc_tree_array_size()
8150 if (!attr.pointer && !attr.allocatable in gfc_tree_array_size()
[all …]
|
| H A D | ChangeLog-2006 | 1261 the allocatable field.
1271 to allocatable components.
1273 derived types with allocatable components, using the above new
1277 of pointer and replace with that of an allocatable array. Add
1278 nullify of structures with allocatable components.
1280 (gfc_conv_array_parameter): Deallocate allocatable components
1289 nullify or copy allocatable components.
1292 (gfc_trans_deferred_array): Add the code to nullify allocatable
1295 for structures with allocatable components and default
1297 * symbol.c (gfc_set_component_attr): Set allocatable field.
[all …]
|
| H A D | trans-types.cc | 1380 || array_attr->allocatable) in gfc_is_nodesc_array()
2347 else if (sym->attr.allocatable) in gfc_sym_type()
2355 if (sym->attr.allocatable || sym->attr.pointer in gfc_sym_type()
2690 bool same_alloc_type = c->attr.allocatable in gfc_get_derived_type()
2726 bool same_alloc_type = c->attr.allocatable in gfc_get_derived_type()
2772 bool same_alloc_type = c->attr.allocatable in gfc_get_derived_type()
2812 if (c->attr.pointer || c->attr.allocatable || c->attr.pdt_array) in gfc_get_derived_type()
2833 else if ((c->attr.pointer || c->attr.allocatable || c->attr.pdt_string) in gfc_get_derived_type()
2906 && (c->attr.allocatable || c->attr.pointer) in gfc_get_derived_type()
3034 && (sym->attr.allocatable || sym->attr.pointer)) in create_fn_spec()
[all …]
|
| H A D | ChangeLog-2017 | 174 nor allocatable.
316 for pointers as well as allocatable results.
854 initializer for pointer and allocatable pdt type components. If
871 allocatable components, ensure that parameterized components
873 are allocated, nullify allocatable components first. Do not
874 recurse into pointer or allocatable pdt components while
917 is not needed for allocatable, pointer or dummy targets. Change
1214 the allocatable entity. Free 'type_param_spec_list'.
1257 handles as if they are allocatable.
1263 Similarly, PDT arrays are treated as if allocatable. PDT
[all …]
|
| H A D | match.cc | 4392 b2 = !(CLASS_DATA (sym)->attr.allocatable in gfc_match_allocate()
4395 b2 = sym && !(sym->attr.allocatable || sym->attr.pointer in gfc_match_allocate()
4398 && (sym->ns->proc_name->attr.allocatable in gfc_match_allocate()
4804 b2 = !(CLASS_DATA (sym) && (CLASS_DATA (sym)->attr.allocatable in gfc_match_deallocate()
4807 b2 = sym && !(sym->attr.allocatable || sym->attr.pointer in gfc_match_deallocate()
6653 sym->attr.allocatable = CLASS_DATA (selector)->attr.allocatable; in select_rank_set_tmp()
6675 sym->attr.allocatable = selector->attr.allocatable; in select_rank_set_tmp()
6775 CLASS_DATA (sym)->attr.allocatable = CLASS_DATA (sym2)->attr.allocatable; in gfc_match_select_rank()
6789 sym->attr.allocatable = sym2->attr.allocatable; in gfc_match_select_rank()
|
| /netbsd-src/external/apache2/llvm/dist/llvm/lib/Target/SystemZ/ |
| H A D | SystemZRegisterInfo.td | 37 dag regList, list<dag> altRegList = [regList], bit allocatable = 1> {
43 let isAllocatable = allocatable in
155 [], 0/*allocatable*/>;
|