Home | History | Annotate | Download | only in fortran

Lines Matching defs:coindex

2673   tree num_images, cond, coindex, type, lbound, ubound, desc, subdesc,
2728   /* coindex = sub(corank) - lcobound(n).  */
2729   coindex = fold_convert (gfc_array_index_type,
2733   coindex = fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type,
2734 			     fold_convert (gfc_array_index_type, coindex),
2741       /* coindex = coindex*extent(codim) + sub(codim) - lcobound(codim).  */
2746       /* coindex *= extent.  */
2747       coindex = fold_build2_loc (input_location, MULT_EXPR,
2748 				 gfc_array_index_type, coindex, extent);
2750       /* coindex += sub(codim).  */
2752       coindex = fold_build2_loc (input_location, PLUS_EXPR,
2753 				 gfc_array_index_type, coindex,
2756       /* coindex -= lbound(codim).  */
2758       coindex = fold_build2_loc (input_location, MINUS_EXPR,
2759 				 gfc_array_index_type, coindex, lbound);
2762   coindex = fold_build2_loc (input_location, PLUS_EXPR, type,
2763 			     fold_convert(type, coindex),
2766   /* Return 0 if "coindex" exceeds num_images().  */
2779   gfc_add_modify (&se->pre, tmp, coindex);