index_type rrank;
index_type rs;
GFC_INTEGER_8 *rptr;
- GFC_INTEGER_8 *dest;
+ GFC_INTEGER_8 * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
{
int n;
int ncopies = pncopies;
- GFC_INTEGER_8 * dest;
+ GFC_INTEGER_8 * restrict dest;
index_type stride;
if (GFC_DESCRIPTOR_RANK (ret) != 1)
}
#endif
+