Lines Matching defs:dimension
219 sym->attr.dimension = ifc->result->attr.dimension;
229 sym->attr.dimension = ifc->attr.dimension;
344 /* We can't tell if an array with dimension (:) is assumed or deferred
793 || (el->sym->result->attr.dimension
794 != ns->entries->sym->result->attr.dimension)
837 if (sym->attr.dimension)
850 if (sym->attr.dimension)
1505 "declared component for dimension %d (%ld/%ld)",
1581 if (a.allocatable || a.dimension || a.dummy || a.external || a.intrinsic
1679 gfc_error ("The upper bound in the last dimension must "
2570 if (res->attr.dimension) /* (3a) */
4673 /* Compare a single dimension of an array reference to the array
4707 "(%ld < %ld) in dimension %d", &ar->c_where[i],
4722 "(%ld > %ld) in dimension %d", &ar->c_where[i],
4765 "(%ld < %ld) in dimension %d", &ar->c_where[i],
4773 "(%ld > %ld) in dimension %d", &ar->c_where[i],
4789 "(%ld < %ld) in dimension %d", &ar->c_where[i],
4798 "(%ld > %ld) in dimension %d", &ar->c_where[i],
5022 if (c->attr.dimension)
5794 if (!sym->attr.dimension && e->ref && e->ref->type == REF_ARRAY)
5796 else if (sym->attr.dimension && (!e->ref || e->ref->type != REF_ARRAY))
5820 if (sym->assoc && sym->attr.dimension && !e->ref)
5833 && CLASS_DATA (sym)->attr.dimension
5981 && sym->attr.dimension
7816 int i, pointer, allocatable, dimension, is_abstract;
7859 dimension = attr.dimension;
7868 dimension = CLASS_DATA (sym)->attr.dimension;
7876 dimension = sym->attr.dimension;
7917 dimension = CLASS_DATA (c)->attr.dimension;
7925 dimension = c->attr.dimension;
8049 if (e->ts.type == BT_CLASS && CLASS_DATA (e)->attr.dimension
8097 if (dimension == 0 && codimension == 0)
8103 || (dimension && ref2->u.ar.dimen == 0))
9157 if (sym->attr.dimension && target->rank == 0)
9164 sym->attr.dimension = 0;
9194 sym->attr.dimension = 1;
9208 CLASS_DATA (sym)->attr.dimension = 1;
9253 attr.dimension = attr.codimension = 0;
9321 the dimension attribute and arrayspec can also be set. In addition,
9338 CLASS_DATA (sym1)->attr.dimension = 1;
9345 sym1->attr.dimension = 1;
10496 /* Compare the size of each dimension. */
10510 ignore the comparison of dimension sizes. */
11393 tmp->n.sym->attr.dimension = 1;
11396 tmp->n.sym->attr.dimension = 0;
12187 && !CLASS_DATA (code->expr2)->attr.dimension
12878 && (!sym->attr.dimension || !is_non_constant_shape_array (sym)))))
12906 bool pointer, allocatable, dimension;
12913 dimension = CLASS_DATA (sym)->attr.dimension;
12919 dimension = sym->attr.dimension;
12924 if (dimension
12939 if (pointer && dimension && as->type != AS_ASSUMED_RANK)
13173 else if ((sym->attr.dimension || sym->attr.codimension) && !sym->attr.pointer
14624 && (c->attr.codimension || c->attr.pointer || c->attr.dimension
14650 if (attr && attr->contiguous && (!attr->dimension || !attr->pointer))
14691 c->attr.dimension = ifc->result->attr.dimension;
14700 c->attr.dimension = ifc->attr.dimension;
14799 if (CLASS_DATA (me_arg)->attr.dimension)
15113 if (!c->attr.dimension && !c->attr.codimension
15579 if (sym->attr.dimension)
15660 sym->attr.dimension = sym->result->attr.dimension;
15694 && (!class_attr.dimension
15848 if (sym->attr.dimension && sym->as->type != AS_ASSUMED_SIZE)
15856 /* Set the type to TYPE(*) and add a dimension(*) to ensure
15889 if (sym->attr.dimension && sym->as->type == AS_EXPLICIT)
16105 && (class_attr.codimension || class_attr.pointer || class_attr.dimension
16308 && (!a->dimension
17102 if (sym->attr.dimension)
Indexes created Sun Jun 28 00:24:58 UTC 2026