Cross Reference: /src/external/gpl3/gcc/dist/libgfortran/generated/findloc1

Lines Matching refs:extent
41   index_type extent[GFC_MAX_DIMENSIONS];
72       extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
74       if (extent[n] < 0)
75 	extent[n] = 0;
80       extent[n] = GFC_DESCRIPTOR_EXTENT(array, n + 1);
82       if (extent[n] < 0)
83 	extent[n] = 0;
95 	    str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1];
97 	  GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str);
104       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
119 	bounds_ifunction_return ((array_t *) retarray, extent,
127       if (extent[n] <= 0)
171       while (count[n] == extent[n])
174 	  base -= sstride[n] * extent[n] * 1;
175 	  dest -= dstride[n] * extent[n];
204   index_type extent[GFC_MAX_DIMENSIONS];
255       extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
257       if (extent[n] < 0)
258 	extent[n] = 0;
264       extent[n] = GFC_DESCRIPTOR_EXTENT(array, n + 1);
266       if (extent[n] < 0)
267 	extent[n] = 0;
279 	    str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1];
281 	  GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str);
288       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
303 	bounds_ifunction_return ((array_t *) retarray, extent,
311       if (extent[n] <= 0)
359       while (count[n] == extent[n])
362 	  base -= sstride[n] * extent[n] * 1;
363 	  mbase -= mstride[n] * extent[n];
364 	  dest -= dstride[n] * extent[n];
393   index_type extent[GFC_MAX_DIMENSIONS];
424       extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
426       if (extent[n] <= 0)
427 	extent[n] = 0;
432       extent[n] =
435       if (extent[n] <= 0)
436 	extent[n] = 0;
449 	    str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1];
451 	  GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str);
457       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
472 	bounds_ifunction_return ((array_t *) retarray, extent,
480       if (extent[n] <= 0)
493       while (count[n] == extent[n])
496 	  dest -= dstride[n] * extent[n];
OpenGrok
