Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/class.cc

Lines Matching refs:idx2
1196      do idx2 = 1, rank
1197        offset = offset + mod (idx, sizes(idx2)) / sizes(idx2-1) * strides(idx2)
1202 finalization_get_offset (gfc_symbol *idx, gfc_symbol *idx2, gfc_symbol *offset,
1218   iter->var = gfc_lval_expr_from_sym (idx2);
1227   /* Loop body: offset = offset + mod (idx, sizes(idx2)) / sizes(idx2-1)
1228 				  * strides(idx2).  */
1230   /* mod (idx, sizes(idx2)).  */
1238   expr->ref->u.ar.start[0] = gfc_lval_expr_from_sym (idx2);
1246   /* (...) / sizes(idx2-1).  */
1263 	= gfc_lval_expr_from_sym (idx2);
1271   /* ... * strides(idx2).  */
1282   expr->value.op.op2->ref->u.ar.start[0] = gfc_lval_expr_from_sym (idx2);
1349 			      gfc_symbol *idx2, gfc_symbol *offset,
1525   block2 = finalization_get_offset (idx, idx2, offset, strides, sizes,
1570   block2 = finalization_get_offset (idx, idx2, offset, strides, sizes,
1612   gfc_symbol *ptr = NULL, *idx, *idx2, *is_contiguous, *offset, *nelem;
1769   gfc_get_symbol ("idx2", sub_ns, &idx2);
1770   idx2->ts.type = BT_INTEGER;
1771   idx2->ts.kind = gfc_index_integer_kind;
1772   idx2->attr.flavor = FL_VARIABLE;
1773   idx2->attr.artificial = 1;
1774   gfc_set_sym_referenced (idx2);
1775   gfc_commit_symbol (idx2);
2105 					  sizes, idx2, offset, is_contiguous,
2145 	  block = finalization_get_offset (idx, idx2, offset, strides, sizes,
2208       block = finalization_get_offset (idx, idx2, offset, strides, sizes,
OpenGrok
