Skip to content

R
riscv-gcc-1
Commit 5863aacf by Thomas Koenig
Options

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
parent 33ea7fa0
Showing with 192 additions and 179 deletions
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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment