diff options
Diffstat (limited to 'libgfortran/m4/spread.m4')
| -rw-r--r-- | libgfortran/m4/spread.m4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index c301d1f1e32..b4bdce64316 100644 --- a/libgfortran/m4/spread.m4 +++ b/libgfortran/m4/spread.m4 @@ -49,7 +49,7 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source, index_type rrank; index_type rs; 'rtype_name` *rptr; - 'rtype_name` *dest; + 'rtype_name` * restrict dest; /* s.* indicates the source array. */ index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride0; @@ -241,7 +241,7 @@ spread_scalar_'rtype_code` ('rtype` *ret, const 'rtype_name` *source, { int n; int ncopies = pncopies; - 'rtype_name` * dest; + 'rtype_name` * restrict dest; index_type stride; if (GFC_DESCRIPTOR_RANK (ret) != 1) |