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