| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | primary.c | 2106 if ((sym->ts.type != BT_CLASS && !sym->attr.codimension) in gfc_match_varspec()
2108 && !CLASS_DATA (sym)->attr.codimension)) in gfc_match_varspec()
2169 || gfc_peek_ascii_char () == '[' || sym->attr.codimension in gfc_match_varspec()
2177 || CLASS_DATA (sym)->attr.codimension))) in gfc_match_varspec()
2652 int dimension, codimension, pointer, allocatable, target; in gfc_variable_attr() local
2668 codimension = CLASS_DATA (sym)->attr.codimension; in gfc_variable_attr()
2675 codimension = attr.codimension; in gfc_variable_attr()
2741 codimension = CLASS_DATA (comp)->attr.codimension; in gfc_variable_attr()
2747 codimension = comp->attr.codimension; in gfc_variable_attr()
2763 attr.codimension = codimension; in gfc_variable_attr()
[all …]
|
| H A D | symbol.c | 428 *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION", in gfc_check_conflict() local
543 conf (pointer, codimension); in gfc_check_conflict()
576 conf (in_common, codimension); in gfc_check_conflict()
580 conf (in_equivalence, codimension); in gfc_check_conflict()
610 conf (is_bind_c, codimension); in gfc_check_conflict()
621 conf (cray_pointer, codimension); in gfc_check_conflict()
635 conf (cray_pointee, codimension); in gfc_check_conflict()
664 conf (value, codimension) in gfc_check_conflict()
667 conf (codimension, result) in gfc_check_conflict()
695 conf (procedure, codimension) in gfc_check_conflict()
[all …]
|
| H A D | trans-expr.c | 108 bool is_coarray = sym->attr.codimension; in gfc_get_ultimate_alloc_ptr_comps_caf_token()
117 && (is_coarray || ref->u.c.component->attr.codimension)) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
754 if (gfc_expr_attr (e).codimension) in gfc_conv_derived_to_class()
1088 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension) in gfc_conv_class_to_class()
1955 || sym->attr.codimension)) in gfc_conv_expr_present()
2107 && CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2116 && CLASS_DATA (ref->u.c.component)->attr.codimension) in gfc_get_tree_for_caf_expr()
2131 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2140 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2148 if (expr->symtree->n.sym->attr.codimension) in gfc_get_tree_for_caf_expr()
[all …]
|
| H A D | trans-decl.c | 592 if (!attr->dimension && !attr->codimension) in gfc_finish_decl_attrs()
715 && sym->attr.codimension && !sym->attr.allocatable))) in gfc_finish_var_decl()
991 if (array_attr->codimension && flag_coarray == GFC_FCOARRAY_LIB in gfc_build_qualified_array()
1666 if ((sym->attr.dimension || sym->attr.codimension) in gfc_get_symbol_decl()
1801 if (sym->attr.dimension || sym->attr.codimension) in gfc_get_symbol_decl()
1812 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension in gfc_get_symbol_decl()
1896 || !sym->attr.codimension || sym->attr.allocatable) in gfc_get_symbol_decl()
1908 || (sym->attr.codimension in gfc_get_symbol_decl()
2757 && ((f->sym->ts.type != BT_CLASS && f->sym->attr.codimension in create_function_arglist()
2760 && CLASS_DATA (f->sym)->attr.codimension in create_function_arglist()
[all …]
|
| H A D | resolve.c | 454 if (sym->attr.codimension in gfc_resolve_formal_arglist()
456 && CLASS_DATA (sym)->attr.codimension)) in gfc_resolve_formal_arglist()
1545 || a.asynchronous || a.codimension) in was_declared()
2479 else if (arg->sym->attr.codimension) /* (2c) */ in gfc_explicit_interface_required()
7695 int codimension; in resolve_allocate_expr() local
7738 codimension = attr.codimension; in resolve_allocate_expr()
7747 codimension = CLASS_DATA (sym)->attr.codimension; in resolve_allocate_expr()
7755 codimension = sym->attr.codimension; in resolve_allocate_expr()
7796 codimension = CLASS_DATA (c)->attr.codimension; in resolve_allocate_expr()
7804 codimension = c->attr.codimension; in resolve_allocate_expr()
[all …]
|
| H A D | trans-types.c | 1346 gcc_assert (array_attr->dimension || array_attr->codimension); in gfc_is_nodesc_array()
2247 type = gfc_typenode_for_spec (&sym->ts, sym->attr.codimension); in gfc_sym_type()
2259 if (sym->attr.dimension || sym->attr.codimension) in gfc_sym_type()
2669 int local_codim = c->attr.codimension ? c->as->corank: codimen; in gfc_get_derived_type()
2740 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer ) in gfc_get_derived_type()
2835 && !c->attr.dimension && !c->attr.codimension in gfc_get_derived_type()
3132 && arg->attr.codimension in gfc_get_function_type()
3135 && CLASS_DATA (arg)->attr.codimension in gfc_get_function_type()
|
| H A D | interface.c | 2329 bool codimension = false; in compare_parameter() local
2494 codimension = CLASS_DATA (formal)->attr.codimension; in compare_parameter()
2496 codimension = formal->attr.codimension; in compare_parameter()
2498 if (codimension && !gfc_is_coarray (actual)) in compare_parameter()
2506 if (codimension && formal->attr.allocatable) in compare_parameter()
2528 if (codimension) in compare_parameter()
2594 if (formal->attr.allocatable && !codimension in compare_parameter()
2595 && actual_attr.codimension) in compare_parameter()
|
| H A D | match.c | 1016 if (var->symtree->n.sym->attr.codimension) in gfc_match_iterator()
4328 bool coarray = tail->expr->symtree->n.sym->attr.codimension; in gfc_match_allocate()
4331 coarray = ref->u.c.component->attr.codimension; in gfc_match_allocate()
6303 || CLASS_DATA (selector)->attr.codimension)) in select_intrinsic_set_tmp()
6307 sym->attr.codimension = CLASS_DATA (selector)->attr.codimension; in select_intrinsic_set_tmp()
6359 || CLASS_DATA (selector)->attr.codimension) in select_type_set_tmp()
6363 sym->attr.codimension in select_type_set_tmp()
6364 = CLASS_DATA (selector)->attr.codimension; in select_type_set_tmp()
6476 || CLASS_DATA (expr1)->attr.codimension) in gfc_match_select_type()
|
| H A D | class.c | 693 if (attr->dummy && !attr->codimension && (*as) in gfc_build_class_symbol()
741 c->attr.codimension = attr->codimension; in gfc_build_class_symbol()
792 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0; in gfc_build_class_symbol()
979 if (comp->attr.dimension || comp->attr.codimension in finalize_component()
982 || CLASS_DATA (comp)->attr.codimension))) in finalize_component()
1001 if (comp->attr.codimension in finalize_component()
1003 && CLASS_DATA (comp)->attr.codimension)) in finalize_component()
|
| H A D | trans-array.c | 3916 if (!expr->ts.deferred && !sym->attr.codimension in gfc_conv_array_ref()
5979 && !prev_ref->u.c.component->attr.codimension); in gfc_array_allocate()
9149 && (!attr->codimension || caf_enabled (caf_mode))) in structure_alloc_comps()
9155 = (caf_in_coarray (caf_mode) || attr->codimension) in structure_alloc_comps()
9164 if (!attr->codimension in structure_alloc_comps()
9174 if (attr->dimension && !attr->codimension && !attr->proc_pointer) in structure_alloc_comps()
9187 else if (attr->allocatable && !attr->codimension in structure_alloc_comps()
9269 && (!attr->codimension || !caf_enabled (caf_mode))) in structure_alloc_comps()
9376 if (c->attr.dimension || c->attr.codimension) in structure_alloc_comps()
9449 && (c->attr.codimension in structure_alloc_comps()
[all …]
|
| H A D | trans-common.c | 993 dummy_symbol->codimension |= attr.codimension; in accumulate_equivalence_attributes()
|
| H A D | parse.c | 3009 if (c->attr.codimension in check_component()
3011 && CLASS_DATA (c)->attr.codimension)) in check_component()
4748 attr.codimension = corank ? 1 : 0; in parse_associate()
4753 attr.dimension = attr.codimension = 0; in parse_associate()
4777 sym->attr.codimension = 1; in parse_associate()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | primary.cc | 2085 if ((sym->ts.type != BT_CLASS && !sym->attr.codimension) in gfc_match_varspec()
2087 && !CLASS_DATA (sym)->attr.codimension)) in gfc_match_varspec()
2148 || gfc_peek_ascii_char () == '[' || sym->attr.codimension in gfc_match_varspec()
2156 || CLASS_DATA (sym)->attr.codimension))) in gfc_match_varspec()
2640 int dimension, codimension, pointer, allocatable, target, optional; in gfc_variable_attr() local
2657 codimension = CLASS_DATA (sym)->attr.codimension; in gfc_variable_attr()
2664 codimension = attr.codimension; in gfc_variable_attr()
2745 codimension = CLASS_DATA (comp)->attr.codimension; in gfc_variable_attr()
2751 codimension = comp->attr.codimension; in gfc_variable_attr()
2770 attr.codimension = codimension; in gfc_variable_attr()
[all …]
|
| H A D | symbol.cc | 428 *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION", in gfc_check_conflict() local
543 conf (pointer, codimension); in gfc_check_conflict()
576 conf (in_common, codimension); in gfc_check_conflict()
580 conf (in_equivalence, codimension); in gfc_check_conflict()
610 conf (is_bind_c, codimension); in gfc_check_conflict()
621 conf (cray_pointer, codimension); in gfc_check_conflict()
635 conf (cray_pointee, codimension); in gfc_check_conflict()
664 conf (value, codimension) in gfc_check_conflict()
667 conf (codimension, result) in gfc_check_conflict()
695 conf (procedure, codimension) in gfc_check_conflict()
[all …]
|
| H A D | trans-expr.cc | 150 bool is_coarray = sym->attr.codimension; in gfc_get_ultimate_alloc_ptr_comps_caf_token()
159 && (is_coarray || ref->u.c.component->attr.codimension)) in gfc_get_ultimate_alloc_ptr_comps_caf_token()
844 if (gfc_expr_attr (e).codimension) in gfc_conv_derived_to_class()
1182 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension) in gfc_conv_class_to_class()
2049 || sym->attr.codimension)) in gfc_conv_expr_present()
2201 && CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2210 && CLASS_DATA (ref->u.c.component)->attr.codimension) in gfc_get_tree_for_caf_expr()
2225 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2234 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2242 if (expr->symtree->n.sym->attr.codimension) in gfc_get_tree_for_caf_expr()
[all …]
|
| H A D | class.cc | 653 && ts->u.derived->components->attr.codimension >= attr->codimension in gfc_build_class_symbol()
660 attr->codimension |= ts->u.derived->components->attr.codimension; in gfc_build_class_symbol()
708 if (attr->dummy && !attr->codimension && (*as) in gfc_build_class_symbol()
756 c->attr.codimension = attr->codimension; in gfc_build_class_symbol()
807 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0; in gfc_build_class_symbol()
994 if (comp->attr.dimension || comp->attr.codimension in finalize_component()
997 || CLASS_DATA (comp)->attr.codimension))) in finalize_component()
1016 if (comp->attr.codimension in finalize_component()
1018 && CLASS_DATA (comp)->attr.codimension)) in finalize_component()
|
| H A D | resolve.cc | 454 if (sym->attr.codimension in gfc_resolve_formal_arglist()
456 && CLASS_DATA (sym)->attr.codimension)) in gfc_resolve_formal_arglist()
1584 || a.asynchronous || a.codimension) in was_declared()
2537 else if (arg->sym->attr.codimension) /* (2c) */ in gfc_explicit_interface_required()
7817 int codimension; in resolve_allocate_expr() local
7860 codimension = attr.codimension; in resolve_allocate_expr()
7869 codimension = CLASS_DATA (sym)->attr.codimension; in resolve_allocate_expr()
7877 codimension = sym->attr.codimension; in resolve_allocate_expr()
7918 codimension = CLASS_DATA (c)->attr.codimension; in resolve_allocate_expr()
7926 codimension = c->attr.codimension; in resolve_allocate_expr()
[all …]
|
| H A D | trans-decl.cc | 589 if (!attr->dimension && !attr->codimension) in gfc_finish_decl_attrs()
720 && sym->attr.codimension && !sym->attr.allocatable))) in gfc_finish_var_decl()
996 if (array_attr->codimension && flag_coarray == GFC_FCOARRAY_LIB in gfc_build_qualified_array()
1705 if ((sym->attr.dimension || sym->attr.codimension) in gfc_get_symbol_decl()
1840 if (sym->attr.dimension || sym->attr.codimension) in gfc_get_symbol_decl()
1851 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension in gfc_get_symbol_decl()
1935 || !sym->attr.codimension || sym->attr.allocatable) in gfc_get_symbol_decl()
1947 || (sym->attr.codimension in gfc_get_symbol_decl()
2791 && ((f->sym->ts.type != BT_CLASS && f->sym->attr.codimension in create_function_arglist()
2794 && CLASS_DATA (f->sym)->attr.codimension in create_function_arglist()
[all …]
|
| H A D | trans-types.cc | 1375 gcc_assert (array_attr->dimension || array_attr->codimension); in gfc_is_nodesc_array()
2307 type = gfc_typenode_for_spec (&sym->ts, sym->attr.codimension); in gfc_sym_type()
2324 else if (sym->attr.dimension || sym->attr.codimension) in gfc_sym_type()
2739 int local_codim = c->attr.codimension ? c->as->corank: codimen; in gfc_get_derived_type()
2810 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer ) in gfc_get_derived_type()
2905 && !c->attr.dimension && !c->attr.codimension in gfc_get_derived_type()
3230 && arg->attr.codimension in gfc_get_function_type()
3233 && CLASS_DATA (arg)->attr.codimension in gfc_get_function_type()
|
| H A D | match.cc | 990 if (var->symtree->n.sym->attr.codimension) in gfc_match_iterator()
4369 bool coarray = tail->expr->symtree->n.sym->attr.codimension; in gfc_match_allocate()
4372 coarray = ref->u.c.component->attr.codimension; in gfc_match_allocate()
6394 || CLASS_DATA (selector)->attr.codimension)) in select_intrinsic_set_tmp()
6398 sym->attr.codimension = CLASS_DATA (selector)->attr.codimension; in select_intrinsic_set_tmp()
6450 || CLASS_DATA (selector)->attr.codimension) in select_type_set_tmp()
6454 sym->attr.codimension in select_type_set_tmp()
6455 = CLASS_DATA (selector)->attr.codimension; in select_type_set_tmp()
6567 || CLASS_DATA (expr1)->attr.codimension) in gfc_match_select_type()
|
| H A D | interface.cc | 2353 bool codimension = false; in compare_parameter() local
2559 codimension = CLASS_DATA (formal)->attr.codimension; in compare_parameter()
2561 codimension = formal->attr.codimension; in compare_parameter()
2563 if (codimension && !gfc_is_coarray (actual)) in compare_parameter()
2571 if (codimension && formal->attr.allocatable) in compare_parameter()
2593 if (codimension) in compare_parameter()
2659 if (formal->attr.allocatable && !codimension in compare_parameter()
2660 && actual_attr.codimension) in compare_parameter()
|
| H A D | trans-array.cc | 4007 if (!expr->ts.deferred && !sym->attr.codimension in gfc_conv_array_ref()
6089 && !prev_ref->u.c.component->attr.codimension); in gfc_array_allocate()
9341 && (!attr->codimension || caf_enabled (caf_mode))) in structure_alloc_comps()
9347 = (caf_in_coarray (caf_mode) || attr->codimension) in structure_alloc_comps()
9356 if (!attr->codimension in structure_alloc_comps()
9366 if (attr->dimension && !attr->codimension && !attr->proc_pointer) in structure_alloc_comps()
9379 else if (attr->allocatable && !attr->codimension in structure_alloc_comps()
9461 && (!attr->codimension || !caf_enabled (caf_mode))) in structure_alloc_comps()
9568 if (c->attr.dimension || c->attr.codimension) in structure_alloc_comps()
9641 && (c->attr.codimension in structure_alloc_comps()
[all …]
|
| H A D | trans-common.cc | 1022 dummy_symbol->codimension |= attr.codimension; in accumulate_equivalence_attributes()
|
| H A D | decl.cc | 1788 attr.codimension = 0; in build_sym()
2373 c->attr.codimension = 1; in build_struct()
8693 || current_attr.codimension in attr_decl1()
8698 m = gfc_match_array_spec (&as, !current_attr.codimension, in attr_decl1()
8721 if (current_attr.codimension && m == MATCH_NO) in attr_decl1()
8745 sym->attr.codimension = CLASS_DATA(sym)->attr.codimension; in attr_decl1()
8749 if (current_attr.dimension == 0 && current_attr.codimension == 0 in attr_decl1()
8790 sym->attr.codimension = 0; in attr_decl1()
9096 current_attr.codimension = 1; in gfc_match_codimension()
9781 if (sym->ns != gfc_current_ns && sym->attr.codimension) in gfc_match_volatile()
|
| /netbsd-src/usr.bin/spell/spell/ |
| H A D | special.math | 62 codimension
|