| /src/external/gpl3/gcc.old/dist/libgomp/ |
| openacc_lib.h | 30 ! NOTE: Due to the use of dimension (..), the code only works when compiled
214 type (*), dimension (*) :: a
221 type (*), dimension (*) :: a
226 type (*), dimension (..), contiguous :: a
234 type (*), dimension (*) :: a
241 type (*), dimension (*) :: a
246 type (*), dimension (..), contiguous :: a
260 type (*), dimension (*) :: a
267 type (*), dimension (*) :: a
272 type (*), dimension (..), contiguous ::
[all...] |
| /src/sys/arch/atari/dev/ |
| grfabs_reg.h | 42 struct dimension { struct
46 typedef struct dimension dimen_t;
|
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| primary.cc | 2077 if ((sym->ts.type != BT_CLASS && sym->attr.dimension)
2079 && CLASS_DATA (sym)->attr.dimension))
2107 && !sym->attr.dimension)
2127 && sym->assoc->st->n.sym->attr.dimension == 0))
2129 sym->attr.dimension = 1;
2149 || (sym->attr.dimension && sym->ts.type != BT_CLASS
2155 && (CLASS_DATA (sym)->attr.dimension
2640 int dimension, codimension, pointer, allocatable, target, optional; local
2656 dimension = CLASS_DATA (sym)->attr.dimension;
2843 int dimension, codimension, pointer, allocatable, target, coarray_comp; local
[all...] |
| class.cc | 34 (pointer/allocatable/dimension/...).
348 && CLASS_DATA (e->symtree->n.sym)->attr.dimension
357 && CLASS_DATA (ref->u.c.component)->attr.dimension
383 && !CLASS_DATA (e->symtree->n.sym)->attr.dimension
396 && !CLASS_DATA (ref->u.c.component)->attr.dimension
652 && ts->u.derived->components->attr.dimension >= attr->dimension
659 attr->dimension |= ts->u.derived->components->attr.dimension;
755 c->attr.dimension = attr->dimension
[all...] |
| symbol.cc | 380 proc->attr.dimension = proc->result->attr.dimension;
422 *dimension = "DIMENSION", *in_equivalence = "EQUIVALENCE", local
555 conf (external, dimension); /* See Fortran 95's R504. */
620 conf (cray_pointer, dimension);
663 conf (value, dimension)
694 conf (procedure, dimension)
716 conf (pdt_kind, dimension)
721 conf (pdt_len, dimension)
[all...] |
| resolve.cc | 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)"
7816 int i, pointer, allocatable, dimension, is_abstract; local
12906 bool pointer, allocatable, dimension; local
[all...] |
| trans-decl.cc | 528 if (sym->attr.dimension
589 if (!attr->dimension && !attr->codimension)
634 && (sym->attr.dimension || sym->ts.type == BT_DERIVED))
752 || sym->attr.dimension == 0
1079 /* Don't try to use the unknown ubound for the last coarray dimension. */
1629 && sym->attr.dimension
1633 if (sym->attr.pointer && sym->attr.dimension && sym->ts.type != BT_CLASS)
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.codimensio
[all...] |
| trans-expr.cc | 169 bool comp_ref = !last_caf_ref->u.c.component->attr.dimension;
678 /* Assign the dimension as range-ref. */
1182 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension)
1537 msg = xasprintf ("Array bound mismatch for dimension %d "
1712 && CLASS_DATA (code->expr1)->attr.dimension)
1991 && !sym->attr.dimension)
2362 if (gfc_caf_attr (base_expr).dimension)
2794 && (!c->attr.dimension && !c->attr.codimension)
2910 if (sym->attr.dummy && !sym->attr.dimension
2913 || (!CLASS_DATA (sym)->attr.dimension
[all...] |
| trans-types.cc | 1304 struct descriptor_dimension dimension[N_DIM];
1352 integer, dimension (80000:90000, 80000:90000, 2) :: array
1365 previous dimension. This requires extra fields in the descriptor
1381 gcc_assert (array_attr->dimension || array_attr->codimension);
2096 if (sym->attr.dimension)
2331 type = gfc_get_cfi_type (sym->attr.dimension ? sym->as->rank : 0,
2333 else if (sym->attr.dimension || sym->attr.codimension)
2510 if (c->attr.function && !c->attr.dimension && c->ts.type != BT_CHARACTER)
2821 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
2883 if (c->attr.pointer && c->attr.dimension
[all...] |
| interface.cc | 489 if (cmp1->attr.dimension != cmp2->attr.dimension)
495 if (cmp1->attr.dimension && gfc_compare_array_spec (cmp1->as, cmp2->as) == 0)
1523 snprintf (errmsg, err_len, "Shape mismatch in dimension %i of"
1687 snprintf (errmsg, err_len, "Shape mismatch in dimension %i of "
2312 if (s->attr.dimension)
2327 if (attr->dimension)
2597 if (formal->attr.dimension
2599 && actual_attr.dimension
2693 || (actual->rank != 0 && !(is_elemental || formal->attr.dimension))
[all...] |
| match.cc | 983 if (var->symtree->n.sym->attr.dimension)
4438 if (gfc_peek_ascii_char () == '(' && !sym->attr.dimension)
6271 assoc_sym->attr.dimension = 1;
6318 assoc_sym->attr.dimension = 1;
6393 && (CLASS_DATA (selector)->attr.dimension
6397 sym->attr.dimension = CLASS_DATA (selector)->attr.dimension;
6449 if (CLASS_DATA (selector)->attr.dimension
6452 sym->attr.dimension
6453 = CLASS_DATA (selector)->attr.dimension;
[all...] |
| trans-common.cc | 717 s->sym->attr.dimension,
847 gfc_internal_error ("element_number(): Bad dimension type");
1008 dummy_symbol->dimension |= attr.dimension;
|
| trans-stmt.cc | 918 if (gfc_expr_attr (code->expr1).dimension)
1116 if (gfc_expr_attr (code->expr1).dimension)
1903 else if (sym->attr.dimension && !class_target
1984 else if (class_target && sym->attr.dimension
2033 gcc_assert (!sym->attr.dimension);
2039 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.dimension)
2095 && CLASS_DATA (e)->attr.dimension)
3873 if (old_sym->attr.dimension)
3920 new_sym->attr.dimension = old_sym->attr.dimension;
[all...] |
| trans-array.cc | 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. *
6090 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false, local
[all...] |
| decl.cc | 952 /* Auxiliary function to merge DIMENSION and CODIMENSION array specs. */
1339 if (sym->attr.dimension)
1638 if (!sym->attr.dimension
1691 /* Make sure that if it has the dimension attribute, that it is
1782 /* Add dimension attribute if present. */
1788 dimension attribute. */
1790 attr.dimension = 0;
2111 if (sym->attr.flavor == FL_PARAMETER && sym->attr.dimension && sym->as
2120 if (sym->attr.flavor == FL_PARAMETER && sym->attr.dimension
2189 if (sym->attr.flavor == FL_PARAMETER && sym->attr.dimension
[all...] |
| /src/sys/arch/amiga/dev/ |
| amidisplaycc.c | 1135 dimen_t dimension; local
1139 dimension.width = adp->gfxwidth;
1140 dimension.height = adp->gfxheight;
1142 &dimension,
1255 dimen_t dimension; local
1284 dimension.width = screenp->ncols * fontwidth;
1285 dimension.height = screenp->nrows * fontheight;
1287 view = grf_alloc_view(NULL, &dimension, depth);
1311 scr->width = dimension.width;
1312 scr->height = dimension.height
[all...] |
| grfabs_reg.h | 42 struct dimension { struct
46 typedef struct dimension dimen_t;
|
| /src/usr.bin/xlint/lint1/ |
| init.c | 194 tp->u.dimension = (int)size;
304 dr->dr_subscript < (size_t)tp->u.dimension);
509 dr->dr_subscript >= (size_t)tp->u.dimension)
531 error(173, tp->u.dimension);
803 if (!tp->t_incomplete_array && subscript >= (size_t)tp->u.dimension) {
805 error(168, (uintmax_t)subscript, tp->u.dimension - 1);
861 if (!tp->t_incomplete_array && (size_t)tp->u.dimension < len)
863 warning(187, (uintmax_t)len, (uintmax_t)tp->u.dimension);
|
| decl.c | 807 * Printing a message if the outermost dimension of an array is 0 must
820 elem *= tp->u.dimension;
940 if (t == ARRAY && tp->u.dimension == 0) {
941 /* null dimension */
1168 if (sz == 0 && t == ARRAY && dsym->s_type->u.dimension == 0)
1275 tp->u.dimension = dim;
1292 /* negative array dimension (%d) */
2296 if (t == ARRAY && tp1->u.dimension != tp2->u.dimension) {
2297 if (tp1->u.dimension != 0 && tp2->u.dimension != 0
[all...] |
| emit1.c | 111 outint(tp->u.dimension);
|
| lint1.h | 152 int dimension; /* if ARRAY */ member in union:lint1_type::__anon8372
|
| /src/usr.bin/xlint/common/ |
| tyname.c | 239 buf_add_int(buf, tp->u.dimension);
|
| /src/external/bsd/pcc/dist/pcc/f77/fcom/ |
| lex.c | 921 { "dimension", SDIMENSION, },
|
| /src/external/gpl3/gcc.old/dist/gcc/ |
| graphite-isl-ast-to-gimple.cc | 1360 int dimension = isl_space_dim (schedule_space, isl_dim_out); local
1362 !carries_deps (schedule, dependences, dimension);
|
| graphite-sese-to-poly.cc | 115 distinguished through the first dimension, which contains the alias set or
127 extract_affine_name (int dimension, __isl_take isl_space *space)
131 aff = isl_aff_add_coefficient_si (aff, isl_dim_param, dimension, 1);
460 data reference DR. ACCESSP_NB_DIMS is the dimension of the
461 ACCESSES polyhedron, DOM_NB_DIMS is the dimension of the iteration
476 /* Assign the affine expression INDEX to the output dimension POS of
499 to the memory. ACCESSP_NB_DIMS is the dimension of the ACCESSES
500 polyhedron, DOM_NB_DIMS is the dimension of the iteration domain.
552 ACCESSES polyhedron. ACCESSP_NB_DIMS is the dimension of the
553 ACCESSES polyhedron, DOM_NB_DIMS is the dimension of the iteratio
[all...] |
