libgfortran/generated/findloc0_i16.c

31 extern void findloc0_i16 (gfc_array_index_type * const restrict retarray,
37 findloc0_i16 (gfc_array_index_type * const restrict retarray,
55   if (retarray->base_addr == NULL)
57       GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
58       retarray->dtype.rank = 1;
59       retarray->offset = 0;
60       retarray->base_addr = xmallocarray (rank, sizeof (index_type));
65 	bounds_iforeach_return ((array_t *) retarray, (array_t *) array,
69   dstride = GFC_DESCRIPTOR_STRIDE(retarray,0);
70   dest = retarray->base_addr;
167 extern void mfindloc0_i16 (gfc_array_index_type * const restrict retarray,
173 mfindloc0_i16 (gfc_array_index_type * const restrict retarray,
194   if (retarray->base_addr == NULL)
196       GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
197       retarray->dtype.rank = 1;
198       retarray->offset = 0;
199       retarray->base_addr = xmallocarray (rank, sizeof (index_type));
205 	  bounds_iforeach_return ((array_t *) retarray, (array_t *) array,
225   dstride = GFC_DESCRIPTOR_STRIDE(retarray,0);
226   dest = retarray->base_addr;
330 extern void sfindloc0_i16 (gfc_array_index_type * const restrict retarray,
336 sfindloc0_i16 (gfc_array_index_type * const restrict retarray,
347       findloc0_i16 (retarray, array, value, back);
356   if (retarray->base_addr == NULL)
358       GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
359       retarray->dtype.rank = 1;
360       retarray->offset = 0;
361       retarray->base_addr = xmallocarray (rank, sizeof (index_type));
365        bounds_iforeach_return ((array_t *) retarray, (array_t *) array,
369   dstride = GFC_DESCRIPTOR_STRIDE(retarray,0);
370   dest = retarray->base_addr;