From: tkoenig Date: Sun, 18 May 2008 20:39:04 +0000 (+0000) Subject: 2008-05-18 Thomas Koenig X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=9d259edfc23e345e6acb9bb567c8802fd9a01227;hp=3526d88eb01c830d5d0eaaffd5d318e740979344 2008-05-18 Thomas Koenig * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135512 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/libgfortran/generated/eoshift1_16.c b/libgfortran/generated/eoshift1_16.c index 628fa0ccca3..e16db209e3d 100644 --- a/libgfortran/generated/eoshift1_16.c +++ b/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; diff --git a/libgfortran/generated/eoshift1_4.c b/libgfortran/generated/eoshift1_4.c index 6253c6f2cf0..11cc71fc917 100644 --- a/libgfortran/generated/eoshift1_4.c +++ b/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; diff --git a/libgfortran/generated/eoshift1_8.c b/libgfortran/generated/eoshift1_8.c index 983e1bf7523..4b7d0e04f31 100644 --- a/libgfortran/generated/eoshift1_8.c +++ b/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; diff --git a/libgfortran/generated/eoshift3_16.c b/libgfortran/generated/eoshift3_16.c index 0898455cb1b..1dda668d47b 100644 --- a/libgfortran/generated/eoshift3_16.c +++ b/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; diff --git a/libgfortran/generated/eoshift3_4.c b/libgfortran/generated/eoshift3_4.c index 7f35a4c80f8..aa46f7c5a10 100644 --- a/libgfortran/generated/eoshift3_4.c +++ b/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; diff --git a/libgfortran/generated/eoshift3_8.c b/libgfortran/generated/eoshift3_8.c index 1792507f6fb..04e81b8eb39 100644 --- a/libgfortran/generated/eoshift3_8.c +++ b/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; diff --git a/libgfortran/generated/in_pack_c10.c b/libgfortran/generated/in_pack_c10.c index 60029536bf2..594393b8cb2 100644 --- a/libgfortran/generated/in_pack_c10.c +++ b/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; diff --git a/libgfortran/generated/in_pack_c16.c b/libgfortran/generated/in_pack_c16.c index 560a574df91..846545d9ad0 100644 --- a/libgfortran/generated/in_pack_c16.c +++ b/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; diff --git a/libgfortran/generated/in_pack_c4.c b/libgfortran/generated/in_pack_c4.c index ea608d7b8b4..bf1a4d6c18e 100644 --- a/libgfortran/generated/in_pack_c4.c +++ b/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; diff --git a/libgfortran/generated/in_pack_c8.c b/libgfortran/generated/in_pack_c8.c index 7e8203ee933..3462f5c57d2 100644 --- a/libgfortran/generated/in_pack_c8.c +++ b/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; diff --git a/libgfortran/generated/in_pack_i1.c b/libgfortran/generated/in_pack_i1.c index b5be016cf37..840918f6e64 100644 --- a/libgfortran/generated/in_pack_i1.c +++ b/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; diff --git a/libgfortran/generated/in_pack_i16.c b/libgfortran/generated/in_pack_i16.c index eb729b6d38c..4620b19fb58 100644 --- a/libgfortran/generated/in_pack_i16.c +++ b/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; diff --git a/libgfortran/generated/in_pack_i2.c b/libgfortran/generated/in_pack_i2.c index 240409a357e..4650f6a9f8c 100644 --- a/libgfortran/generated/in_pack_i2.c +++ b/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; diff --git a/libgfortran/generated/in_pack_i4.c b/libgfortran/generated/in_pack_i4.c index 0e3bf2302b7..b773a0cf4b6 100644 --- a/libgfortran/generated/in_pack_i4.c +++ b/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; diff --git a/libgfortran/generated/in_pack_i8.c b/libgfortran/generated/in_pack_i8.c index e2337ffdb2b..99677256525 100644 --- a/libgfortran/generated/in_pack_i8.c +++ b/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; diff --git a/libgfortran/generated/in_pack_r10.c b/libgfortran/generated/in_pack_r10.c index 892c6bb9dc5..d8dfcc6da6e 100644 --- a/libgfortran/generated/in_pack_r10.c +++ b/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; diff --git a/libgfortran/generated/in_pack_r16.c b/libgfortran/generated/in_pack_r16.c index 15ab585050f..95cdc9c7520 100644 --- a/libgfortran/generated/in_pack_r16.c +++ b/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; diff --git a/libgfortran/generated/in_pack_r4.c b/libgfortran/generated/in_pack_r4.c index a1f352c4fdd..eb68180e51c 100644 --- a/libgfortran/generated/in_pack_r4.c +++ b/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; diff --git a/libgfortran/generated/in_pack_r8.c b/libgfortran/generated/in_pack_r8.c index 76cee7afe86..cfa861ca167 100644 --- a/libgfortran/generated/in_pack_r8.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_c10.c b/libgfortran/generated/in_unpack_c10.c index 078fab0cd38..2d971bf14cc 100644 --- a/libgfortran/generated/in_unpack_c10.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_c16.c b/libgfortran/generated/in_unpack_c16.c index 3adc947b673..f09b0b44faf 100644 --- a/libgfortran/generated/in_unpack_c16.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_c4.c b/libgfortran/generated/in_unpack_c4.c index 32bcddb7c9e..ed77a700ebf 100644 --- a/libgfortran/generated/in_unpack_c4.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_c8.c b/libgfortran/generated/in_unpack_c8.c index 5c88e975672..e1fada33802 100644 --- a/libgfortran/generated/in_unpack_c8.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_i1.c b/libgfortran/generated/in_unpack_i1.c index 4b455b73d28..0e7ab116125 100644 --- a/libgfortran/generated/in_unpack_i1.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_i16.c b/libgfortran/generated/in_unpack_i16.c index 82f535eb3ba..36584859dbe 100644 --- a/libgfortran/generated/in_unpack_i16.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_i2.c b/libgfortran/generated/in_unpack_i2.c index 91e6fca9ded..246c3f3999d 100644 --- a/libgfortran/generated/in_unpack_i2.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_i4.c b/libgfortran/generated/in_unpack_i4.c index 8d808db6686..d0c0f15640e 100644 --- a/libgfortran/generated/in_unpack_i4.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_i8.c b/libgfortran/generated/in_unpack_i8.c index 39482b82705..5f2975e7432 100644 --- a/libgfortran/generated/in_unpack_i8.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_r10.c b/libgfortran/generated/in_unpack_r10.c index 5514763146f..66ebe82663d 100644 --- a/libgfortran/generated/in_unpack_r10.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_r16.c b/libgfortran/generated/in_unpack_r16.c index 3abe19df076..722dee76af5 100644 --- a/libgfortran/generated/in_unpack_r16.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_r4.c b/libgfortran/generated/in_unpack_r4.c index c3c27425095..65bdb078c96 100644 --- a/libgfortran/generated/in_unpack_r4.c +++ b/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; diff --git a/libgfortran/generated/in_unpack_r8.c b/libgfortran/generated/in_unpack_r8.c index 9ece8b0a4d2..70c11b5f54f 100644 --- a/libgfortran/generated/in_unpack_r8.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c index 7fc44432fa4..6be5448fc63 100644 --- a/libgfortran/generated/maxloc0_16_i1.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c index 29eb3ccecf1..777d3d02e9d 100644 --- a/libgfortran/generated/maxloc0_16_i16.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c index 30b693c1068..11b14787962 100644 --- a/libgfortran/generated/maxloc0_16_i2.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c index 03f2794f30b..0c1ff86e9b0 100644 --- a/libgfortran/generated/maxloc0_16_i4.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c index be18af39ce8..b2098a73701 100644 --- a/libgfortran/generated/maxloc0_16_i8.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c index 48ba77e8732..1773c679d6d 100644 --- a/libgfortran/generated/maxloc0_16_r10.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c index 9d2ce087015..3eeaefa0a0b 100644 --- a/libgfortran/generated/maxloc0_16_r16.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c index e908dadcdd0..09e97bcb378 100644 --- a/libgfortran/generated/maxloc0_16_r4.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c index cb01745a44c..764cb57a16e 100644 --- a/libgfortran/generated/maxloc0_16_r8.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c index 21ab578c402..45d175d00af 100644 --- a/libgfortran/generated/maxloc0_4_i1.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c index 6803420884c..a34654066f8 100644 --- a/libgfortran/generated/maxloc0_4_i16.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c index 27cccae9784..36a1da39290 100644 --- a/libgfortran/generated/maxloc0_4_i2.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index 650da03a1ed..398ffb55dec 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index 48e1d3e5215..dcf74810989 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c index 05e31659238..1f22f07e86c 100644 --- a/libgfortran/generated/maxloc0_4_r10.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c index 38cf3527282..71f171c64bb 100644 --- a/libgfortran/generated/maxloc0_4_r16.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index 5ab9429028e..d52e4836077 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index 2658e4a5b9a..50304818801 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c index ce71eb1ebbd..1eabde6883d 100644 --- a/libgfortran/generated/maxloc0_8_i1.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c index e808a91cf59..6630c06171f 100644 --- a/libgfortran/generated/maxloc0_8_i16.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c index 8bc1961ea3a..bc438e55063 100644 --- a/libgfortran/generated/maxloc0_8_i2.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index 8b6d2128a5d..7cac2815702 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 121827eabb3..15798f83150 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c index 8fb4b13eb69..fc393e9552c 100644 --- a/libgfortran/generated/maxloc0_8_r10.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c index 7a5a4f354af..99d31ff3077 100644 --- a/libgfortran/generated/maxloc0_8_r16.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index 8e02dcb7718..ced61aec3b9 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/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; diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index c539df0596d..8222c5c02f8 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c index d0d6903bf41..41924a3999a 100644 --- a/libgfortran/generated/minloc0_16_i1.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c index 59c1d0abbf8..655d587b8c8 100644 --- a/libgfortran/generated/minloc0_16_i16.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c index 0df6bd189c5..bca08a5f6a3 100644 --- a/libgfortran/generated/minloc0_16_i2.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c index 48bb60be737..50105af002a 100644 --- a/libgfortran/generated/minloc0_16_i4.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c index b92f7e43031..d12663f1436 100644 --- a/libgfortran/generated/minloc0_16_i8.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c index 6480a8dd681..9c93f144cd7 100644 --- a/libgfortran/generated/minloc0_16_r10.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c index 325c8f68d50..83624d2e436 100644 --- a/libgfortran/generated/minloc0_16_r16.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c index 2376d4034b6..4225805d991 100644 --- a/libgfortran/generated/minloc0_16_r4.c +++ b/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; diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c index e72abab2c5b..74c5358e4fc 100644 --- a/libgfortran/generated/minloc0_16_r8.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c index ce045a28e73..53ddea210c6 100644 --- a/libgfortran/generated/minloc0_4_i1.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c index 9ae856e686c..88c5a0ab542 100644 --- a/libgfortran/generated/minloc0_4_i16.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c index c33e99cfedb..2db4557979f 100644 --- a/libgfortran/generated/minloc0_4_i2.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index 9d7eda6c839..49e74f527e9 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index 046e040daf0..2be844fec89 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c index 8f7b9247868..a1d390c00b7 100644 --- a/libgfortran/generated/minloc0_4_r10.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c index 1539192ca15..e4ecd12febc 100644 --- a/libgfortran/generated/minloc0_4_r16.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index 86ffdb8c6ef..a115c017d17 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/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; diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index e78cdd898f5..6162cfd2884 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c index 5872d85560d..b755ed7348b 100644 --- a/libgfortran/generated/minloc0_8_i1.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c index b56409a050c..72906034904 100644 --- a/libgfortran/generated/minloc0_8_i16.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c index 63cd947c42d..70cc8705eb5 100644 --- a/libgfortran/generated/minloc0_8_i2.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index 5092f89f706..5cd60c3d18e 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index e1b99ef9f94..2c2c2d235cb 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c index 600b3aa6af0..2b2f3cf1c74 100644 --- a/libgfortran/generated/minloc0_8_r10.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c index fa4b5cd1d56..a93e1da5d3b 100644 --- a/libgfortran/generated/minloc0_8_r16.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index 1347f15c8a8..45d2ebabf1b 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/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; diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index 6a7b2f0d6b0..f4041155e0c 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/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; diff --git a/libgfortran/generated/pack_c10.c b/libgfortran/generated/pack_c10.c index 0bad32385d8..7aad775131a 100644 --- a/libgfortran/generated/pack_c10.c +++ b/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; diff --git a/libgfortran/generated/pack_c16.c b/libgfortran/generated/pack_c16.c index a0c87ec8a26..6249ef4480a 100644 --- a/libgfortran/generated/pack_c16.c +++ b/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; diff --git a/libgfortran/generated/pack_c4.c b/libgfortran/generated/pack_c4.c index 2fb6a20ad9c..a450a7386fa 100644 --- a/libgfortran/generated/pack_c4.c +++ b/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; diff --git a/libgfortran/generated/pack_c8.c b/libgfortran/generated/pack_c8.c index 1a4e78ec792..d9ae193d7d7 100644 --- a/libgfortran/generated/pack_c8.c +++ b/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; diff --git a/libgfortran/generated/pack_i1.c b/libgfortran/generated/pack_i1.c index 44c6c677e44..1f8259769bd 100644 --- a/libgfortran/generated/pack_i1.c +++ b/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; diff --git a/libgfortran/generated/pack_i16.c b/libgfortran/generated/pack_i16.c index e9c15437977..a175d02d34d 100644 --- a/libgfortran/generated/pack_i16.c +++ b/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; diff --git a/libgfortran/generated/pack_i2.c b/libgfortran/generated/pack_i2.c index 51380c26ba7..1788b6c9a7f 100644 --- a/libgfortran/generated/pack_i2.c +++ b/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; diff --git a/libgfortran/generated/pack_i4.c b/libgfortran/generated/pack_i4.c index 861670d6865..32ec8e30881 100644 --- a/libgfortran/generated/pack_i4.c +++ b/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; diff --git a/libgfortran/generated/pack_i8.c b/libgfortran/generated/pack_i8.c index c547f3809f2..49b34cad220 100644 --- a/libgfortran/generated/pack_i8.c +++ b/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; diff --git a/libgfortran/generated/pack_r10.c b/libgfortran/generated/pack_r10.c index 4b8c5784aef..3218bb342a5 100644 --- a/libgfortran/generated/pack_r10.c +++ b/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; diff --git a/libgfortran/generated/pack_r16.c b/libgfortran/generated/pack_r16.c index a691f7c4041..7415814951e 100644 --- a/libgfortran/generated/pack_r16.c +++ b/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; diff --git a/libgfortran/generated/pack_r4.c b/libgfortran/generated/pack_r4.c index c008aadf4d4..c5871414c1c 100644 --- a/libgfortran/generated/pack_r4.c +++ b/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; diff --git a/libgfortran/generated/pack_r8.c b/libgfortran/generated/pack_r8.c index 7b360479628..f1a6a684bfe 100644 --- a/libgfortran/generated/pack_r8.c +++ b/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; diff --git a/libgfortran/generated/spread_c10.c b/libgfortran/generated/spread_c10.c index 76a361406c1..868a75f898f 100644 --- a/libgfortran/generated/spread_c10.c +++ b/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 + diff --git a/libgfortran/generated/spread_c16.c b/libgfortran/generated/spread_c16.c index 0ea57561849..5aa45e6d0f5 100644 --- a/libgfortran/generated/spread_c16.c +++ b/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 + diff --git a/libgfortran/generated/spread_c4.c b/libgfortran/generated/spread_c4.c index f86da84a58f..f1b16e7e132 100644 --- a/libgfortran/generated/spread_c4.c +++ b/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 + diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c index 7a3f4dfd210..ed79c2844a5 100644 --- a/libgfortran/generated/spread_c8.c +++ b/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 + diff --git a/libgfortran/generated/spread_i1.c b/libgfortran/generated/spread_i1.c index 396a521eab8..b5798dff5a8 100644 --- a/libgfortran/generated/spread_i1.c +++ b/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 + diff --git a/libgfortran/generated/spread_i16.c b/libgfortran/generated/spread_i16.c index 55993424054..0f6002f682a 100644 --- a/libgfortran/generated/spread_i16.c +++ b/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 + diff --git a/libgfortran/generated/spread_i2.c b/libgfortran/generated/spread_i2.c index d8ac9dc9af1..ac49aa9d999 100644 --- a/libgfortran/generated/spread_i2.c +++ b/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 + diff --git a/libgfortran/generated/spread_i4.c b/libgfortran/generated/spread_i4.c index c0890b666a1..bef7a37b6b0 100644 --- a/libgfortran/generated/spread_i4.c +++ b/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 + diff --git a/libgfortran/generated/spread_i8.c b/libgfortran/generated/spread_i8.c index b0032bf64dd..db5572aff67 100644 --- a/libgfortran/generated/spread_i8.c +++ b/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 + diff --git a/libgfortran/generated/spread_r10.c b/libgfortran/generated/spread_r10.c index 404aaa4654c..9d5afc22504 100644 --- a/libgfortran/generated/spread_r10.c +++ b/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 + diff --git a/libgfortran/generated/spread_r16.c b/libgfortran/generated/spread_r16.c index 122673305e8..0b4d3ca22c4 100644 --- a/libgfortran/generated/spread_r16.c +++ b/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 + diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index 1569dbc09f3..191203a6d56 100644 --- a/libgfortran/generated/spread_r4.c +++ b/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 + diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c index c028f804079..a710111c9df 100644 --- a/libgfortran/generated/spread_r8.c +++ b/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 + diff --git a/libgfortran/generated/transpose_c10.c b/libgfortran/generated/transpose_c10.c index f809f01eb0e..72235967b34 100644 --- a/libgfortran/generated/transpose_c10.c +++ b/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; diff --git a/libgfortran/generated/transpose_c16.c b/libgfortran/generated/transpose_c16.c index 06adc81d9f1..e3863f1f2ad 100644 --- a/libgfortran/generated/transpose_c16.c +++ b/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; diff --git a/libgfortran/generated/transpose_c4.c b/libgfortran/generated/transpose_c4.c index 4a2a8c06d93..cdb5a9a06e1 100644 --- a/libgfortran/generated/transpose_c4.c +++ b/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; diff --git a/libgfortran/generated/transpose_c8.c b/libgfortran/generated/transpose_c8.c index cdfb6c94068..91fb1042499 100644 --- a/libgfortran/generated/transpose_c8.c +++ b/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; diff --git a/libgfortran/generated/transpose_i16.c b/libgfortran/generated/transpose_i16.c index 23183bb27e1..b7564ad17aa 100644 --- a/libgfortran/generated/transpose_i16.c +++ b/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; diff --git a/libgfortran/generated/transpose_i4.c b/libgfortran/generated/transpose_i4.c index f426ddf9daa..51472fd09a0 100644 --- a/libgfortran/generated/transpose_i4.c +++ b/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; diff --git a/libgfortran/generated/transpose_i8.c b/libgfortran/generated/transpose_i8.c index dec4f6b3865..37428ddacbd 100644 --- a/libgfortran/generated/transpose_i8.c +++ b/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; diff --git a/libgfortran/generated/transpose_r10.c b/libgfortran/generated/transpose_r10.c index 6f01d562fab..32704166b1d 100644 --- a/libgfortran/generated/transpose_r10.c +++ b/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; diff --git a/libgfortran/generated/transpose_r16.c b/libgfortran/generated/transpose_r16.c index 1991e521013..858b3a56555 100644 --- a/libgfortran/generated/transpose_r16.c +++ b/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; diff --git a/libgfortran/generated/transpose_r4.c b/libgfortran/generated/transpose_r4.c index 257d6787f36..1968302dd35 100644 --- a/libgfortran/generated/transpose_r4.c +++ b/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; diff --git a/libgfortran/generated/transpose_r8.c b/libgfortran/generated/transpose_r8.c index 5430845391d..bbd87649126 100644 --- a/libgfortran/generated/transpose_r8.c +++ b/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; diff --git a/libgfortran/generated/unpack_c10.c b/libgfortran/generated/unpack_c10.c index e6f3ecf2652..5881ece0eeb 100644 --- a/libgfortran/generated/unpack_c10.c +++ b/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; diff --git a/libgfortran/generated/unpack_c16.c b/libgfortran/generated/unpack_c16.c index 2d82a10fc84..7941ff9289a 100644 --- a/libgfortran/generated/unpack_c16.c +++ b/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; diff --git a/libgfortran/generated/unpack_c4.c b/libgfortran/generated/unpack_c4.c index 472ce48c26e..3ef95147ab8 100644 --- a/libgfortran/generated/unpack_c4.c +++ b/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; diff --git a/libgfortran/generated/unpack_c8.c b/libgfortran/generated/unpack_c8.c index 62116b78bb2..bc32b27016e 100644 --- a/libgfortran/generated/unpack_c8.c +++ b/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; diff --git a/libgfortran/generated/unpack_i1.c b/libgfortran/generated/unpack_i1.c index 46a9d4eb6f2..17090328eb5 100644 --- a/libgfortran/generated/unpack_i1.c +++ b/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; diff --git a/libgfortran/generated/unpack_i16.c b/libgfortran/generated/unpack_i16.c index 0fbd7449ffe..2adf0603d42 100644 --- a/libgfortran/generated/unpack_i16.c +++ b/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; diff --git a/libgfortran/generated/unpack_i2.c b/libgfortran/generated/unpack_i2.c index 096c7858de1..b83b8757f76 100644 --- a/libgfortran/generated/unpack_i2.c +++ b/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; diff --git a/libgfortran/generated/unpack_i4.c b/libgfortran/generated/unpack_i4.c index 08f197c376c..82b1e650330 100644 --- a/libgfortran/generated/unpack_i4.c +++ b/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; diff --git a/libgfortran/generated/unpack_i8.c b/libgfortran/generated/unpack_i8.c index 0847c1fa0da..ebd9fc7c48c 100644 --- a/libgfortran/generated/unpack_i8.c +++ b/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; diff --git a/libgfortran/generated/unpack_r10.c b/libgfortran/generated/unpack_r10.c index 694d2c542ee..a57c3bf926f 100644 --- a/libgfortran/generated/unpack_r10.c +++ b/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; diff --git a/libgfortran/generated/unpack_r16.c b/libgfortran/generated/unpack_r16.c index 65121c1b90e..6cbb7b24ce0 100644 --- a/libgfortran/generated/unpack_r16.c +++ b/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; diff --git a/libgfortran/generated/unpack_r4.c b/libgfortran/generated/unpack_r4.c index b9983182b6f..d20856cf641 100644 --- a/libgfortran/generated/unpack_r4.c +++ b/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; diff --git a/libgfortran/generated/unpack_r8.c b/libgfortran/generated/unpack_r8.c index cccf7596f9b..f3223c45af8 100644 --- a/libgfortran/generated/unpack_r8.c +++ b/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; diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index 594944d4508..9946b4877e3 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/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]; diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index bfbcc3e6a80..ca870d245fb 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/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]; diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 8f1e08cc2df..6e3d2cb19c6 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/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; diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index ad823513ec4..de1e9426756 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/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]; diff --git a/libgfortran/intrinsics/reshape_packed.c b/libgfortran/intrinsics/reshape_packed.c index cf61f31d4d1..fdc794419fa 100644 --- a/libgfortran/intrinsics/reshape_packed.c +++ b/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; diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index 86cef6725d2..1800be4ce65 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/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; diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4 index 53ec168da61..efa38b201af 100644 --- a/libgfortran/m4/eoshift1.m4 +++ b/libgfortran/m4/eoshift1.m4 @@ -50,7 +50,7 @@ eoshift1 (gfc_array_char * const restrict ret, index_type rstride0; index_type roffset; char *rptr; - char *dest; + char * restrict dest; /* s.* indicates the source array. */ index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride0; diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4 index db04ae8f0e6..050f5277822 100644 --- a/libgfortran/m4/eoshift3.m4 +++ b/libgfortran/m4/eoshift3.m4 @@ -50,7 +50,7 @@ eoshift3 (gfc_array_char * const restrict ret, index_type rstride0; index_type roffset; char *rptr; - char *dest; + char * restrict dest; /* s.* indicates the source array. */ index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride0; diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index 071900b03b8..a8a353a4bdb 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -17,7 +17,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, index_type sstride[GFC_MAX_DIMENSIONS]; index_type dstride; const atype_name *base; - rtype_name *dest; + rtype_name * restrict dest; index_type rank; index_type n; diff --git a/libgfortran/m4/in_pack.m4 b/libgfortran/m4/in_pack.m4 index ce13f954170..5d9b4b719a0 100644 --- a/libgfortran/m4/in_pack.m4 +++ b/libgfortran/m4/in_pack.m4 @@ -51,7 +51,7 @@ internal_pack_'rtype_ccode` ('rtype` * source) index_type dim; index_type ssize; const 'rtype_name` *src; - 'rtype_name` *dest; + 'rtype_name` * restrict dest; 'rtype_name` *destptr; int n; int packed; diff --git a/libgfortran/m4/in_unpack.m4 b/libgfortran/m4/in_unpack.m4 index 00f4f12da33..5c5b5b12a1b 100644 --- a/libgfortran/m4/in_unpack.m4 +++ b/libgfortran/m4/in_unpack.m4 @@ -48,7 +48,7 @@ internal_unpack_'rtype_ccode` ('rtype` * d, const 'rtype_name` * src) index_type stride0; index_type dim; index_type dsize; - 'rtype_name` *dest; + 'rtype_name` * restrict dest; int n; dest = d->data; diff --git a/libgfortran/m4/pack.m4 b/libgfortran/m4/pack.m4 index 4f31ffdd15e..9198b65b20e 100644 --- a/libgfortran/m4/pack.m4 +++ b/libgfortran/m4/pack.m4 @@ -83,7 +83,7 @@ pack_'rtype_code` ('rtype` *ret, const 'rtype` *array, { /* r.* indicates the return array. */ index_type rstride0; - 'rtype_name` *rptr; + 'rtype_name` * restrict rptr; /* s.* indicates the source array. */ index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride0; diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index c301d1f1e32..b4bdce64316 100644 --- a/libgfortran/m4/spread.m4 +++ b/libgfortran/m4/spread.m4 @@ -49,7 +49,7 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source, index_type rrank; index_type rs; 'rtype_name` *rptr; - 'rtype_name` *dest; + 'rtype_name` * restrict dest; /* s.* indicates the source array. */ index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride0; @@ -241,7 +241,7 @@ spread_scalar_'rtype_code` ('rtype` *ret, const 'rtype_name` *source, { int n; int ncopies = pncopies; - 'rtype_name` * dest; + 'rtype_name` * restrict dest; index_type stride; if (GFC_DESCRIPTOR_RANK (ret) != 1) diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4 index 177e86dcdc1..103cc0296fb 100644 --- a/libgfortran/m4/transpose.m4 +++ b/libgfortran/m4/transpose.m4 @@ -45,7 +45,7 @@ transpose_'rtype_code` ('rtype` * const restrict ret, { /* r.* indicates the return array. */ index_type rxstride, rystride; - 'rtype_name` *rptr; + 'rtype_name` * restrict rptr; /* s.* indicates the source array. */ index_type sxstride, systride; const 'rtype_name` *sptr; diff --git a/libgfortran/m4/unpack.m4 b/libgfortran/m4/unpack.m4 index 2ad6841a081..fa2b5f1588b 100644 --- a/libgfortran/m4/unpack.m4 +++ b/libgfortran/m4/unpack.m4 @@ -46,7 +46,7 @@ unpack0_'rtype_code` ('rtype` *ret, const 'rtype` *vector, index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride0; index_type rs; - 'rtype_name` *rptr; + 'rtype_name` * restrict rptr; /* v.* indicates the vector array. */ index_type vstride0; 'rtype_name` *vptr; @@ -189,7 +189,7 @@ unpack1_'rtype_code` ('rtype` *ret, const 'rtype` *vector, index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride0; index_type rs; - 'rtype_name` *rptr; + 'rtype_name` * restrict rptr; /* v.* indicates the vector array. */ index_type vstride0; 'rtype_name` *vptr;