Home | History | Annotate | Download | only in fortran

Lines Matching defs:lbound

2399   tree lbound, ubound, extent, tmp, img_idx;
2422 	lbound = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[i]);
2424 			       TREE_TYPE (lbound), se.expr, lbound);
2432 	    tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
2443 	lbound = GFC_TYPE_ARRAY_LBOUND (TREE_TYPE (desc), i);
2445 			       TREE_TYPE (lbound), se.expr, lbound);
2454 				   TREE_TYPE (ubound), ubound, lbound);
4717 	/* TODO These implementations of lbound and ubound do not limit if
5840 				   ? gfc->dim[i].lbound : 0 */
5846       /* cfi->dim[i].extent = gfc->dim[i].ubound - gfc->dim[i].lbound + 1.  */
5941       /* Calculate offset + set lbound, ubound and stride.  */
5948       /* gfc->dim[i].lbound = ... */
5952       /* gfc->dim[i].ubound = gfc->dim[i].lbound + cfi->dim[i].extent - 1. */
5968       /* gfc->offset -= gfc->dim[i].stride * gfc->dim[i].lbound. */
8672   /* Shift the lbound and ubound of temporaries to being unity,
8681       tree lbound;
8683       /* Obtain the correct lbound - ISO/IEC TR 15581:2001 page 9.
8694 	  lbound = gfc_evaluate_now (lbse.expr, &block);
8699 	  lbound = gfc_conv_descriptor_lbound_get (tmp,
8703 	lbound = gfc_conv_descriptor_lbound_get (dest,
8706 	lbound = gfc_index_one_node;
8708       lbound = fold_convert (gfc_array_index_type, lbound);
8715 			     span, lbound);
8719 				      gfc_rank_cst[n], lbound);
10210 	      tree lbound, ubound;
10234 		 to a lbound of zero.  */
10240 		  lbound = gfc_conv_descriptor_lbound_get (rse.expr,
10243 					 gfc_array_index_type, stride, lbound);
10269 		  lbound = fold_convert (gfc_array_index_type, lower_se.expr);
10272 		  lbound = gfc_evaluate_now (lbound, &block);
10280 						  gfc_rank_cst[dim], lbound);
10292 					 gfc_array_index_type, lbound, stride);
10299 		  tmp = gfc_conv_array_extent_dim (lbound, ubound, NULL);
10827       tree lbound;
10829       lbound = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[n]);
10830       lbound = fold_build3_loc (input_location, COND_EXPR,
10832 				gfc_index_one_node, lbound);
10833       lbound = gfc_evaluate_now (lbound, &se->post);
10837 			     gfc_array_index_type, tmp, lbound);
10839 				      gfc_rank_cst[n], lbound);
10848 			     gfc_array_index_type, lbound, tmp);