Lines Matching defs:dimension
549 /* Modify a descriptor such that the lbound of a given dimension is the value
1005 && CLASS_DATA (sym)->attr.dimension)
1249 /* Get the scalarizer array dimension corresponding to actual array dimension
1291 /* Get the array reference dimension corresponding to the given loop dimension.
1292 It is different from the true array dimension given by the dim array in
1294 It is different from the loop dimension in the case of a transposed array.
1549 to the n'th dimension of the array. We need to reconstruct loop
1669 /* Check whether the size for this dimension is negative. */
1690 dimension is zero and the size is set to zero. */
2967 each such vector dimension and see if we can now fill in any missing
2997 /* Loop variable N indexes vector dimension DIM, and we don't
3101 dimension indices, but not array section bounds. */
3458 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
3461 msg = xasprintf ("Index '%%ld' of dimension %d "
3483 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
3486 msg = xasprintf ("Index '%%ld' of dimension %d "
3503 DIM is the array dimension, I is the loop dimension. */
3516 /* Get the index into the array for this dimension. */
3526 /* Elemental dimension. */
3567 /* Scalarized dimension. */
3757 /* Add the offset for this dimension to the stored offset for all other
3953 /* Calculate the index for this dimension. */
3980 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
3988 /* Upper bound, but not for the last dimension of assumed-size
4004 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
4076 /* Add the offset corresponding to array's ARRAY_DIM dimension and loop's
4077 LOOP_DIM dimension (if any) to array's offset. */
4120 for this dimension. */
4147 /* If we are in the outermost dimension of this loop, the previous
4148 dimension shall be in the parent loop. */
4197 /* Add the offset for the previous loop dimension. */
4764 msg = xasprintf ("Zero stride is not allowed, for dimension %d "
4822 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
4844 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
4876 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
4893 msg = xasprintf ("Index '%%ld' of dimension %d of array '%s' "
4922 msg = xasprintf ("Array bound mismatch for dimension %d "
4982 && (!lsym->attr.dimension || lsym->as->type == AS_ASSUMED_SHAPE))
4984 && (!rsym->attr.dimension
5247 bounds according to the "best" one (per dimension), i.e. the one which
5289 loop for this dimension. We try to pick the simplest term. */
5602 /* Calculate the size of a given array dimension from the bounds. This
5619 /* Check whether the size for this dimension is negative. */
5879 elements in this dimension would overflow. We must also check
5880 whether the current dimension has zero size in order to avoid
5903 /* Multiply the stride by the number of elements in this dimension. */
6090 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false,
6104 dimension = expr->symtree->n.sym->attr.dimension;
6116 dimension = prev_ref->u.c.component->attr.dimension;
6130 if (!dimension)
6143 && gfc_expr_attr (expr3).dimension)
6203 if (dimension)
6271 if (dimension)
6285 if (dimension)
6550 /* The offset of this dimension. offset = offset - lbound * stride. */
6556 /* The size of this dimension, and the stride of the next. */
6795 For each dimension we set the new lower and upper bounds. Then we copy the
6796 stride and calculate the offset for this dimension. We also work out
6878 /* For non-constant shape arrays we only check if the first dimension
7004 msg = xasprintf ("Dimension %d of array '%s' has extent "
7024 /* The offset of this dimension. offset = offset - lbound * stride. */
7030 /* The size of this dimension, and the stride of the next. */
8038 /* look for the corresponding scalarizer dimension: dim. */
8433 if (result->attr.dimension
9064 information from dimension = rank. */
9222 if (attr->dimension)
9241 if (attr->dimension || c->ts.type == BT_CHARACTER)
9265 if (attr->dimension)
9287 if (attr->dimension || c->ts.type == BT_CHARACTER)
9333 && attr->dimension;
9391 else if (attr->dimension && !attr->proc_pointer)
9394 if (attr->dimension && !attr->codimension && !attr->proc_pointer)
9421 if (attr->dimension)
9453 if (attr->dimension)
9596 if (c->attr.dimension || c->attr.codimension)
9625 if (c->attr.dimension)
9728 if (CLASS_DATA (c)->attr.dimension)
9740 if (CLASS_DATA (c)->attr.dimension
10905 Reuse size1 to keep a dimension-by-dimension track of the
11397 if (sym->attr.allocatable && (sym->attr.dimension || sym->attr.codimension)
11515 dimension for later. */
11536 /* We should have at least one non-elemental dimension,
11816 if ((!comp && gfc_return_by_reference (sym) && sym->result->attr.dimension)
11817 || (comp && comp->attr.dimension))
Indexes created Fri Jun 26 00:24:39 UTC 2026