From 5863aacf5bc6602ab1cd0e8ae12f8dc58521d620 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 18 May 2008 20:39:04 +0000 Subject: [PATCH] in_pack.m4 (internal_pack_'rtype_code`): Destination pointer is restrict. 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. From-SVN: r135512 --- libgfortran/generated/eoshift1_16.c | 2 +- libgfortran/generated/eoshift1_4.c | 2 +- libgfortran/generated/eoshift1_8.c | 2 +- libgfortran/generated/eoshift3_16.c | 2 +- libgfortran/generated/eoshift3_4.c | 2 +- libgfortran/generated/eoshift3_8.c | 2 +- libgfortran/generated/in_pack_c10.c | 2 +- libgfortran/generated/in_pack_c16.c | 2 +- libgfortran/generated/in_pack_c4.c | 2 +- libgfortran/generated/in_pack_c8.c | 2 +- libgfortran/generated/in_pack_i1.c | 2 +- libgfortran/generated/in_pack_i16.c | 2 +- libgfortran/generated/in_pack_i2.c | 2 +- libgfortran/generated/in_pack_i4.c | 2 +- libgfortran/generated/in_pack_i8.c | 2 +- libgfortran/generated/in_pack_r10.c | 2 +- libgfortran/generated/in_pack_r16.c | 2 +- libgfortran/generated/in_pack_r4.c | 2 +- libgfortran/generated/in_pack_r8.c | 2 +- libgfortran/generated/in_unpack_c10.c | 2 +- libgfortran/generated/in_unpack_c16.c | 2 +- libgfortran/generated/in_unpack_c4.c | 2 +- libgfortran/generated/in_unpack_c8.c | 2 +- libgfortran/generated/in_unpack_i1.c | 2 +- libgfortran/generated/in_unpack_i16.c | 2 +- libgfortran/generated/in_unpack_i2.c | 2 +- libgfortran/generated/in_unpack_i4.c | 2 +- libgfortran/generated/in_unpack_i8.c | 2 +- libgfortran/generated/in_unpack_r10.c | 2 +- libgfortran/generated/in_unpack_r16.c | 2 +- libgfortran/generated/in_unpack_r4.c | 2 +- libgfortran/generated/in_unpack_r8.c | 2 +- libgfortran/generated/maxloc0_16_i1.c | 2 +- libgfortran/generated/maxloc0_16_i16.c | 2 +- libgfortran/generated/maxloc0_16_i2.c | 2 +- libgfortran/generated/maxloc0_16_i4.c | 2 +- libgfortran/generated/maxloc0_16_i8.c | 2 +- libgfortran/generated/maxloc0_16_r10.c | 2 +- libgfortran/generated/maxloc0_16_r16.c | 2 +- libgfortran/generated/maxloc0_16_r4.c | 2 +- libgfortran/generated/maxloc0_16_r8.c | 2 +- libgfortran/generated/maxloc0_4_i1.c | 2 +- libgfortran/generated/maxloc0_4_i16.c | 2 +- libgfortran/generated/maxloc0_4_i2.c | 2 +- libgfortran/generated/maxloc0_4_i4.c | 2 +- libgfortran/generated/maxloc0_4_i8.c | 2 +- libgfortran/generated/maxloc0_4_r10.c | 2 +- libgfortran/generated/maxloc0_4_r16.c | 2 +- libgfortran/generated/maxloc0_4_r4.c | 2 +- libgfortran/generated/maxloc0_4_r8.c | 2 +- libgfortran/generated/maxloc0_8_i1.c | 2 +- libgfortran/generated/maxloc0_8_i16.c | 2 +- libgfortran/generated/maxloc0_8_i2.c | 2 +- libgfortran/generated/maxloc0_8_i4.c | 2 +- libgfortran/generated/maxloc0_8_i8.c | 2 +- libgfortran/generated/maxloc0_8_r10.c | 2 +- libgfortran/generated/maxloc0_8_r16.c | 2 +- libgfortran/generated/maxloc0_8_r4.c | 2 +- libgfortran/generated/maxloc0_8_r8.c | 2 +- libgfortran/generated/minloc0_16_i1.c | 2 +- libgfortran/generated/minloc0_16_i16.c | 2 +- libgfortran/generated/minloc0_16_i2.c | 2 +- libgfortran/generated/minloc0_16_i4.c | 2 +- libgfortran/generated/minloc0_16_i8.c | 2 +- libgfortran/generated/minloc0_16_r10.c | 2 +- libgfortran/generated/minloc0_16_r16.c | 2 +- libgfortran/generated/minloc0_16_r4.c | 2 +- libgfortran/generated/minloc0_16_r8.c | 2 +- libgfortran/generated/minloc0_4_i1.c | 2 +- libgfortran/generated/minloc0_4_i16.c | 2 +- libgfortran/generated/minloc0_4_i2.c | 2 +- libgfortran/generated/minloc0_4_i4.c | 2 +- libgfortran/generated/minloc0_4_i8.c | 2 +- libgfortran/generated/minloc0_4_r10.c | 2 +- libgfortran/generated/minloc0_4_r16.c | 2 +- libgfortran/generated/minloc0_4_r4.c | 2 +- libgfortran/generated/minloc0_4_r8.c | 2 +- libgfortran/generated/minloc0_8_i1.c | 2 +- libgfortran/generated/minloc0_8_i16.c | 2 +- libgfortran/generated/minloc0_8_i2.c | 2 +- libgfortran/generated/minloc0_8_i4.c | 2 +- libgfortran/generated/minloc0_8_i8.c | 2 +- libgfortran/generated/minloc0_8_r10.c | 2 +- libgfortran/generated/minloc0_8_r16.c | 2 +- libgfortran/generated/minloc0_8_r4.c | 2 +- libgfortran/generated/minloc0_8_r8.c | 2 +- libgfortran/generated/pack_c10.c | 2 +- libgfortran/generated/pack_c16.c | 2 +- libgfortran/generated/pack_c4.c | 2 +- libgfortran/generated/pack_c8.c | 2 +- libgfortran/generated/pack_i1.c | 2 +- libgfortran/generated/pack_i16.c | 2 +- libgfortran/generated/pack_i2.c | 2 +- libgfortran/generated/pack_i4.c | 2 +- libgfortran/generated/pack_i8.c | 2 +- libgfortran/generated/pack_r10.c | 2 +- libgfortran/generated/pack_r16.c | 2 +- libgfortran/generated/pack_r4.c | 2 +- libgfortran/generated/pack_r8.c | 2 +- libgfortran/generated/spread_c10.c | 5 +++-- libgfortran/generated/spread_c16.c | 5 +++-- libgfortran/generated/spread_c4.c | 5 +++-- libgfortran/generated/spread_c8.c | 5 +++-- libgfortran/generated/spread_i1.c | 5 +++-- libgfortran/generated/spread_i16.c | 5 +++-- libgfortran/generated/spread_i2.c | 5 +++-- libgfortran/generated/spread_i4.c | 5 +++-- libgfortran/generated/spread_i8.c | 5 +++-- libgfortran/generated/spread_r10.c | 5 +++-- libgfortran/generated/spread_r16.c | 5 +++-- libgfortran/generated/spread_r4.c | 5 +++-- libgfortran/generated/spread_r8.c | 5 +++-- libgfortran/generated/transpose_c10.c | 2 +- libgfortran/generated/transpose_c16.c | 2 +- libgfortran/generated/transpose_c4.c | 2 +- libgfortran/generated/transpose_c8.c | 2 +- libgfortran/generated/transpose_i16.c | 2 +- libgfortran/generated/transpose_i4.c | 2 +- libgfortran/generated/transpose_i8.c | 2 +- libgfortran/generated/transpose_r10.c | 2 +- libgfortran/generated/transpose_r16.c | 2 +- libgfortran/generated/transpose_r4.c | 2 +- libgfortran/generated/transpose_r8.c | 2 +- libgfortran/generated/unpack_c10.c | 4 ++-- libgfortran/generated/unpack_c16.c | 4 ++-- libgfortran/generated/unpack_c4.c | 4 ++-- libgfortran/generated/unpack_c8.c | 4 ++-- libgfortran/generated/unpack_i1.c | 4 ++-- libgfortran/generated/unpack_i16.c | 4 ++-- libgfortran/generated/unpack_i2.c | 4 ++-- libgfortran/generated/unpack_i4.c | 4 ++-- libgfortran/generated/unpack_i8.c | 4 ++-- libgfortran/generated/unpack_r10.c | 4 ++-- libgfortran/generated/unpack_r16.c | 4 ++-- libgfortran/generated/unpack_r4.c | 4 ++-- libgfortran/generated/unpack_r8.c | 4 ++-- libgfortran/intrinsics/eoshift0.c | 2 +- libgfortran/intrinsics/eoshift2.c | 2 +- libgfortran/intrinsics/pack_generic.c | 2 +- libgfortran/intrinsics/reshape_generic.c | 2 +- libgfortran/intrinsics/reshape_packed.c | 2 +- libgfortran/intrinsics/unpack_generic.c | 2 +- libgfortran/m4/eoshift1.m4 | 2 +- libgfortran/m4/eoshift3.m4 | 2 +- libgfortran/m4/iforeach.m4 | 2 +- libgfortran/m4/in_pack.m4 | 2 +- libgfortran/m4/in_unpack.m4 | 2 +- libgfortran/m4/pack.m4 | 2 +- libgfortran/m4/spread.m4 | 4 ++-- libgfortran/m4/transpose.m4 | 2 +- libgfortran/m4/unpack.m4 | 4 ++-- 151 files changed, 192 insertions(+), 179 deletions(-) diff --git a/libgfortran/generated/eoshift1_16.c b/libgfortran/generated/eoshift1_16.c index 628fa0ccca32..e16db209e3db 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 6253c6f2cf03..11cc71fc9178 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 983e1bf75237..4b7d0e04f313 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 0898455cb1b2..1dda668d47b6 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 7f35a4c80f82..aa46f7c5a100 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 1792507f6fbd..04e81b8eb390 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 60029536bf26..594393b8cb28 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 560a574df915..846545d9ad02 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 ea608d7b8b4e..bf1a4d6c18eb 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 7e8203ee933e..3462f5c57d2f 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 b5be016cf371..840918f6e641 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 eb729b6d38c8..4620b19fb584 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 240409a357e3..4650f6a9f8c7 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 0e3bf2302b79..b773a0cf4b6e 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 e2337ffdb2b6..996772565254 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 892c6bb9dc5b..d8dfcc6da6ea 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 15ab585050f3..95cdc9c7520b 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 a1f352c4fdd5..eb68180e51cd 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 76cee7afe866..cfa861ca1679 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 078fab0cd385..2d971bf14cce 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 3adc947b673a..f09b0b44faf8 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 32bcddb7c9e1..ed77a700ebfd 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 5c88e9756722..e1fada33802e 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 4b455b73d285..0e7ab1161256 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 82f535eb3bad..36584859dbef 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 91e6fca9ded1..246c3f3999d6 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 8d808db66867..d0c0f15640ed 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 39482b827058..5f2975e74324 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 5514763146fb..66ebe82663dd 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 3abe19df0762..722dee76af58 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 c3c274250958..65bdb078c967 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 9ece8b0a4d26..70c11b5f54f4 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 7fc44432fa44..6be5448fc639 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 29eb3ccecf13..777d3d02e9d9 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 30b693c1068f..11b14787962e 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 03f2794f30ba..0c1ff86e9b02 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 be18af39ce8e..b2098a737018 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 48ba77e8732a..1773c679d6d1 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 9d2ce0870153..3eeaefa0a0b6 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 e908dadcdd0c..09e97bcb378e 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 cb01745a44c1..764cb57a16e0 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 21ab578c4025..45d175d00aff 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 6803420884c7..a34654066f88 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 27cccae97843..36a1da392905 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 650da03a1ed0..398ffb55dec0 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 48e1d3e52157..dcf748109893 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 05e316592386..1f22f07e86c7 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 38cf35272825..71f171c64bb2 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 5ab9429028eb..d52e48360779 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 2658e4a5b9ac..50304818801d 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 ce71eb1ebbda..1eabde6883d2 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 e808a91cf596..6630c06171f9 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 8bc1961ea3a7..bc438e550635 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 8b6d2128a5dd..7cac28157025 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 121827eabb34..15798f831503 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 8fb4b13eb695..fc393e9552c5 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 7a5a4f354af7..99d31ff30773 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 8e02dcb77180..ced61aec3b94 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 c539df0596d8..8222c5c02f88 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 d0d6903bf411..41924a3999a1 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 59c1d0abbf89..655d587b8c89 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 0df6bd189c5b..bca08a5f6a3e 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 48bb60be7375..50105af002a8 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 b92f7e430313..d12663f14367 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 6480a8dd681e..9c93f144cd7b 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 325c8f68d509..83624d2e4364 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 2376d4034b67..4225805d991e 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 e72abab2c5bd..74c5358e4fcb 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 ce045a28e731..53ddea210c60 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 9ae856e686c3..88c5a0ab5425 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 c33e99cfedba..2db4557979fc 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 9d7eda6c8394..49e74f527e95 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 046e040daf0b..2be844fec89a 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 8f7b92478686..a1d390c00b7b 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 1539192ca158..e4ecd12febc8 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 86ffdb8c6efc..a115c017d17f 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 e78cdd898f52..6162cfd28844 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 5872d85560db..b755ed7348b3 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 b56409a050c7..72906034904a 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 63cd947c42d5..70cc8705eb5b 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 5092f89f7062..5cd60c3d18e0 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 e1b99ef9f940..2c2c2d235cb4 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 600b3aa6af05..2b2f3cf1c743 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 fa4b5cd1d560..a93e1da5d3b5 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 1347f15c8a88..45d2ebabf1bb 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 6a7b2f0d6b01..f4041155e0c7 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 0bad32385d87..7aad775131a1 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 a0c87ec8a266..6249ef4480ad 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 2fb6a20ad9c0..a450a7386fa9 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 1a4e78ec7924..d9ae193d7d70 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 44c6c677e445..1f8259769bdc 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 e9c154379775..a175d02d34d2 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 51380c26ba72..1788b6c9a7f2 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 861670d6865b..32ec8e308819 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 c547f3809f2b..49b34cad220f 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 4b8c5784aef8..3218bb342a5d 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 a691f7c40411..7415814951ee 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 c008aadf4d43..c5871414c1cc 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 7b3604796284..f1a6a684bfe6 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 76a361406c10..868a75f898f2 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 0ea57561849e..5aa45e6d0f5f 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 f86da84a58f8..f1b16e7e132a 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 7a3f4dfd2109..ed79c2844a5c 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 396a521eab8c..b5798dff5a85 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 559934240540..0f6002f682a7 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 d8ac9dc9af19..ac49aa9d999c 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 c0890b666a12..bef7a37b6b01 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 b0032bf64dd8..db5572aff67e 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 404aaa4654c4..9d5afc225048 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 122673305e81..0b4d3ca22c48 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 1569dbc09f35..191203a6d56e 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 c028f804079e..a710111c9df8 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 f809f01eb0ef..72235967b344 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 06adc81d9f1b..e3863f1f2adb 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 4a2a8c06d937..cdb5a9a06e11 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 cdfb6c940681..91fb10424997 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 23183bb27e1f..b7564ad17aab 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 f426ddf9daa2..51472fd09a06 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 dec4f6b38652..37428ddacbd2 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 6f01d562fab2..32704166b1d2 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 1991e5210134..858b3a565554 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 257d6787f369..1968302dd352 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 5430845391d6..bbd87649126b 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 e6f3ecf26521..5881ece0eeb1 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 2d82a10fc843..7941ff9289a5 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 472ce48c26e1..3ef95147ab8d 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 62116b78bb25..bc32b27016ee 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 46a9d4eb6f20..17090328eb5d 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 0fbd7449ffeb..2adf0603d42f 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 096c7858de1c..b83b8757f767 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 08f197c376c7..82b1e6503301 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 0847c1fa0dac..ebd9fc7c48ca 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 694d2c542eee..a57c3bf926f3 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 65121c1b90ec..6cbb7b24ce0c 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 b9983182b6f4..d20856cf6417 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 cccf7596f9bc..f3223c45af81 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 594944d4508c..9946b4877e36 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 bfbcc3e6a80b..ca870d245fb2 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 8f1e08cc2df5..6e3d2cb19c64 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 ad823513ec4f..de1e94267561 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 cf61f31d4d1f..fdc794419fab 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 86cef6725d29..1800be4ce652 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 53ec168da614..efa38b201af5 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 db04ae8f0e68..050f5277822f 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 071900b03b8e..a8a353a4bdbb 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 ce13f9541704..5d9b4b719a01 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 00f4f12da330..5c5b5b12a1bc 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 4f31ffdd15e7..9198b65b20e2 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 c301d1f1e322..b4bdce64316c 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 177e86dcdc13..103cc0296fbc 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 2ad6841a0819..fa2b5f1588b5 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; -- 2.39.2