| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| array.cc | 182 int corank)
252 if (corank == 0)
295 if (ar->codimen < corank)
298 corank, ar->codimen);
301 if (ar->codimen > corank)
304 corank, ar->codimen);
314 ar->codimen + 1, corank);
322 ar->codimen + 1, corank);
326 if (ar->codimen >= corank)
329 ar->codimen + 1, corank);
[all...] |
| dump-parse-tree.cc | 269 fprintf (dumpfile, "(%d [%d]", as->rank, as->corank);
271 if (as->rank + as->corank > 0 || as->rank == -1)
286 for (i = 0; i < as->rank + as->corank; i++)
|
| trans-types.cc | 1417 int n, corank;
1421 corank = MAX (as->corank, codim);
1424 corank = codim;
1443 for (n = as->rank; n < as->rank + corank; n++)
1450 if (n < as->rank + corank - 1)
1462 corank, lbound, ubound, 0, akind,
1727 for (n = as->rank; n < as->rank + as->corank; n++)
1743 if (n < as->rank + as->corank - 1)
1764 GFC_TYPE_ARRAY_CORANK (type) = as->corank;
1411 int n, corank; local
[all...] |
| interface.cc | 1500 if (s1->as->corank != s2->as->corank)
1502 snprintf (errmsg, err_len, "Corank mismatch in argument '%s' (%i/%i)",
1503 s1->name, s1->as->corank, s2->as->corank);
1508 for (i = 0; i < s1->as->rank + MAX (0, s1->as->corank-1); i++)
1673 for (i = 0; i < r1->as->rank + r1->as->corank; i++)
2580 if ((last && last->u.c.component->as->corank != formal->as->corank)
2582 && actual->symtree->n.sym->as->corank != formal->as->corank)
[all...] |
| trans.h | 997 int rank, corank; variable
1075 #define GFC_TYPE_ARRAY_CORANK(node) (TYPE_LANG_SPECIFIC(node)->corank)
|
| parse.cc | 4988 int corank = gfc_get_corank (a->target); local
4991 if (rank || corank)
4996 as->corank = corank;
4998 attr.codimension = corank ? 1 : 0;
5023 as->corank = gfc_get_corank (a->target);
5026 if (as->corank)
|
| expr.cc | 5472 + ref->u.c.component->as->corank; i++)
5776 /* Coarrays are variables with a corank but not being coindexed. However, also
5851 int corank; local
5858 corank = e->ts.u.derived->components->as
5859 ? e->ts.u.derived->components->as->corank : 0;
5861 corank = e->symtree->n.sym->as ? e->symtree->n.sym->as->corank : 0;
5866 corank = ref->u.ar.as->corank;
5870 return corank;
[all...] |
| trans-intrinsic.cc | 2369 int rank, corank; local
2402 corank = gfc_get_corank (expr->value.function.actual->expr);
2417 gcc_assert (corank > 0);
2466 if (corank == 1)
2468 sub(1) = m + lcobound(corank)
2472 min_var = min (rank + corank - 2, rank + dim_arg - 1)
2483 sub(dim_arg) = (dim_arg < corank) ? ml - m*extent + lcobound(dim_arg)
2484 : m + lcobound(corank)
2492 if (corank == 1)
2494 /* sub(1) = m + lcobound(corank). *
2676 int rank, corank, codim; local
3147 int corank; local
[all...] |
| check.cc | 694 && CLASS_DATA (e)->as->corank)
1073 zero and less than or equal to the corank of the given array. */
1078 int corank; local
1088 corank = gfc_get_corank (array);
1091 || mpz_cmp_ui (dim->value.integer, corank) > 0)
4248 "must have the same corank %d/%d", &to->where,
5964 int corank = gfc_get_corank (coarray); local
5966 if (mpz_cmp_ui (nelems, corank) != 0)
5969 "IMAGE_INDEX at %L shall be %d (corank) not %d",
5970 &sub->where, corank, (int) mpz_get_si (nelems))
[all...] |
| decl.cc | 957 if ((from->type == AS_ASSUMED_RANK && to->corank)
958 || (to->type == AS_ASSUMED_RANK && from->corank))
971 for (int i = to->corank - 1; i >= 0; i--)
996 else if (to->corank == 0 && from->corank > 0)
998 to->corank = from->corank;
1001 for (int i = 0; i < from->corank; i++)
1023 if (to->rank + to->corank > GFC_MAX_DIMENSIONS)
1025 gfc_error ("Sum of array rank %d and corank %d at %C exceeds maximum
[all...] |
| primary.cc | 2175 as ? as->corank : 0);
2519 component->as->corank);
2531 CLASS_DATA (component)->as->corank);
|
| trans.cc | 913 tree label_finish, gfc_expr* expr, int corank)
936 && (corank > 0 || caf_attr.codimension))
974 && TYPE_LANG_SPECIFIC (TREE_TYPE (tmp))->corank == 0)
|
| resolve.cc | 4852 if (as->corank != ar->codimen && ar->codimen != 0)
4855 &ar->where, ar->codimen, as->corank);
4865 for (i = as->rank; i < as->rank + as->corank; i++)
5154 if (ar->as->corank && ar->codimen == 0)
5157 ar->codimen = ar->as->corank;
7706 && ref->u.ar.as && ref->u.ar.as->corank)
9193 as->corank = gfc_get_corank (target);
9195 if (as->corank != 0)
9207 as->corank = gfc_get_corank (target);
9209 if (as->corank != 0
13182 int corank = sym->as->corank; local
[all...] |
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| array.cc | 182 int corank)
252 if (corank == 0)
295 if (ar->codimen < corank)
298 corank, ar->codimen);
301 if (ar->codimen > corank)
304 corank, ar->codimen);
314 ar->codimen + 1, corank);
322 ar->codimen + 1, corank);
326 if (ar->codimen >= corank)
329 ar->codimen + 1, corank);
[all...] |
| dump-parse-tree.cc | 284 fprintf (dumpfile, "(%d [%d]", as->rank, as->corank);
286 if (as->rank + as->corank > 0 || as->rank == -1)
301 for (i = 0; i < as->rank + as->corank; i++)
|
| trans-types.cc | 1423 int n, corank; local
1427 corank = MAX (as->corank, codim);
1430 corank = codim;
1449 for (n = as->rank; n < as->rank + corank; n++)
1456 if (n < as->rank + corank - 1)
1468 corank, lbound, ubound, 0, akind,
1736 for (n = as->rank; n < as->rank + as->corank; n++)
1752 if (n < as->rank + as->corank - 1)
1773 GFC_TYPE_ARRAY_CORANK (type) = as->corank;
[all...] |
| interface.cc | 1552 if (s1->as->corank != s2->as->corank)
1554 snprintf (errmsg, err_len, "Corank mismatch in argument '%s' (%i/%i)",
1555 s1->name, s1->as->corank, s2->as->corank);
1560 for (i = 0; i < s1->as->rank + MAX (0, s1->as->corank-1); i++)
1725 for (i = 0; i < r1->as->rank + r1->as->corank; i++)
2636 if ((last && last->u.c.component->as->corank != formal->as->corank)
2638 && actual->symtree->n.sym->as->corank != formal->as->corank)
[all...] |
| trans.h | 1018 int rank, corank; variable
1096 #define GFC_TYPE_ARRAY_CORANK(node) (TYPE_LANG_SPECIFIC(node)->corank)
|
| class.cc | 685 name = xasprintf ("__class_%s_%d_%da", tname, rank, (*as)->corank);
687 name = xasprintf ("__class_%s_%d_%dp", tname, rank, (*as)->corank);
689 name = xasprintf ("__class_%s_%d_%dt", tname, rank, (*as)->corank);
823 gfc_array_spec *sym_as, int rank, int corank)
847 as->corank = corank;
850 if (as && as->corank != 0)
|
| trans-intrinsic.cc | 2376 int rank, corank; local
2409 corank = gfc_get_corank (expr->value.function.actual->expr);
2424 gcc_assert (corank > 0);
2473 if (corank == 1)
2475 sub(1) = m + lcobound(corank)
2479 min_var = min (rank + corank - 2, rank + dim_arg - 1)
2490 sub(dim_arg) = (dim_arg < corank) ? ml - m*extent + lcobound(dim_arg)
2491 : m + lcobound(corank)
2499 if (corank == 1)
2501 /* sub(1) = m + lcobound(corank). *
2683 int rank, corank, codim; local
3154 int corank; local
[all...] |
| check.cc | 694 && CLASS_DATA (e)->as->corank)
1073 zero and less than or equal to the corank of the given array. */
1078 int corank; local
1088 corank = gfc_get_corank (array);
1091 || mpz_cmp_ui (dim->value.integer, corank) > 0)
4275 "must have the same corank %d/%d", &to->where,
5999 int corank = gfc_get_corank (coarray); local
6001 if (mpz_cmp_ui (nelems, corank) != 0)
6004 "IMAGE_INDEX at %L shall be %d (corank) not %d",
6005 &sub->where, corank, (int) mpz_get_si (nelems))
[all...] |
| parse.cc | 5254 int corank = gfc_get_corank (target); local
5257 if (rank || corank)
5262 as->corank = corank;
5264 attr.codimension = corank ? 1 : 0;
5288 as->corank = gfc_get_corank (target);
5291 if (as->corank)
|
| expr.cc | 5488 + ref->u.c.component->as->corank; i++)
5792 /* Coarrays are variables with a corank but not being coindexed. However, also
5867 int corank; local
5874 corank = CLASS_DATA (e)->as
5875 ? CLASS_DATA (e)->as->corank : 0;
5877 corank = e->symtree->n.sym->as ? e->symtree->n.sym->as->corank : 0;
5882 corank = ref->u.ar.as->corank;
5886 return corank;
[all...] |
| decl.cc | 993 if ((from->type == AS_ASSUMED_RANK && to->corank)
994 || (to->type == AS_ASSUMED_RANK && from->corank))
1007 for (int i = to->corank - 1; i >= 0; i--)
1032 else if (to->corank == 0 && from->corank > 0)
1034 to->corank = from->corank;
1037 for (int i = 0; i < from->corank; i++)
1059 if (to->rank + to->corank > GFC_MAX_DIMENSIONS)
1061 gfc_error ("Sum of array rank %d and corank %d at %C exceeds maximum
[all...] |
| trans.cc | 957 tree label_finish, gfc_expr* expr, int corank,
981 && (corank > 0 || caf_attr.codimension))
1019 && TYPE_LANG_SPECIFIC (TREE_TYPE (tmp))->corank == 0)
|
