gcc/fortran/class.c

1182        offset = offset + mod (idx, sizes(idx2)) / sizes(idx2-1) * strides(idx2)
1188 			 gfc_symbol *strides, gfc_symbol *sizes,
1213 				  * strides(idx2).  */
1256   /* ... * strides(idx2).  */
1261   expr->value.op.op2 = gfc_lval_expr_from_sym (strides);
1268   expr->value.op.op2->ref->u.ar.as = strides->as;
1314 	   offset = obtain_offset(i, strides, sizes, byte_stride)
1333 			      gfc_symbol *strides, gfc_symbol *sizes,
1394   /* If strides aren't allowed (not assumed shape or CONTIGUOUS),
1510   block2 = finalization_get_offset (idx, idx2, offset, strides, sizes,
1555   block2 = finalization_get_offset (idx, idx2, offset, strides, sizes,
1596   gfc_symbol *final, *array, *fini_coarray, *byte_stride, *sizes, *strides;
1811   /* Create "strides(1..rank)" variable, which contains the strides per
1813   gfc_get_symbol ("strides", sub_ns, &strides);
1814   strides->ts.type = BT_INTEGER;
1815   strides->ts.kind = gfc_index_integer_kind;
1816   strides->attr.flavor = FL_VARIABLE;
1817   strides->attr.dimension = 1;
1818   strides->attr.artificial = 1;
1819   strides->as = gfc_get_array_spec();
1820   strides->attr.intent = INTENT_INOUT;
1821   strides->as->type = AS_EXPLICIT;
1822   strides->as->rank = 1;
1823   strides->as->lower[0] = gfc_get_int_expr (gfc_index_integer_kind, NULL, 1);
1824   strides->as->upper[0] = gfc_copy_expr (rank);
1825   gfc_set_sym_referenced (strides);
1826   gfc_commit_symbol (strides);
1858        strides(idx) = _F._stride (array, dim=idx)
1860        if (strides (idx) /= sizes(i-1)) is_contiguous = .false.
1874   /* strides(idx) = _F._stride(array,dim=idx).  */
1878   block->expr1 = gfc_lval_expr_from_sym (strides);
1885   block->expr1->ref->u.ar.as = strides->as;
1942   /* if (strides (idx) /= sizes(idx-1)) is_contiguous = .false.  */
1949   /* if condition: strides(idx) /= sizes(idx-1).  */
1957   block->expr1->value.op.op1 = gfc_lval_expr_from_sym (strides);
1964   block->expr1->value.op.op1->ref->u.ar.as = strides->as;
2096 					  idx, ptr, nelem, strides,
2137 	  block = finalization_get_offset (idx, idx2, offset, strides, sizes,
2200       block = finalization_get_offset (idx, idx2, offset, strides, sizes,