Home
last modified time | relevance | path

Searched refs:corank (Results 1 – 25 of 49) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Darray.c175 int corank) in gfc_match_array_ref() argument
245 if (corank == 0) in gfc_match_array_ref()
288 if (ar->codimen < corank) in gfc_match_array_ref()
291 corank, ar->codimen); in gfc_match_array_ref()
294 if (ar->codimen > corank) in gfc_match_array_ref()
297 corank, ar->codimen); in gfc_match_array_ref()
307 ar->codimen + 1, corank); in gfc_match_array_ref()
315 ar->codimen + 1, corank); in gfc_match_array_ref()
319 if (ar->codimen >= corank) in gfc_match_array_ref()
322 ar->codimen + 1, corank); in gfc_match_array_ref()
[all …]
H A Dtrans-types.c1382 int n, corank; in gfc_build_array_type() local
1386 corank = MAX (as->corank, codim); in gfc_build_array_type()
1389 corank = codim; in gfc_build_array_type()
1408 for (n = as->rank; n < as->rank + corank; n++) in gfc_build_array_type()
1415 if (n < as->rank + corank - 1) in gfc_build_array_type()
1427 corank, lbound, ubound, 0, akind, in gfc_build_array_type()
1668 for (n = as->rank; n < as->rank + as->corank; n++) in gfc_get_nodesc_array_type()
1684 if (n < as->rank + as->corank - 1) in gfc_get_nodesc_array_type()
1705 GFC_TYPE_ARRAY_CORANK (type) = as->corank; in gfc_get_nodesc_array_type()
1773 || (as->corank && flag_coarray == GFC_FCOARRAY_LIB)) in gfc_get_nodesc_array_type()
[all …]
H A Dinterface.c1488 if (s1->as->corank != s2->as->corank) in gfc_check_dummy_characteristics()
1491 s1->name, s1->as->corank, s2->as->corank); in gfc_check_dummy_characteristics()
1496 for (i = 0; i < s1->as->rank + MAX (0, s1->as->corank-1); i++) in gfc_check_dummy_characteristics()
1661 for (i = 0; i < r1->as->rank + r1->as->corank; i++) in gfc_check_result_characteristics()
2515 if ((last && last->u.c.component->as->corank != formal->as->corank) in compare_parameter()
2517 && actual->symtree->n.sym->as->corank != formal->as->corank)) in compare_parameter()
2521 formal->name, &actual->where, formal->as->corank, in compare_parameter()
2522 last ? last->u.c.component->as->corank in compare_parameter()
2523 : actual->symtree->n.sym->as->corank); in compare_parameter()
H A Dtrans.h988 int rank, corank; member
1061 #define GFC_TYPE_ARRAY_CORANK(node) (TYPE_LANG_SPECIFIC(node)->corank)
H A Dtrans-intrinsic.c2361 int rank, corank; in trans_this_image() local
2394 corank = gfc_get_corank (expr->value.function.actual->expr); in trans_this_image()
2409 gcc_assert (corank > 0); in trans_this_image()
2484 if (corank == 1) in trans_this_image()
2489 corank+rank-1)); in trans_this_image()
2510 build_int_cst (integer_type_node, rank + corank - 2), in trans_this_image()
2565 build_int_cst (TREE_TYPE (dim_arg), corank)); in trans_this_image()
2668 int rank, corank, codim; in trans_image_index() local
2671 corank = gfc_get_corank (expr->value.function.actual->expr); in trans_image_index()
2693 lbound = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[rank+corank-1]); in trans_image_index()
[all …]
H A Dparse.c4738 int corank = gfc_get_corank (a->target); in parse_associate() local
4741 if (rank || corank) in parse_associate()
4746 as->corank = corank; in parse_associate()
4748 attr.codimension = corank ? 1 : 0; in parse_associate()
4773 as->corank = gfc_get_corank (a->target); in parse_associate()
4776 if (as->corank) in parse_associate()
H A Dexpr.c5432 + ref->u.c.component->as->corank; i++) in gfc_traverse_expr()
5811 int corank; in gfc_get_corank() local
5818 corank = e->ts.u.derived->components->as in gfc_get_corank()
5819 ? e->ts.u.derived->components->as->corank : 0; in gfc_get_corank()
5821 corank = e->symtree->n.sym->as ? e->symtree->n.sym->as->corank : 0; in gfc_get_corank()
5826 corank = ref->u.ar.as->corank; in gfc_get_corank()
5830 return corank; in gfc_get_corank()
H A Dcheck.c694 && CLASS_DATA (e)->as->corank) in coarray_check()
1078 int corank; in dim_corank_check() local
1088 corank = gfc_get_corank (array); in dim_corank_check()
1091 || mpz_cmp_ui (dim->value.integer, corank) > 0) in dim_corank_check()
5938 int corank = gfc_get_corank (coarray); in gfc_check_image_index() local
5940 if (mpz_cmp_ui (nelems, corank) != 0) in gfc_check_image_index()
5944 &sub->where, corank, (int) mpz_get_si (nelems)); in gfc_check_image_index()
H A Ddecl.c954 if ((from->type == AS_ASSUMED_RANK && to->corank) in merge_array_spec()
955 || (to->type == AS_ASSUMED_RANK && from->corank)) in merge_array_spec()
968 for (int i = to->corank - 1; i >= 0; i--) in merge_array_spec()
993 else if (to->corank == 0 && from->corank > 0) in merge_array_spec()
995 to->corank = from->corank; in merge_array_spec()
998 for (int i = 0; i < from->corank; i++) in merge_array_spec()
1020 if (to->rank + to->corank > GFC_MAX_DIMENSIONS) in merge_array_spec()
1024 to->rank, to->corank, GFC_MAX_DIMENSIONS); in merge_array_spec()
1025 to->corank = GFC_MAX_DIMENSIONS - to->rank; in merge_array_spec()
2282 if (c->as->corank) in build_struct()
H A Dtrans.c840 tree label_finish, gfc_expr* expr, int corank) in gfc_allocate_allocatable() argument
863 && (corank > 0 || caf_attr.codimension)) in gfc_allocate_allocatable()
901 && TYPE_LANG_SPECIFIC (TREE_TYPE (tmp))->corank == 0) in gfc_allocate_allocatable()
H A Dtrans-array.c2483 for (i = 0; i < as.rank + as.corank; i++) in gfc_build_constant_array_constructor()
3774 || (ar->as && ar->as->corank)); in gfc_conv_array_ref()
5539 gfc_conv_descriptor_cosize (tree desc, int rank, int corank) in gfc_conv_descriptor_cosize() argument
5541 return gfc_conv_descriptor_size_1 (desc, rank, rank + corank - 1); in gfc_conv_descriptor_cosize()
5577 gfc_array_init_size (tree descriptor, int rank, int corank, tree * poffset, in gfc_array_init_size() argument
5773 for (n = rank; n < rank + corank; n++) in gfc_array_init_size()
5781 gcc_assert (n == rank + corank - 1); in gfc_array_init_size()
5786 if (ubound || n == rank + corank - 1) in gfc_array_init_size()
5800 if (n < rank + corank - 1) in gfc_array_init_size()
6061 coarray ? ref->u.ar.as->corank : 0, in gfc_array_allocate()
[all …]
H A Ddata.c263 gcc_assert (ref->u.ar.as->corank > 0); in gfc_assign_data_value()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Darray.cc182 int corank) in gfc_match_array_ref() argument
252 if (corank == 0) in gfc_match_array_ref()
295 if (ar->codimen < corank) in gfc_match_array_ref()
298 corank, ar->codimen); in gfc_match_array_ref()
301 if (ar->codimen > corank) in gfc_match_array_ref()
304 corank, ar->codimen); in gfc_match_array_ref()
314 ar->codimen + 1, corank); in gfc_match_array_ref()
322 ar->codimen + 1, corank); in gfc_match_array_ref()
326 if (ar->codimen >= corank) in gfc_match_array_ref()
329 ar->codimen + 1, corank); in gfc_match_array_ref()
[all …]
H A Dtrans-types.cc1411 int n, corank; in gfc_build_array_type() local
1415 corank = MAX (as->corank, codim); in gfc_build_array_type()
1418 corank = codim; in gfc_build_array_type()
1437 for (n = as->rank; n < as->rank + corank; n++) in gfc_build_array_type()
1444 if (n < as->rank + corank - 1) in gfc_build_array_type()
1456 corank, lbound, ubound, 0, akind, in gfc_build_array_type()
1720 for (n = as->rank; n < as->rank + as->corank; n++) in gfc_get_nodesc_array_type()
1736 if (n < as->rank + as->corank - 1) in gfc_get_nodesc_array_type()
1757 GFC_TYPE_ARRAY_CORANK (type) = as->corank; in gfc_get_nodesc_array_type()
1825 || (as->corank && flag_coarray == GFC_FCOARRAY_LIB)) in gfc_get_nodesc_array_type()
[all …]
H A Dinterface.cc1500 if (s1->as->corank != s2->as->corank) in gfc_check_dummy_characteristics()
1503 s1->name, s1->as->corank, s2->as->corank); in gfc_check_dummy_characteristics()
1508 for (i = 0; i < s1->as->rank + MAX (0, s1->as->corank-1); i++) in gfc_check_dummy_characteristics()
1673 for (i = 0; i < r1->as->rank + r1->as->corank; i++) in gfc_check_result_characteristics()
2580 if ((last && last->u.c.component->as->corank != formal->as->corank) in compare_parameter()
2582 && actual->symtree->n.sym->as->corank != formal->as->corank)) in compare_parameter()
2586 formal->name, &actual->where, formal->as->corank, in compare_parameter()
2587 last ? last->u.c.component->as->corank in compare_parameter()
2588 : actual->symtree->n.sym->as->corank); in compare_parameter()
H A Dtrans.h997 int rank, corank; member
1075 #define GFC_TYPE_ARRAY_CORANK(node) (TYPE_LANG_SPECIFIC(node)->corank)
H A Dtrans-intrinsic.cc2369 int rank, corank; in trans_this_image() local
2402 corank = gfc_get_corank (expr->value.function.actual->expr); in trans_this_image()
2417 gcc_assert (corank > 0); in trans_this_image()
2492 if (corank == 1) in trans_this_image()
2497 corank+rank-1)); in trans_this_image()
2518 build_int_cst (integer_type_node, rank + corank - 2), in trans_this_image()
2573 build_int_cst (TREE_TYPE (dim_arg), corank)); in trans_this_image()
2676 int rank, corank, codim; in trans_image_index() local
2679 corank = gfc_get_corank (expr->value.function.actual->expr); in trans_image_index()
2701 lbound = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[rank+corank-1]); in trans_image_index()
[all …]
H A Dparse.cc4988 int corank = gfc_get_corank (a->target); in parse_associate() local
4991 if (rank || corank) in parse_associate()
4996 as->corank = corank; in parse_associate()
4998 attr.codimension = corank ? 1 : 0; in parse_associate()
5023 as->corank = gfc_get_corank (a->target); in parse_associate()
5026 if (as->corank) in parse_associate()
H A Dexpr.cc5472 + ref->u.c.component->as->corank; i++) in gfc_traverse_expr()
5851 int corank; in gfc_get_corank() local
5858 corank = e->ts.u.derived->components->as in gfc_get_corank()
5859 ? e->ts.u.derived->components->as->corank : 0; in gfc_get_corank()
5861 corank = e->symtree->n.sym->as ? e->symtree->n.sym->as->corank : 0; in gfc_get_corank()
5866 corank = ref->u.ar.as->corank; in gfc_get_corank()
5870 return corank; in gfc_get_corank()
H A Dcheck.cc694 && CLASS_DATA (e)->as->corank) in coarray_check()
1078 int corank; in dim_corank_check() local
1088 corank = gfc_get_corank (array); in dim_corank_check()
1091 || mpz_cmp_ui (dim->value.integer, corank) > 0) in dim_corank_check()
5964 int corank = gfc_get_corank (coarray); in gfc_check_image_index() local
5966 if (mpz_cmp_ui (nelems, corank) != 0) in gfc_check_image_index()
5970 &sub->where, corank, (int) mpz_get_si (nelems)); in gfc_check_image_index()
H A Ddecl.cc954 if ((from->type == AS_ASSUMED_RANK && to->corank) in merge_array_spec()
955 || (to->type == AS_ASSUMED_RANK && from->corank)) in merge_array_spec()
968 for (int i = to->corank - 1; i >= 0; i--) in merge_array_spec()
993 else if (to->corank == 0 && from->corank > 0) in merge_array_spec()
995 to->corank = from->corank; in merge_array_spec()
998 for (int i = 0; i < from->corank; i++) in merge_array_spec()
1020 if (to->rank + to->corank > GFC_MAX_DIMENSIONS) in merge_array_spec()
1024 to->rank, to->corank, GFC_MAX_DIMENSIONS); in merge_array_spec()
1025 to->corank = GFC_MAX_DIMENSIONS - to->rank; in merge_array_spec()
2372 if (c->as->corank) in build_struct()
H A Dtrans.cc913 tree label_finish, gfc_expr* expr, int corank) in gfc_allocate_allocatable() argument
936 && (corank > 0 || caf_attr.codimension)) in gfc_allocate_allocatable()
974 && TYPE_LANG_SPECIFIC (TREE_TYPE (tmp))->corank == 0) in gfc_allocate_allocatable()
H A Dtrans-array.cc2579 for (i = 0; i < as.rank + as.corank; i++) in gfc_build_constant_array_constructor()
3857 || (ar->as && ar->as->corank)); in gfc_conv_array_ref()
5649 gfc_conv_descriptor_cosize (tree desc, int rank, int corank) in gfc_conv_descriptor_cosize() argument
5651 return gfc_conv_descriptor_size_1 (desc, rank, rank + corank - 1); in gfc_conv_descriptor_cosize()
5687 gfc_array_init_size (tree descriptor, int rank, int corank, tree * poffset, in gfc_array_init_size() argument
5883 for (n = rank; n < rank + corank; n++) in gfc_array_init_size()
5891 gcc_assert (n == rank + corank - 1); in gfc_array_init_size()
5896 if (ubound || n == rank + corank - 1) in gfc_array_init_size()
5910 if (n < rank + corank - 1) in gfc_array_init_size()
6171 coarray ? ref->u.ar.as->corank : 0, in gfc_array_allocate()
[all …]
H A Ddata.cc283 gcc_assert (ref->u.ar.as->corank > 0); in gfc_assign_data_value()
H A Dresolve.cc4852 if (as->corank != ar->codimen && ar->codimen != 0) in compare_spec_to_ref()
4855 &ar->where, ar->codimen, as->corank); in compare_spec_to_ref()
4865 for (i = as->rank; i < as->rank + as->corank; i++) in compare_spec_to_ref()
5154 if (ar->as->corank && ar->codimen == 0) in resolve_array_ref()
5157 ar->codimen = ar->as->corank; in resolve_array_ref()
7706 && ref->u.ar.as && ref->u.ar.as->corank) in gfc_expr_to_initialize()
9193 as->corank = gfc_get_corank (target); in resolve_assoc_var()
9195 if (as->corank != 0) in resolve_assoc_var()
9207 as->corank = gfc_get_corank (target); in resolve_assoc_var()
9209 if (as->corank != 0) in resolve_assoc_var()
[all …]

12