9 files changed, 11 insertions, 11 deletions
diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4
index 53ec168da61..efa38b201af 100644
--- a/libgfortran/m4/eoshift1.m4
+++ b/libgfortran/m4/eoshift1.m4
@@ -50,7 +50,7 @@ eoshift1 (gfc_array_char * const restrict ret,
   index_type rstride0;
   index_type roffset;
   char *rptr;
-  char *dest;
+  char * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4
index db04ae8f0e6..050f5277822 100644
--- a/libgfortran/m4/eoshift3.m4
+++ b/libgfortran/m4/eoshift3.m4
@@ -50,7 +50,7 @@ eoshift3 (gfc_array_char * const restrict ret,
   index_type rstride0;
   index_type roffset;
   char *rptr;
-  char *dest;
+  char * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4
index 071900b03b8..a8a353a4bdb 100644
--- a/libgfortran/m4/iforeach.m4
+++ b/libgfortran/m4/iforeach.m4
@@ -17,7 +17,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const atype_name *base;
-  rtype_name *dest;
+  rtype_name * restrict dest;
   index_type rank;
   index_type n;
 
diff --git a/libgfortran/m4/in_pack.m4 b/libgfortran/m4/in_pack.m4
index ce13f954170..5d9b4b719a0 100644
--- a/libgfortran/m4/in_pack.m4
+++ b/libgfortran/m4/in_pack.m4
@@ -51,7 +51,7 @@ internal_pack_'rtype_ccode` ('rtype` * source)
   index_type dim;
   index_type ssize;
   const 'rtype_name` *src;
-  'rtype_name` *dest;
+  'rtype_name` * restrict dest;
   'rtype_name` *destptr;
   int n;
   int packed;
diff --git a/libgfortran/m4/in_unpack.m4 b/libgfortran/m4/in_unpack.m4
index 00f4f12da33..5c5b5b12a1b 100644
--- a/libgfortran/m4/in_unpack.m4
+++ b/libgfortran/m4/in_unpack.m4
@@ -48,7 +48,7 @@ internal_unpack_'rtype_ccode` ('rtype` * d, const 'rtype_name` * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  'rtype_name` *dest;
+  'rtype_name` * restrict dest;
   int n;
 
   dest = d->data;
diff --git a/libgfortran/m4/pack.m4 b/libgfortran/m4/pack.m4
index 4f31ffdd15e..9198b65b20e 100644
--- a/libgfortran/m4/pack.m4
+++ b/libgfortran/m4/pack.m4
@@ -83,7 +83,7 @@ pack_'rtype_code` ('rtype` *ret, const 'rtype` *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  'rtype_name` *rptr;
+  'rtype_name` * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
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)
diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4
index 177e86dcdc1..103cc0296fb 100644
--- a/libgfortran/m4/transpose.m4
+++ b/libgfortran/m4/transpose.m4
@@ -45,7 +45,7 @@ transpose_'rtype_code` ('rtype` * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  'rtype_name` *rptr;
+  'rtype_name` * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const 'rtype_name` *sptr;
diff --git a/libgfortran/m4/unpack.m4 b/libgfortran/m4/unpack.m4
index 2ad6841a081..fa2b5f1588b 100644
--- a/libgfortran/m4/unpack.m4
+++ b/libgfortran/m4/unpack.m4
@@ -46,7 +46,7 @@ unpack0_'rtype_code` ('rtype` *ret, const 'rtype` *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  'rtype_name` *rptr;
+  'rtype_name` * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   'rtype_name` *vptr;
@@ -189,7 +189,7 @@ unpack1_'rtype_code` ('rtype` *ret, const 'rtype` *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  'rtype_name` *rptr;
+  'rtype_name` * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   'rtype_name` *vptr;