index_type stride0;
index_type dim;
index_type dsize;
- GFC_INTEGER_8 *dest;
+ GFC_INTEGER_8 * restrict dest;
int n;
dest = d->data;
stride[n] = d->dim[n].stride;
extent[n] = d->dim[n].ubound + 1 - d->dim[n].lbound;
if (extent[n] <= 0)
- abort ();
+ return;
if (dsize == stride[n])
- dsize *= extent[n];
+ dsize *= extent[n];
else
- dsize = 0;
+ dsize = 0;
}
if (dsize != 0)