| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| primary.cc | 2085 if ((sym->ts.type != BT_CLASS && !sym->attr.codimension)
2087 && !CLASS_DATA (sym)->attr.codimension))
2148 || gfc_peek_ascii_char () == '[' || sym->attr.codimension
2156 || CLASS_DATA (sym)->attr.codimension)))
2640 int dimension, codimension, pointer, allocatable, target, optional; local
2657 codimension = CLASS_DATA (sym)->attr.codimension;
2664 codimension = attr.codimension;
2745 codimension = CLASS_DATA (comp)->attr.codimension
2843 int dimension, codimension, pointer, allocatable, target, coarray_comp; local
[all...] |
| symbol.cc | 428 *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION", local
543 conf (pointer, codimension);
576 conf (in_common, codimension);
580 conf (in_equivalence, codimension);
610 conf (is_bind_c, codimension);
621 conf (cray_pointer, codimension);
635 conf (cray_pointee, codimension);
664 conf (value, codimension)
667 conf (codimension, result
[all...] |
| class.cc | 653 && ts->u.derived->components->attr.codimension >= attr->codimension
660 attr->codimension |= ts->u.derived->components->attr.codimension;
708 if (attr->dummy && !attr->codimension && (*as)
756 c->attr.codimension = attr->codimension;
807 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0;
994 if (comp->attr.dimension || comp->attr.codimension
997 || CLASS_DATA (comp)->attr.codimension)))
[all...] |
| resolve.cc | 454 if (sym->attr.codimension
456 && CLASS_DATA (sym)->attr.codimension))
1584 || a.asynchronous || a.codimension)
2537 else if (arg->sym->attr.codimension) /* (2c) */
4712 "(%ld < %ld) in codimension %d", &ar->c_where[i],
4727 "(%ld > %ld) in codimension %d", &ar->c_where[i],
4870 gfc_error ("Coindex of codimension %d must be a scalar at %L",
7817 int codimension; local
7860 codimension = attr.codimension;
[all...] |
| trans-expr.cc | 150 bool is_coarray = sym->attr.codimension;
159 && (is_coarray || ref->u.c.component->attr.codimension))
844 if (gfc_expr_attr (e).codimension)
1182 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension)
2049 || sym->attr.codimension))
2201 && CLASS_DATA (expr->symtree->n.sym)->attr.codimension)
2210 && CLASS_DATA (ref->u.c.component)->attr.codimension)
2225 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension)
2234 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension)
2242 if (expr->symtree->n.sym->attr.codimension)
[all...] |
| trans-types.cc | 1381 gcc_assert (array_attr->dimension || array_attr->codimension);
1419 /* Assumed-shape arrays do not have codimension information stored in the
2316 type = gfc_typenode_for_spec (&sym->ts, sym->attr.codimension);
2333 else if (sym->attr.dimension || sym->attr.codimension)
2750 int local_codim = c->attr.codimension ? c->as->corank: codimen;
2821 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
2916 && !c->attr.dimension && !c->attr.codimension
3243 && arg->attr.codimension
3246 && CLASS_DATA (arg)->attr.codimension
|
| trans-decl.cc | 589 if (!attr->dimension && !attr->codimension)
720 && sym->attr.codimension && !sym->attr.allocatable)))
996 if (array_attr->codimension && flag_coarray == GFC_FCOARRAY_LIB
1705 if ((sym->attr.dimension || sym->attr.codimension)
1840 if (sym->attr.dimension || sym->attr.codimension)
1851 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension
1935 || !sym->attr.codimension || sym->attr.allocatable)
1947 || (sym->attr.codimension
2791 && ((f->sym->ts.type != BT_CLASS && f->sym->attr.codimension
2794 && CLASS_DATA (f->sym)->attr.codimension
[all...] |
| interface.cc | 1526 snprintf (errmsg, err_len, "Shape mismatch in codimension %i "
2353 bool codimension = false; local
2559 codimension = CLASS_DATA (formal)->attr.codimension;
2561 codimension = formal->attr.codimension;
2563 if (codimension && !gfc_is_coarray (actual))
2571 if (codimension && formal->attr.allocatable)
2593 if (codimension)
2659 if (formal->attr.allocatable && !codimension
[all...] |
| match.cc | 990 if (var->symtree->n.sym->attr.codimension)
4369 bool coarray = tail->expr->symtree->n.sym->attr.codimension;
4372 coarray = ref->u.c.component->attr.codimension;
6394 || CLASS_DATA (selector)->attr.codimension))
6398 sym->attr.codimension = CLASS_DATA (selector)->attr.codimension;
6450 || CLASS_DATA (selector)->attr.codimension)
6454 sym->attr.codimension
6455 = CLASS_DATA (selector)->attr.codimension;
6567 || CLASS_DATA (expr1)->attr.codimension)
[all...] |
| trans-common.cc | 1022 dummy_symbol->codimension |= attr.codimension;
|
| parse.cc | 203 match ("codimension", gfc_match_codimension, ST_ATTR_DECL);
466 match ("codimension", gfc_match_codimension, ST_ATTR_DECL);
3259 if (c->attr.codimension
3261 && CLASS_DATA (c)->attr.codimension))
3315 "codimension or be a subcomponent of a coarray, "
3321 "of type LOCK_TYPE, which must have a codimension or be a "
3326 "a codimension", c->name, &c->loc);
3329 gfc_error ("Allocatable component %s at %L must have a codimension as "
3335 "subcomponent of type LOCK_TYPE must have a codimension or "
3337 "not have a codimension as already a coarray
[all...] |
| trans-array.cc | 4033 if (!expr->ts.deferred && !sym->attr.codimension
6115 && !prev_ref->u.c.component->attr.codimension);
9369 && (!attr->codimension || caf_enabled (caf_mode)))
9375 = (caf_in_coarray (caf_mode) || attr->codimension)
9384 if (!attr->codimension
9394 if (attr->dimension && !attr->codimension && !attr->proc_pointer)
9407 else if (attr->allocatable && !attr->codimension
9489 && (!attr->codimension || !caf_enabled (caf_mode)))
9596 if (c->attr.dimension || c->attr.codimension)
9669 && (c->attr.codimension
[all...] |
| decl.cc | 952 /* Auxiliary function to merge DIMENSION and CODIMENSION array specs. */
960 gfc_error ("The assumed-rank array at %C shall not have a codimension");
1791 attr.codimension = 0;
2376 c->attr.codimension = 1;
5479 gfc_error ("Missing codimension specification at %C");
5504 attr = "CODIMENSION";
8696 || current_attr.codimension
8701 m = gfc_match_array_spec (&as, !current_attr.codimension,
8724 if (current_attr.codimension && m == MATCH_NO)
8726 gfc_error ("Missing array specification at %L in CODIMENSION "
[all...] |
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| primary.cc | 2101 if ((sym->ts.type != BT_CLASS && !sym->attr.codimension)
2103 && !CLASS_DATA (sym)->attr.codimension))
2177 || gfc_peek_ascii_char () == '[' || sym->attr.codimension
2185 || CLASS_DATA (sym)->attr.codimension)))
2762 int dimension, codimension, pointer, allocatable, target, optional; local
2782 codimension = CLASS_DATA (sym)->attr.codimension;
2789 codimension = attr.codimension;
2891 codimension = CLASS_DATA (comp)->attr.codimension
2990 int dimension, codimension, pointer, allocatable, target, coarray_comp; local
[all...] |
| symbol.cc | 457 *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION", local
561 conf (pointer, codimension);
594 conf (in_common, codimension);
598 conf (in_equivalence, codimension);
628 conf (is_bind_c, codimension);
639 conf (cray_pointer, codimension);
653 conf (cray_pointee, codimension);
682 conf (value, codimension)
685 conf (codimension, result
[all...] |
| class.cc | 657 && ts->u.derived->components->attr.codimension >= attr->codimension
664 attr->codimension |= ts->u.derived->components->attr.codimension;
712 if (attr->dummy && !attr->codimension && (*as)
760 c->attr.codimension = attr->codimension;
811 attr->allocatable = attr->pointer = attr->dimension = attr->codimension = 0;
851 attr.codimension = 1;
1060 if (comp->attr.dimension || comp->attr.codimension
[all...] |
| trans-expr.cc | 150 bool is_coarray = sym->attr.codimension;
159 && (is_coarray || ref->u.c.component->attr.codimension))
857 if (gfc_expr_attr (e).codimension)
1212 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension)
2124 || sym->attr.codimension))
2295 && CLASS_DATA (expr->symtree->n.sym)->attr.codimension)
2304 && CLASS_DATA (ref->u.c.component)->attr.codimension)
2319 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension)
2328 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension)
2336 if (expr->symtree->n.sym->attr.codimension)
[all...] |
| resolve.cc | 472 if (sym->attr.codimension
474 && CLASS_DATA (sym)->attr.codimension))
1639 || a.asynchronous || a.codimension || a.subroutine)
2610 else if (arg->sym->attr.codimension) /* (2c) */
4847 "(%ld < %ld) in codimension %d", &ar->c_where[i],
4862 "(%ld > %ld) in codimension %d", &ar->c_where[i],
5005 gfc_error ("Coindex of codimension %d must be a scalar at %L",
8170 int codimension; local
8213 codimension = attr.codimension;
[all...] |
| trans-decl.cc | 591 if (!attr->dimension && !attr->codimension)
735 && sym->attr.codimension && !sym->attr.allocatable)))
1044 if (array_attr->codimension && flag_coarray == GFC_FCOARRAY_LIB
1772 if ((sym->attr.dimension || sym->attr.codimension)
1913 if (sym->attr.dimension || sym->attr.codimension)
1924 if (sym->attr.dimension || sym->attr.allocatable || sym->attr.codimension
2017 || !sym->attr.codimension || sym->attr.allocatable)
2029 || (sym->attr.codimension
2894 && ((f->sym->ts.type != BT_CLASS && f->sym->attr.codimension
2897 && CLASS_DATA (f->sym)->attr.codimension
[all...] |
| trans-types.cc | 1387 gcc_assert (array_attr->dimension || array_attr->codimension);
1425 /* Assumed-shape arrays do not have codimension information stored in the
2328 type = gfc_typenode_for_spec (&sym->ts, sym->attr.codimension);
2345 else if (sym->attr.dimension || sym->attr.codimension)
2759 int local_codim = c->attr.codimension ? c->as->corank: codimen;
2830 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
2925 && !c->attr.dimension && !c->attr.codimension
3275 && arg->attr.codimension
3278 && CLASS_DATA (arg)->attr.codimension
|
| interface.cc | 1578 snprintf (errmsg, err_len, "Shape mismatch in codimension %i "
2405 bool codimension = false; local
2612 codimension = CLASS_DATA (formal)->attr.codimension;
2614 codimension = formal->attr.codimension;
2616 if (codimension && !gfc_is_coarray (actual))
2627 if (codimension && formal->attr.allocatable)
2649 if (codimension)
2715 if (formal->attr.allocatable && !codimension
[all...] |
| match.cc | 994 if (var->symtree->n.sym->attr.codimension)
4377 bool coarray = tail->expr->symtree->n.sym->attr.codimension;
4380 coarray = ref->u.c.component->attr.codimension;
6524 || CLASS_DATA (selector)->attr.codimension))
6528 sym->attr.codimension = CLASS_DATA (selector)->attr.codimension;
6594 || CLASS_DATA (selector)->attr.codimension)
6598 sym->attr.codimension
6599 = CLASS_DATA (selector)->attr.codimension;
6702 || CLASS_DATA (expr1)->attr.codimension)
[all...] |
| trans-common.cc | 1022 dummy_symbol->codimension |= attr.codimension;
|
| trans-array.cc | 4243 if (!expr->ts.deferred && !sym->attr.codimension
6360 && !prev_ref->u.c.component->attr.codimension);
9848 && (!attr->codimension || caf_enabled (caf_mode)))
9854 = (caf_in_coarray (caf_mode) || attr->codimension)
9863 if (!attr->codimension
9881 else if (attr->allocatable && !attr->codimension
9963 && (!attr->codimension || !caf_enabled (caf_mode)))
10070 if (c->attr.dimension || c->attr.codimension)
10144 && (c->attr.codimension
10158 if (c->attr.codimension)
[all...] |
| decl.cc | 988 /* Auxiliary function to merge DIMENSION and CODIMENSION array specs. */
996 gfc_error ("The assumed-rank array at %C shall not have a codimension");
1848 attr.codimension = 0;
2459 c->attr.codimension = 1;
5597 gfc_error ("Missing codimension specification at %C");
5622 attr = "CODIMENSION";
8921 || current_attr.codimension
8926 m = gfc_match_array_spec (&as, !current_attr.codimension,
8949 if (current_attr.codimension && m == MATCH_NO)
8951 gfc_error ("Missing array specification at %L in CODIMENSION "
[all...] |
