in_pack.m4 (internal_pack_'rtype_code`): Destination pointer is restrict.

2008-05-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* m4/in_pack.m4 (internal_pack_'rtype_code`):  Destination
	pointer is restrict.
	* m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
	* m4/pack.m4 (pack_'rtype_code`):  Likewise.
	* m4/spread.m4 (spread_'rtype_code`):  Likewise.
	(spread_scalar_'rtype_code`): Likewise.
	* m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
	* m4/eoshift1.m4 (eoshift1):  Likewise.
	* m4/eoshift3.m4 (eoshift3):  Likewise.
	* m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):  Likewise.
	* m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
	(unpack1_'rtype_code`):  Likewise.
	* intrinsics/pack_generic.c (pack_generic.c):  Likewise.
	* intrinsics/unpack_generic.c (unpack_internal):  Likewise.
	* intrinsics/eoshift0.c (eoshift0):  Likewise.
	* intrinsics/eoshift2.c (eoshift2):  Likewise.
	* intrinsics/reshape_generic.c (reshape_internal):  Likewise.
	* intrinsics/reshape_packed.c (reshape_packed):  Likewise.
	* generated/eoshift1_16.c: Regenerated.
	* generated/eoshift1_4.c: Regenerated.
	* generated/eoshift1_8.c: Regenerated.
	* generated/eoshift3_16.c: Regenerated.
	* generated/eoshift3_4.c: Regenerated.
	* generated/eoshift3_8.c: Regenerated.
	* generated/in_pack_c10.c: Regenerated.
	* generated/in_pack_c16.c: Regenerated.
	* generated/in_pack_c4.c: Regenerated.
	* generated/in_pack_c8.c: Regenerated.
	* generated/in_pack_i1.c: Regenerated.
	* generated/in_pack_i16.c: Regenerated.
	* generated/in_pack_i2.c: Regenerated.
	* generated/in_pack_i4.c: Regenerated.
	* generated/in_pack_i8.c: Regenerated.
	* generated/in_pack_r10.c: Regenerated.
	* generated/in_pack_r16.c: Regenerated.
	* generated/in_pack_r4.c: Regenerated.
	* generated/in_pack_r8.c: Regenerated.
	* generated/in_unpack_c10.c: Regenerated.
	* generated/in_unpack_c16.c: Regenerated.
	* generated/in_unpack_c4.c: Regenerated.
	* generated/in_unpack_c8.c: Regenerated.
	* generated/in_unpack_i1.c: Regenerated.
	* generated/in_unpack_i16.c: Regenerated.
	* generated/in_unpack_i2.c: Regenerated.
	* generated/in_unpack_i4.c: Regenerated.
	* generated/in_unpack_i8.c: Regenerated.
	* generated/in_unpack_r10.c: Regenerated.
	* generated/in_unpack_r16.c: Regenerated.
	* generated/in_unpack_r4.c: Regenerated.
	* generated/in_unpack_r8.c: Regenerated.
	* generated/maxloc0_16_i1.c: Regenerated.
	* generated/maxloc0_16_i16.c: Regenerated.
	* generated/maxloc0_16_i2.c: Regenerated.
	* generated/maxloc0_16_i4.c: Regenerated.
	* generated/maxloc0_16_i8.c: Regenerated.
	* generated/maxloc0_16_r10.c: Regenerated.
	* generated/maxloc0_16_r16.c: Regenerated.
	* generated/maxloc0_16_r4.c: Regenerated.
	* generated/maxloc0_16_r8.c: Regenerated.
	* generated/maxloc0_4_i1.c: Regenerated.
	* generated/maxloc0_4_i16.c: Regenerated.
	* generated/maxloc0_4_i2.c: Regenerated.
	* generated/maxloc0_4_i4.c: Regenerated.
	* generated/maxloc0_4_i8.c: Regenerated.
	* generated/maxloc0_4_r10.c: Regenerated.
	* generated/maxloc0_4_r16.c: Regenerated.
	* generated/maxloc0_4_r4.c: Regenerated.
	* generated/maxloc0_4_r8.c: Regenerated.
	* generated/maxloc0_8_i1.c: Regenerated.
	* generated/maxloc0_8_i16.c: Regenerated.
	* generated/maxloc0_8_i2.c: Regenerated.
	* generated/maxloc0_8_i4.c: Regenerated.
	* generated/maxloc0_8_i8.c: Regenerated.
	* generated/maxloc0_8_r10.c: Regenerated.
	* generated/maxloc0_8_r16.c: Regenerated.
	* generated/maxloc0_8_r4.c: Regenerated.
	* generated/maxloc0_8_r8.c: Regenerated.
	* generated/minloc0_16_i1.c: Regenerated.
	* generated/minloc0_16_i16.c: Regenerated.
	* generated/minloc0_16_i2.c: Regenerated.
	* generated/minloc0_16_i4.c: Regenerated.
	* generated/minloc0_16_i8.c: Regenerated.
	* generated/minloc0_16_r10.c: Regenerated.
	* generated/minloc0_16_r16.c: Regenerated.
	* generated/minloc0_16_r4.c: Regenerated.
	* generated/minloc0_16_r8.c: Regenerated.
	* generated/minloc0_4_i1.c: Regenerated.
	* generated/minloc0_4_i16.c: Regenerated.
	* generated/minloc0_4_i2.c: Regenerated.
	* generated/minloc0_4_i4.c: Regenerated.
	* generated/minloc0_4_i8.c: Regenerated.
	* generated/minloc0_4_r10.c: Regenerated.
	* generated/minloc0_4_r16.c: Regenerated.
	* generated/minloc0_4_r4.c: Regenerated.
	* generated/minloc0_4_r8.c: Regenerated.
	* generated/minloc0_8_i1.c: Regenerated.
	* generated/minloc0_8_i16.c: Regenerated.
	* generated/minloc0_8_i2.c: Regenerated.
	* generated/minloc0_8_i4.c: Regenerated.
	* generated/minloc0_8_i8.c: Regenerated.
	* generated/minloc0_8_r10.c: Regenerated.
	* generated/minloc0_8_r16.c: Regenerated.
	* generated/minloc0_8_r4.c: Regenerated.
	* generated/minloc0_8_r8.c: Regenerated.
	* generated/pack_c10.c: Regenerated.
	* generated/pack_c16.c: Regenerated.
	* generated/pack_c4.c: Regenerated.
	* generated/pack_c8.c: Regenerated.
	* generated/pack_i1.c: Regenerated.
	* generated/pack_i16.c: Regenerated.
	* generated/pack_i2.c: Regenerated.
	* generated/pack_i4.c: Regenerated.
	* generated/pack_i8.c: Regenerated.
	* generated/pack_r10.c: Regenerated.
	* generated/pack_r16.c: Regenerated.
	* generated/pack_r4.c: Regenerated.
	* generated/pack_r8.c: Regenerated.
	* generated/spread_c10.c: Regenerated.
	* generated/spread_c16.c: Regenerated.
	* generated/spread_c4.c: Regenerated.
	* generated/spread_c8.c: Regenerated.
	* generated/spread_i1.c: Regenerated.
	* generated/spread_i16.c: Regenerated.
	* generated/spread_i2.c: Regenerated.
	* generated/spread_i4.c: Regenerated.
	* generated/spread_i8.c: Regenerated.
	* generated/spread_r10.c: Regenerated.
	* generated/spread_r16.c: Regenerated.
	* generated/spread_r4.c: Regenerated.
	* generated/spread_r8.c: Regenerated.
	* generated/transpose_c10.c: Regenerated.
	* generated/transpose_c16.c: Regenerated.
	* generated/transpose_c4.c: Regenerated.
	* generated/transpose_c8.c: Regenerated.
	* generated/transpose_i16.c: Regenerated.
	* generated/transpose_i4.c: Regenerated.
	* generated/transpose_i8.c: Regenerated.
	* generated/transpose_r10.c: Regenerated.
	* generated/transpose_r16.c: Regenerated.
	* generated/transpose_r4.c: Regenerated.
	* generated/transpose_r8.c: Regenerated.
	* generated/unpack_c10.c: Regenerated.
	* generated/unpack_c16.c: Regenerated.
	* generated/unpack_c4.c: Regenerated.
	* generated/unpack_c8.c: Regenerated.
	* generated/unpack_i1.c: Regenerated.
	* generated/unpack_i16.c: Regenerated.
	* generated/unpack_i2.c: Regenerated.
	* generated/unpack_i4.c: Regenerated.
	* generated/unpack_i8.c: Regenerated.
	* generated/unpack_r10.c: Regenerated.
	* generated/unpack_r16.c: Regenerated.
	* generated/unpack_r4.c: Regenerated.
	* generated/unpack_r8.c: Regenerated.

From-SVN: r135512

libgfortran/generated/eoshift1_16.c

@@ -49,7 +49,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;

libgfortran/generated/eoshift1_4.c

@@ -49,7 +49,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;

libgfortran/generated/eoshift1_8.c

@@ -49,7 +49,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;

libgfortran/generated/eoshift3_16.c

@@ -49,7 +49,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;

libgfortran/generated/eoshift3_4.c

@@ -49,7 +49,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;

libgfortran/generated/eoshift3_8.c

@@ -49,7 +49,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;

libgfortran/generated/in_pack_c10.c

@@ -48,7 +48,7 @@ internal_pack_c10 (gfc_array_c10 * source)
   index_type dim;
   index_type ssize;
   const GFC_COMPLEX_10 *src;
-  GFC_COMPLEX_10 *dest;
+  GFC_COMPLEX_10 * restrict dest;
   GFC_COMPLEX_10 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_c16.c

@@ -48,7 +48,7 @@ internal_pack_c16 (gfc_array_c16 * source)
   index_type dim;
   index_type ssize;
   const GFC_COMPLEX_16 *src;
-  GFC_COMPLEX_16 *dest;
+  GFC_COMPLEX_16 * restrict dest;
   GFC_COMPLEX_16 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_c4.c

@@ -48,7 +48,7 @@ internal_pack_c4 (gfc_array_c4 * source)
   index_type dim;
   index_type ssize;
   const GFC_COMPLEX_4 *src;
-  GFC_COMPLEX_4 *dest;
+  GFC_COMPLEX_4 * restrict dest;
   GFC_COMPLEX_4 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_c8.c

@@ -48,7 +48,7 @@ internal_pack_c8 (gfc_array_c8 * source)
   index_type dim;
   index_type ssize;
   const GFC_COMPLEX_8 *src;
-  GFC_COMPLEX_8 *dest;
+  GFC_COMPLEX_8 * restrict dest;
   GFC_COMPLEX_8 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_i1.c

@@ -48,7 +48,7 @@ internal_pack_1 (gfc_array_i1 * source)
   index_type dim;
   index_type ssize;
   const GFC_INTEGER_1 *src;
-  GFC_INTEGER_1 *dest;
+  GFC_INTEGER_1 * restrict dest;
   GFC_INTEGER_1 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_i16.c

@@ -48,7 +48,7 @@ internal_pack_16 (gfc_array_i16 * source)
   index_type dim;
   index_type ssize;
   const GFC_INTEGER_16 *src;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   GFC_INTEGER_16 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_i2.c

@@ -48,7 +48,7 @@ internal_pack_2 (gfc_array_i2 * source)
   index_type dim;
   index_type ssize;
   const GFC_INTEGER_2 *src;
-  GFC_INTEGER_2 *dest;
+  GFC_INTEGER_2 * restrict dest;
   GFC_INTEGER_2 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_i4.c

@@ -48,7 +48,7 @@ internal_pack_4 (gfc_array_i4 * source)
   index_type dim;
   index_type ssize;
   const GFC_INTEGER_4 *src;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   GFC_INTEGER_4 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_i8.c

@@ -48,7 +48,7 @@ internal_pack_8 (gfc_array_i8 * source)
   index_type dim;
   index_type ssize;
   const GFC_INTEGER_8 *src;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   GFC_INTEGER_8 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_r10.c

@@ -48,7 +48,7 @@ internal_pack_r10 (gfc_array_r10 * source)
   index_type dim;
   index_type ssize;
   const GFC_REAL_10 *src;
-  GFC_REAL_10 *dest;
+  GFC_REAL_10 * restrict dest;
   GFC_REAL_10 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_r16.c

@@ -48,7 +48,7 @@ internal_pack_r16 (gfc_array_r16 * source)
   index_type dim;
   index_type ssize;
   const GFC_REAL_16 *src;
-  GFC_REAL_16 *dest;
+  GFC_REAL_16 * restrict dest;
   GFC_REAL_16 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_r4.c

@@ -48,7 +48,7 @@ internal_pack_r4 (gfc_array_r4 * source)
   index_type dim;
   index_type ssize;
   const GFC_REAL_4 *src;
-  GFC_REAL_4 *dest;
+  GFC_REAL_4 * restrict dest;
   GFC_REAL_4 *destptr;
   int n;
   int packed;

libgfortran/generated/in_pack_r8.c

@@ -48,7 +48,7 @@ internal_pack_r8 (gfc_array_r8 * source)
   index_type dim;
   index_type ssize;
   const GFC_REAL_8 *src;
-  GFC_REAL_8 *dest;
+  GFC_REAL_8 * restrict dest;
   GFC_REAL_8 *destptr;
   int n;
   int packed;

libgfortran/generated/in_unpack_c10.c

@@ -45,7 +45,7 @@ internal_unpack_c10 (gfc_array_c10 * d, const GFC_COMPLEX_10 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_COMPLEX_10 *dest;
+  GFC_COMPLEX_10 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_c16.c

@@ -45,7 +45,7 @@ internal_unpack_c16 (gfc_array_c16 * d, const GFC_COMPLEX_16 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_COMPLEX_16 *dest;
+  GFC_COMPLEX_16 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_c4.c

@@ -45,7 +45,7 @@ internal_unpack_c4 (gfc_array_c4 * d, const GFC_COMPLEX_4 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_COMPLEX_4 *dest;
+  GFC_COMPLEX_4 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_c8.c

@@ -45,7 +45,7 @@ internal_unpack_c8 (gfc_array_c8 * d, const GFC_COMPLEX_8 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_COMPLEX_8 *dest;
+  GFC_COMPLEX_8 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_i1.c

@@ -45,7 +45,7 @@ internal_unpack_1 (gfc_array_i1 * d, const GFC_INTEGER_1 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_INTEGER_1 *dest;
+  GFC_INTEGER_1 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_i16.c

@@ -45,7 +45,7 @@ internal_unpack_16 (gfc_array_i16 * d, const GFC_INTEGER_16 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_i2.c

@@ -45,7 +45,7 @@ internal_unpack_2 (gfc_array_i2 * d, const GFC_INTEGER_2 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_INTEGER_2 *dest;
+  GFC_INTEGER_2 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_i4.c

@@ -45,7 +45,7 @@ internal_unpack_4 (gfc_array_i4 * d, const GFC_INTEGER_4 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_i8.c

@@ -45,7 +45,7 @@ internal_unpack_8 (gfc_array_i8 * d, const GFC_INTEGER_8 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_r10.c

@@ -45,7 +45,7 @@ internal_unpack_r10 (gfc_array_r10 * d, const GFC_REAL_10 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_REAL_10 *dest;
+  GFC_REAL_10 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_r16.c

@@ -45,7 +45,7 @@ internal_unpack_r16 (gfc_array_r16 * d, const GFC_REAL_16 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_REAL_16 *dest;
+  GFC_REAL_16 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_r4.c

@@ -45,7 +45,7 @@ internal_unpack_r4 (gfc_array_r4 * d, const GFC_REAL_4 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_REAL_4 *dest;
+  GFC_REAL_4 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/in_unpack_r8.c

@@ -45,7 +45,7 @@ internal_unpack_r8 (gfc_array_r8 * d, const GFC_REAL_8 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_REAL_8 *dest;
+  GFC_REAL_8 * restrict dest;
   int n;
 
   dest = d->data;

libgfortran/generated/maxloc0_16_i1.c

@@ -50,7 +50,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_1 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_i16.c

@@ -50,7 +50,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_16 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_i2.c

@@ -50,7 +50,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_2 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_i4.c

@@ -50,7 +50,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_4 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_i8.c

@@ -50,7 +50,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_8 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_r10.c

@@ -50,7 +50,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_10 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_r16.c

@@ -50,7 +50,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_16 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_r4.c

@@ -50,7 +50,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_4 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_16_r8.c

@@ -50,7 +50,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_8 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_i1.c

@@ -50,7 +50,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_1 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_i16.c

@@ -50,7 +50,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_16 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_i2.c

@@ -50,7 +50,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_2 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_i4.c

@@ -50,7 +50,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_4 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_i8.c

@@ -50,7 +50,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_8 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_r10.c

@@ -50,7 +50,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_10 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_r16.c

@@ -50,7 +50,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_16 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_r4.c

@@ -50,7 +50,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_4 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_4_r8.c

@@ -50,7 +50,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_8 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_i1.c

@@ -50,7 +50,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_1 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_i16.c

@@ -50,7 +50,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_16 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_i2.c

@@ -50,7 +50,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_2 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_i4.c

@@ -50,7 +50,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_4 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_i8.c

@@ -50,7 +50,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_8 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_r10.c

@@ -50,7 +50,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_10 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_r16.c

@@ -50,7 +50,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_16 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_r4.c

@@ -50,7 +50,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_4 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/maxloc0_8_r8.c

@@ -50,7 +50,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_8 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_i1.c

@@ -50,7 +50,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_1 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_i16.c

@@ -50,7 +50,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_16 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_i2.c

@@ -50,7 +50,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_2 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_i4.c

@@ -50,7 +50,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_4 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_i8.c

@@ -50,7 +50,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_8 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_r10.c

@@ -50,7 +50,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_10 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_r16.c

@@ -50,7 +50,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_16 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_r4.c

@@ -50,7 +50,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_4 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_16_r8.c

@@ -50,7 +50,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_8 *base;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_i1.c

@@ -50,7 +50,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_1 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_i16.c

@@ -50,7 +50,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_16 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_i2.c

@@ -50,7 +50,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_2 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_i4.c

@@ -50,7 +50,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_4 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_i8.c

@@ -50,7 +50,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_8 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_r10.c

@@ -50,7 +50,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_10 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_r16.c

@@ -50,7 +50,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_16 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_r4.c

@@ -50,7 +50,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_4 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_4_r8.c

@@ -50,7 +50,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_8 *base;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_i1.c

@@ -50,7 +50,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_1 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_i16.c

@@ -50,7 +50,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_16 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_i2.c

@@ -50,7 +50,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_2 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_i4.c

@@ -50,7 +50,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_4 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_i8.c

@@ -50,7 +50,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_INTEGER_8 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_r10.c

@@ -50,7 +50,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_10 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_r16.c

@@ -50,7 +50,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_16 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_r4.c

@@ -50,7 +50,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_4 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/minloc0_8_r8.c

@@ -50,7 +50,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   const GFC_REAL_8 *base;
-  GFC_INTEGER_8 *dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
 

libgfortran/generated/pack_c10.c

@@ -82,7 +82,7 @@ pack_c10 (gfc_array_c10 *ret, const gfc_array_c10 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_COMPLEX_10 *rptr;
+  GFC_COMPLEX_10 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_c16.c

@@ -82,7 +82,7 @@ pack_c16 (gfc_array_c16 *ret, const gfc_array_c16 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_COMPLEX_16 *rptr;
+  GFC_COMPLEX_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_c4.c

@@ -82,7 +82,7 @@ pack_c4 (gfc_array_c4 *ret, const gfc_array_c4 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_COMPLEX_4 *rptr;
+  GFC_COMPLEX_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_c8.c

@@ -82,7 +82,7 @@ pack_c8 (gfc_array_c8 *ret, const gfc_array_c8 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_COMPLEX_8 *rptr;
+  GFC_COMPLEX_8 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_i1.c

@@ -82,7 +82,7 @@ pack_i1 (gfc_array_i1 *ret, const gfc_array_i1 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_1 *rptr;
+  GFC_INTEGER_1 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_i16.c

@@ -82,7 +82,7 @@ pack_i16 (gfc_array_i16 *ret, const gfc_array_i16 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_16 *rptr;
+  GFC_INTEGER_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_i2.c

@@ -82,7 +82,7 @@ pack_i2 (gfc_array_i2 *ret, const gfc_array_i2 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_2 *rptr;
+  GFC_INTEGER_2 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_i4.c

@@ -82,7 +82,7 @@ pack_i4 (gfc_array_i4 *ret, const gfc_array_i4 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_4 *rptr;
+  GFC_INTEGER_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_i8.c

@@ -82,7 +82,7 @@ pack_i8 (gfc_array_i8 *ret, const gfc_array_i8 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_8 *rptr;
+  GFC_INTEGER_8 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_r10.c

@@ -82,7 +82,7 @@ pack_r10 (gfc_array_r10 *ret, const gfc_array_r10 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_REAL_10 *rptr;
+  GFC_REAL_10 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_r16.c

@@ -82,7 +82,7 @@ pack_r16 (gfc_array_r16 *ret, const gfc_array_r16 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_REAL_16 *rptr;
+  GFC_REAL_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_r4.c

@@ -82,7 +82,7 @@ pack_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_REAL_4 *rptr;
+  GFC_REAL_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/pack_r8.c

@@ -82,7 +82,7 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_REAL_8 *rptr;
+  GFC_REAL_8 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/generated/spread_c10.c

@@ -48,7 +48,7 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source,
   index_type rrank;
   index_type rs;
   GFC_COMPLEX_10 *rptr;
-  GFC_COMPLEX_10 *dest;
+  GFC_COMPLEX_10 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_c10 (gfc_array_c10 *ret, const GFC_COMPLEX_10 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_COMPLEX_10 * dest;
+  GFC_COMPLEX_10 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_c10 (gfc_array_c10 *ret, const GFC_COMPLEX_10 *source,
 }
 
 #endif
+

libgfortran/generated/spread_c16.c

@@ -48,7 +48,7 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source,
   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;
@@ -240,7 +240,7 @@ spread_scalar_c16 (gfc_array_c16 *ret, const GFC_COMPLEX_16 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_COMPLEX_16 * dest;
+  GFC_COMPLEX_16 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_c16 (gfc_array_c16 *ret, const GFC_COMPLEX_16 *source,
 }
 
 #endif
+

libgfortran/generated/spread_c4.c

@@ -48,7 +48,7 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source,
   index_type rrank;
   index_type rs;
   GFC_COMPLEX_4 *rptr;
-  GFC_COMPLEX_4 *dest;
+  GFC_COMPLEX_4 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_c4 (gfc_array_c4 *ret, const GFC_COMPLEX_4 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_COMPLEX_4 * dest;
+  GFC_COMPLEX_4 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_c4 (gfc_array_c4 *ret, const GFC_COMPLEX_4 *source,
 }
 
 #endif
+

libgfortran/generated/spread_c8.c

@@ -48,7 +48,7 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source,
   index_type rrank;
   index_type rs;
   GFC_COMPLEX_8 *rptr;
-  GFC_COMPLEX_8 *dest;
+  GFC_COMPLEX_8 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_c8 (gfc_array_c8 *ret, const GFC_COMPLEX_8 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_COMPLEX_8 * dest;
+  GFC_COMPLEX_8 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_c8 (gfc_array_c8 *ret, const GFC_COMPLEX_8 *source,
 }
 
 #endif
+

libgfortran/generated/spread_i1.c

@@ -48,7 +48,7 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source,
   index_type rrank;
   index_type rs;
   GFC_INTEGER_1 *rptr;
-  GFC_INTEGER_1 *dest;
+  GFC_INTEGER_1 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_i1 (gfc_array_i1 *ret, const GFC_INTEGER_1 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_INTEGER_1 * dest;
+  GFC_INTEGER_1 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_i1 (gfc_array_i1 *ret, const GFC_INTEGER_1 *source,
 }
 
 #endif
+

libgfortran/generated/spread_i16.c

@@ -48,7 +48,7 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source,
   index_type rrank;
   index_type rs;
   GFC_INTEGER_16 *rptr;
-  GFC_INTEGER_16 *dest;
+  GFC_INTEGER_16 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_i16 (gfc_array_i16 *ret, const GFC_INTEGER_16 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_INTEGER_16 * dest;
+  GFC_INTEGER_16 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_i16 (gfc_array_i16 *ret, const GFC_INTEGER_16 *source,
 }
 
 #endif
+

libgfortran/generated/spread_i2.c

@@ -48,7 +48,7 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source,
   index_type rrank;
   index_type rs;
   GFC_INTEGER_2 *rptr;
-  GFC_INTEGER_2 *dest;
+  GFC_INTEGER_2 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_i2 (gfc_array_i2 *ret, const GFC_INTEGER_2 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_INTEGER_2 * dest;
+  GFC_INTEGER_2 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_i2 (gfc_array_i2 *ret, const GFC_INTEGER_2 *source,
 }
 
 #endif
+

libgfortran/generated/spread_i4.c

@@ -48,7 +48,7 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source,
   index_type rrank;
   index_type rs;
   GFC_INTEGER_4 *rptr;
-  GFC_INTEGER_4 *dest;
+  GFC_INTEGER_4 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_i4 (gfc_array_i4 *ret, const GFC_INTEGER_4 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_INTEGER_4 * dest;
+  GFC_INTEGER_4 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_i4 (gfc_array_i4 *ret, const GFC_INTEGER_4 *source,
 }
 
 #endif
+

libgfortran/generated/spread_i8.c

@@ -48,7 +48,7 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source,
   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;
@@ -240,7 +240,7 @@ spread_scalar_i8 (gfc_array_i8 *ret, const GFC_INTEGER_8 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_INTEGER_8 * dest;
+  GFC_INTEGER_8 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_i8 (gfc_array_i8 *ret, const GFC_INTEGER_8 *source,
 }
 
 #endif
+

libgfortran/generated/spread_r10.c

@@ -48,7 +48,7 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source,
   index_type rrank;
   index_type rs;
   GFC_REAL_10 *rptr;
-  GFC_REAL_10 *dest;
+  GFC_REAL_10 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_r10 (gfc_array_r10 *ret, const GFC_REAL_10 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_REAL_10 * dest;
+  GFC_REAL_10 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_r10 (gfc_array_r10 *ret, const GFC_REAL_10 *source,
 }
 
 #endif
+

libgfortran/generated/spread_r16.c

@@ -48,7 +48,7 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source,
   index_type rrank;
   index_type rs;
   GFC_REAL_16 *rptr;
-  GFC_REAL_16 *dest;
+  GFC_REAL_16 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_r16 (gfc_array_r16 *ret, const GFC_REAL_16 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_REAL_16 * dest;
+  GFC_REAL_16 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_r16 (gfc_array_r16 *ret, const GFC_REAL_16 *source,
 }
 
 #endif
+

libgfortran/generated/spread_r4.c

@@ -48,7 +48,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
   index_type rrank;
   index_type rs;
   GFC_REAL_4 *rptr;
-  GFC_REAL_4 *dest;
+  GFC_REAL_4 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_r4 (gfc_array_r4 *ret, const GFC_REAL_4 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_REAL_4 * dest;
+  GFC_REAL_4 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_r4 (gfc_array_r4 *ret, const GFC_REAL_4 *source,
 }
 
 #endif
+

libgfortran/generated/spread_r8.c

@@ -48,7 +48,7 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source,
   index_type rrank;
   index_type rs;
   GFC_REAL_8 *rptr;
-  GFC_REAL_8 *dest;
+  GFC_REAL_8 * restrict dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;
@@ -240,7 +240,7 @@ spread_scalar_r8 (gfc_array_r8 *ret, const GFC_REAL_8 *source,
 {
   int n;
   int ncopies = pncopies;
-  GFC_REAL_8 * dest;
+  GFC_REAL_8 * restrict dest;
   index_type stride;
 
   if (GFC_DESCRIPTOR_RANK (ret) != 1)
@@ -275,3 +275,4 @@ spread_scalar_r8 (gfc_array_r8 *ret, const GFC_REAL_8 *source,
 }
 
 #endif
+

libgfortran/generated/transpose_c10.c

@@ -44,7 +44,7 @@ transpose_c10 (gfc_array_c10 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_COMPLEX_10 *rptr;
+  GFC_COMPLEX_10 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_COMPLEX_10 *sptr;

libgfortran/generated/transpose_c16.c

@@ -44,7 +44,7 @@ transpose_c16 (gfc_array_c16 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_COMPLEX_16 *rptr;
+  GFC_COMPLEX_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_COMPLEX_16 *sptr;

libgfortran/generated/transpose_c4.c

@@ -44,7 +44,7 @@ transpose_c4 (gfc_array_c4 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_COMPLEX_4 *rptr;
+  GFC_COMPLEX_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_COMPLEX_4 *sptr;

libgfortran/generated/transpose_c8.c

@@ -44,7 +44,7 @@ transpose_c8 (gfc_array_c8 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_COMPLEX_8 *rptr;
+  GFC_COMPLEX_8 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_COMPLEX_8 *sptr;

libgfortran/generated/transpose_i16.c

@@ -44,7 +44,7 @@ transpose_i16 (gfc_array_i16 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_INTEGER_16 *rptr;
+  GFC_INTEGER_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_INTEGER_16 *sptr;

libgfortran/generated/transpose_i4.c

@@ -44,7 +44,7 @@ transpose_i4 (gfc_array_i4 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_INTEGER_4 *rptr;
+  GFC_INTEGER_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_INTEGER_4 *sptr;

libgfortran/generated/transpose_i8.c

@@ -44,7 +44,7 @@ transpose_i8 (gfc_array_i8 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_INTEGER_8 *rptr;
+  GFC_INTEGER_8 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_INTEGER_8 *sptr;

libgfortran/generated/transpose_r10.c

@@ -44,7 +44,7 @@ transpose_r10 (gfc_array_r10 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_REAL_10 *rptr;
+  GFC_REAL_10 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_REAL_10 *sptr;

libgfortran/generated/transpose_r16.c

@@ -44,7 +44,7 @@ transpose_r16 (gfc_array_r16 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_REAL_16 *rptr;
+  GFC_REAL_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_REAL_16 *sptr;

libgfortran/generated/transpose_r4.c

@@ -44,7 +44,7 @@ transpose_r4 (gfc_array_r4 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_REAL_4 *rptr;
+  GFC_REAL_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_REAL_4 *sptr;

libgfortran/generated/transpose_r8.c

@@ -44,7 +44,7 @@ transpose_r8 (gfc_array_r8 * const restrict ret,
 {
   /* r.* indicates the return array.  */
   index_type rxstride, rystride;
-  GFC_REAL_8 *rptr;
+  GFC_REAL_8 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sxstride, systride;
   const GFC_REAL_8 *sptr;

libgfortran/generated/unpack_c10.c

@@ -45,7 +45,7 @@ unpack0_c10 (gfc_array_c10 *ret, const gfc_array_c10 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_10 *rptr;
+  GFC_COMPLEX_10 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_10 *vptr;
@@ -188,7 +188,7 @@ unpack1_c10 (gfc_array_c10 *ret, const gfc_array_c10 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_10 *rptr;
+  GFC_COMPLEX_10 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_10 *vptr;

libgfortran/generated/unpack_c16.c

@@ -45,7 +45,7 @@ unpack0_c16 (gfc_array_c16 *ret, const gfc_array_c16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_16 *rptr;
+  GFC_COMPLEX_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_16 *vptr;
@@ -188,7 +188,7 @@ unpack1_c16 (gfc_array_c16 *ret, const gfc_array_c16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_16 *rptr;
+  GFC_COMPLEX_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_16 *vptr;

libgfortran/generated/unpack_c4.c

@@ -45,7 +45,7 @@ unpack0_c4 (gfc_array_c4 *ret, const gfc_array_c4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_4 *rptr;
+  GFC_COMPLEX_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_4 *vptr;
@@ -188,7 +188,7 @@ unpack1_c4 (gfc_array_c4 *ret, const gfc_array_c4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_4 *rptr;
+  GFC_COMPLEX_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_4 *vptr;

libgfortran/generated/unpack_c8.c

@@ -45,7 +45,7 @@ unpack0_c8 (gfc_array_c8 *ret, const gfc_array_c8 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_8 *rptr;
+  GFC_COMPLEX_8 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_8 *vptr;
@@ -188,7 +188,7 @@ unpack1_c8 (gfc_array_c8 *ret, const gfc_array_c8 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_COMPLEX_8 *rptr;
+  GFC_COMPLEX_8 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_COMPLEX_8 *vptr;

libgfortran/generated/unpack_i1.c

@@ -45,7 +45,7 @@ unpack0_i1 (gfc_array_i1 *ret, const gfc_array_i1 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_1 *rptr;
+  GFC_INTEGER_1 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_1 *vptr;
@@ -188,7 +188,7 @@ unpack1_i1 (gfc_array_i1 *ret, const gfc_array_i1 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_1 *rptr;
+  GFC_INTEGER_1 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_1 *vptr;

libgfortran/generated/unpack_i16.c

@@ -45,7 +45,7 @@ unpack0_i16 (gfc_array_i16 *ret, const gfc_array_i16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_16 *rptr;
+  GFC_INTEGER_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_16 *vptr;
@@ -188,7 +188,7 @@ unpack1_i16 (gfc_array_i16 *ret, const gfc_array_i16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_16 *rptr;
+  GFC_INTEGER_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_16 *vptr;

libgfortran/generated/unpack_i2.c

@@ -45,7 +45,7 @@ unpack0_i2 (gfc_array_i2 *ret, const gfc_array_i2 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_2 *rptr;
+  GFC_INTEGER_2 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_2 *vptr;
@@ -188,7 +188,7 @@ unpack1_i2 (gfc_array_i2 *ret, const gfc_array_i2 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_2 *rptr;
+  GFC_INTEGER_2 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_2 *vptr;

libgfortran/generated/unpack_i4.c

@@ -45,7 +45,7 @@ unpack0_i4 (gfc_array_i4 *ret, const gfc_array_i4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_4 *rptr;
+  GFC_INTEGER_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_4 *vptr;
@@ -188,7 +188,7 @@ unpack1_i4 (gfc_array_i4 *ret, const gfc_array_i4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_4 *rptr;
+  GFC_INTEGER_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_4 *vptr;

libgfortran/generated/unpack_i8.c

@@ -45,7 +45,7 @@ unpack0_i8 (gfc_array_i8 *ret, const gfc_array_i8 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_8 *rptr;
+  GFC_INTEGER_8 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_8 *vptr;
@@ -188,7 +188,7 @@ unpack1_i8 (gfc_array_i8 *ret, const gfc_array_i8 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_INTEGER_8 *rptr;
+  GFC_INTEGER_8 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_INTEGER_8 *vptr;

libgfortran/generated/unpack_r10.c

@@ -45,7 +45,7 @@ unpack0_r10 (gfc_array_r10 *ret, const gfc_array_r10 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_10 *rptr;
+  GFC_REAL_10 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_10 *vptr;
@@ -188,7 +188,7 @@ unpack1_r10 (gfc_array_r10 *ret, const gfc_array_r10 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_10 *rptr;
+  GFC_REAL_10 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_10 *vptr;

libgfortran/generated/unpack_r16.c

@@ -45,7 +45,7 @@ unpack0_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_16 *rptr;
+  GFC_REAL_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_16 *vptr;
@@ -188,7 +188,7 @@ unpack1_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_16 *rptr;
+  GFC_REAL_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_16 *vptr;

libgfortran/generated/unpack_r4.c

@@ -45,7 +45,7 @@ unpack0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_4 *rptr;
+  GFC_REAL_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_4 *vptr;
@@ -188,7 +188,7 @@ unpack1_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_4 *rptr;
+  GFC_REAL_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_4 *vptr;

libgfortran/generated/unpack_r8.c

@@ -45,7 +45,7 @@ unpack0_r8 (gfc_array_r8 *ret, const gfc_array_r8 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_8 *rptr;
+  GFC_REAL_8 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_8 *vptr;
@@ -188,7 +188,7 @@ unpack1_r8 (gfc_array_r8 *ret, const gfc_array_r8 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_8 *rptr;
+  GFC_REAL_8 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_8 *vptr;

libgfortran/intrinsics/eoshift0.c

@@ -45,7 +45,7 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type roffset;
-  char *rptr;
+  char * restrict rptr;
   char *dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];

libgfortran/intrinsics/eoshift2.c

@@ -45,7 +45,7 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type roffset;
-  char *rptr;
+  char * restrict rptr;
   char *dest;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];

libgfortran/intrinsics/pack_generic.c

@@ -80,7 +80,7 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  char *rptr;
+  char * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;

libgfortran/intrinsics/reshape_generic.c

@@ -49,7 +49,7 @@ reshape_internal (parray *ret, parray *source, shape_type *shape,
   index_type rsize;
   index_type rs;
   index_type rex;
-  char *rptr;
+  char * restrict rptr;
   /* s.* indicates the source array.  */
   index_type scount[GFC_MAX_DIMENSIONS];
   index_type sextent[GFC_MAX_DIMENSIONS];

libgfortran/intrinsics/reshape_packed.c

@@ -35,7 +35,7 @@ Boston, MA 02110-1301, USA.  */
 /* Reshape function where all arrays are packed.  Basically just memcpy.  */
 
 void
-reshape_packed (char * ret, index_type rsize, const char * source,
+reshape_packed (char * restrict ret, index_type rsize, const char * source,
 		index_type ssize, const char * pad, index_type psize)
 {
   index_type size;

libgfortran/intrinsics/unpack_generic.c

@@ -42,7 +42,7 @@ unpack_internal (gfc_array_char *ret, const gfc_array_char *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  char *rptr;
+  char * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   char *vptr;

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;

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;

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;
 

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;

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;

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;

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)

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;

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;