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

author Thomas Koenig <tkoenig@gcc.gnu.org>

Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)

committer Thomas Koenig <tkoenig@gcc.gnu.org>

Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
author Thomas Koenig <tkoenig@gcc.gnu.org>
Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
committer Thomas Koenig <tkoenig@gcc.gnu.org>
Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
diff --git a/libgfortran/generated/eoshift1_16.c b/libgfortran/generated/eoshift1_16.c

index 628fa0ccca3243c3ba64959dbbcb866bf7c8bc44..e16db209e3dbaee06fd82edad092b8daf333abf2 100644 (file)
--- 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 6253c6f2cf03ccea791d039d87a785af0dca8397..11cc71fc91780e00600c16ffa730a0647e5645ab 100644 (file)
--- 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 983e1bf75237af6bbd2afe1c5a78883ef340cb05..4b7d0e04f313a1ea23694c2d3c35e0a3c8cc35ca 100644 (file)
--- 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 0898455cb1b299bde6551be46f34326b021736f2..1dda668d47b6783012c221d9cf86aa686bc42655 100644 (file)
--- 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 7f35a4c80f82433524eec1b6f30fcc7ee7b9deb2..aa46f7c5a1006d95f218278102e5d2789e6bf7a7 100644 (file)
--- 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 1792507f6fbd2e43e2c89a28a58a3fa91079bb3e..04e81b8eb390947f93c9071c1d12f3f71cc328ee 100644 (file)
--- 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 60029536bf2699418a8cc04ed692f35d4dc7f3ae..594393b8cb285d736dc33c625bb5010e7bcd81f8 100644 (file)
--- 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 560a574df91559b6f45034ed6b78f1da58a5f4fb..846545d9ad022a4ae7c535bdceba18b3c1a883b5 100644 (file)
--- 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 ea608d7b8b4ece06c8ff27ab81a189aae2639c4d..bf1a4d6c18eb413e6be95720f23cf87df4d49bd4 100644 (file)
--- 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 7e8203ee933e42572173e385acfc0ed5ea42801a..3462f5c57d2f2d8a0f7e48703c3e1979bc049581 100644 (file)
--- 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 b5be016cf371998b7ea91b0003dc84cf62e73908..840918f6e6415f55ce905bdbefb5d98ae1b114d4 100644 (file)
--- 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 eb729b6d38c80c24222648de3c15a178e395cead..4620b19fb584193381e0c0b1df8ce9177c9fa452 100644 (file)
--- 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 240409a357e3737776dfe149436bcd68710b9fc2..4650f6a9f8c7be83c1131fc8e92aedd044134642 100644 (file)
--- 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 0e3bf2302b79ae4601c13847c8508274afee217b..b773a0cf4b6ebd5a32a55455475262a2b5eb6cdd 100644 (file)
--- 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 e2337ffdb2b6b2ec0656fec6559a88c4d6fd2786..996772565254d0fae75706f8da238e848ec3655e 100644 (file)
--- 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 892c6bb9dc5b4a4e53de1cbfb914ed82ff3ca680..d8dfcc6da6ea7b12174a22538b91da1bf589d7e4 100644 (file)
--- 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 15ab585050f3948956560c3b7f7ae898ac9fa832..95cdc9c7520b7cc602e646ae0340d24e7b18b7ce 100644 (file)
--- 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 a1f352c4fdd545b87c317271a0f19cdc6eec9263..eb68180e51cd2e483792c05827fbda8f62cb936c 100644 (file)
--- 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 76cee7afe866517ebe5323bfecddeef574dce572..cfa861ca1679286cb834f3d7a0102a85682f4a62 100644 (file)
--- 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 078fab0cd38528a66f282179dcd7c1d0115ddda4..2d971bf14cce1f9fed7edd00f72b9855705370a6 100644 (file)
--- 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 3adc947b673ae81013a76d24461795dc37bc5d8e..f09b0b44faf8a93a981a5c06821393e1c0cf8fdf 100644 (file)
--- 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 32bcddb7c9e1633520a1ee4dcb01f0f04268418d..ed77a700ebfd2cb574ff953ece0afe2465cb2342 100644 (file)
--- 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 5c88e97567222dfbf80f313ee8fea563fd130513..e1fada33802e9944c5de5771ae5324d8fe19a16e 100644 (file)
--- 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 4b455b73d28594ea2a526163551f302bcb22ef6b..0e7ab1161256a02a062ddc58f0ef881050e7c86c 100644 (file)
--- 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 82f535eb3badfc59f84b4a12c8dfe5a791588304..36584859dbefdd82b44bd66d681d459c605d9674 100644 (file)
--- 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 91e6fca9ded17f900732ab37b66e38787d2232bc..246c3f3999d6d58ef17c73e2959e15495b130089 100644 (file)
--- 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 8d808db668672f210f39eaf7aec375d9e5471c2a..d0c0f15640ed0330ed17aecf565ef7ff30404225 100644 (file)
--- 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 39482b827058adbdbcf7b218045ae0bd93000310..5f2975e74324b47cd6c02ef62e1356ffaabe2b78 100644 (file)
--- 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 5514763146fbfec771cba6ada8e6edab321aba08..66ebe82663dd3a6f6452247daef18502ae540d69 100644 (file)
--- 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 3abe19df076232f5082ce48cbdad9a6b24a3ac25..722dee76af587b1b32156a323b4c1860de502388 100644 (file)
--- 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 c3c274250958798d6794e2b44a64e2e540af01d5..65bdb078c9673512e9c7c7a6d796cddb51c9163e 100644 (file)
--- 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 9ece8b0a4d266afc2c32752cfcdb0e441dceb586..70c11b5f54f434b005033bb70aa04ef3ee32742f 100644 (file)
--- 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 7fc44432fa44cc143da3bcaff869e766aad9e933..6be5448fc6394bbe604453525888ee0431724954 100644 (file)
--- 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 29eb3ccecf13ca325f284c26c78d4881af928a2a..777d3d02e9d9cd6fd2059ef627d2ab6f53bcf8ff 100644 (file)
--- 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 30b693c1068f439360a6f1302218f085a214e8bc..11b14787962e4b1f0b549d36eb17ade286cc2c4c 100644 (file)
--- 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 03f2794f30badbd1e0edf35ede8d760c4512b178..0c1ff86e9b02de0825edc07e4718d6e3d5a33f46 100644 (file)
--- 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 be18af39ce8e467efb06d36006690ffefe0f0476..b2098a737018a5b735f94d65ab16fe286130f2cb 100644 (file)
--- 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 48ba77e8732af3323085ea630fea0da75556b5b1..1773c679d6d12a449799d13c0bdd218e24ca3e11 100644 (file)
--- 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 9d2ce0870153a74f3b8326b13c62f255e5dfbcc0..3eeaefa0a0b6171d5e2513b8783e59631ea0cbf3 100644 (file)
--- 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 e908dadcdd0c42fa6af1fc874ddc9f03b5d6d4df..09e97bcb378e355623d1d82677ccda8f8b32ef3d 100644 (file)
--- 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 cb01745a44c19b11ec1588b08616e8d995b14a6f..764cb57a16e0155f39d9e656624a1f92cae156dc 100644 (file)
--- 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 21ab578c4025c69dad10c13ac6868b44bafa67c0..45d175d00aff6a47d89bdad21815d07280707a4f 100644 (file)
--- 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 6803420884c7345b3559100629ae73a83c7025ed..a34654066f881481d947b7c05eeceab9cdbc06a5 100644 (file)
--- 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 27cccae9784341a88de0bf3b6d2272f7f79ca165..36a1da3929058cf266b259bba042aa422b7b7b6d 100644 (file)
--- 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 650da03a1ed0473d9b9ebc594ca95c8c2bcdc2d7..398ffb55dec0bb9c6ffb44d3ec7d5c598f8b4296 100644 (file)
--- 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 48e1d3e521579456190b3d6e50143c7825819e82..dcf748109893cc96b597d82616ed5e1d00069b4d 100644 (file)
--- 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 05e316592386ee316e9aba65ffac2673593676fc..1f22f07e86c7c0fe3047a04a3ecf80548c881321 100644 (file)
--- 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 38cf35272825209964f542e8fa01908ee7322bf4..71f171c64bb229239c393146e526d522165da37a 100644 (file)
--- 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 5ab9429028ebc986368add7638be0bdab96f4f37..d52e48360779f07d5164a3013e170cbb87e7f44c 100644 (file)
--- 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 2658e4a5b9ac0ef29307be6405e42971a87df0ac..50304818801dfcfe9f2a1a5e3d1e02baf9d38b9e 100644 (file)
--- 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 ce71eb1ebbdabafc5ea1694c7f1e821e7e7d3917..1eabde6883d2dcd3226256fd76555c10fb683813 100644 (file)
--- 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 e808a91cf5968ce934d99d89d4ee17c54a039030..6630c06171f9d31d0ae688cae68a90616e040f8f 100644 (file)
--- 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 8bc1961ea3a7bc703136f1b328c01dc27e3e80dc..bc438e550635e02f66bafbce331fac423b0b21ed 100644 (file)
--- 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 8b6d2128a5dd106cfe2afbfc67ab922096ff5535..7cac281570258a45530d4863299368554be80f38 100644 (file)
--- 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 121827eabb343a05775253aab8782bac0b86dc24..15798f8315038f2669c22be7f1cafd3b46e4a546 100644 (file)
--- 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 8fb4b13eb6953d7d74bd54625f83a11ed9ef3c2f..fc393e9552c5402398a491c023c8d4bbd696ebbc 100644 (file)
--- 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 7a5a4f354af7e3e43bcc1e564a353aaab3ea4630..99d31ff30773bdbc7b18ec78339371042aaba324 100644 (file)
--- 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 8e02dcb771809222ee0141af371f6cd4515fbdc5..ced61aec3b94f210aee42463b4ed3f294293247a 100644 (file)
--- 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 c539df0596d83c1b6a668e6655875a0628b2ad1a..8222c5c02f8827a8868c257595ab324acb411a71 100644 (file)
--- 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 d0d6903bf411b7b6a67b4f4dd6a734cb3e617c12..41924a3999a124d1348dbf9fe3735b65a07fb8ac 100644 (file)
--- 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 59c1d0abbf8931516cfe2564c2001d3336117766..655d587b8c89cf2ee20599dd915c4c956cdb5091 100644 (file)
--- 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 0df6bd189c5b8c113d9af2166e443d1b70d88a82..bca08a5f6a3ece6cb85abdf0631d4d3bfeec7297 100644 (file)
--- 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 48bb60be73754c8721625fabe181c9e79b04a70b..50105af002a8b03e2068065aadc3836e81f33589 100644 (file)
--- 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 b92f7e430313b25c9b274895a07be10558acd06a..d12663f143677d12a9b6b483f82bc966f4dd9272 100644 (file)
--- 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 6480a8dd681e1edbfed9da165972dc32fcc344f6..9c93f144cd7bc4445ccad6bf8284d96b5ab848ec 100644 (file)
--- 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 325c8f68d509ccf2784380847c297099e8a6a21b..83624d2e436464fd6c48174100a4d67c98f8ee93 100644 (file)
--- 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 2376d4034b677295d598f5d68bc0c68f28b0e9fc..4225805d991e199ae8ecf85976916e00f4bc6f44 100644 (file)
--- 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 e72abab2c5bd61402b5e2065804aeec601b5185e..74c5358e4fcba9e93e5c2c48fd43b13a9484fc73 100644 (file)
--- 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 ce045a28e731be1649bd48d8517f12ae2b6cb5b1..53ddea210c604192cb6cbb8b73ec5a41ac42cde4 100644 (file)
--- 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 9ae856e686c3afdcb3f0b2f8527661e0295ec640..88c5a0ab542582a7d8fa56732e54f45b7448e72a 100644 (file)
--- 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 c33e99cfedba2941afb146da028499ccc353ca85..2db4557979fc9f1e4f400ea63e64f0eff314420a 100644 (file)
--- 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 9d7eda6c8394927cf96893fea8a846db30fad0b2..49e74f527e95c782baae3f8f7b88f12fded5f226 100644 (file)
--- 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 046e040daf0b6f8aa64e1b5aa0c129abdfc695d3..2be844fec89af43361cb8120dfcd5541780205de 100644 (file)
--- 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 8f7b92478686e36a9bb38e3fee526dda0c909b1c..a1d390c00b7bac09836310c2baf4e9ad2a5bef32 100644 (file)
--- 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 1539192ca158e064315505e25cfebe4e3eb2a425..e4ecd12febc87a44989861ef85e74edc2f1f5f48 100644 (file)
--- 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 86ffdb8c6efcbd989481429cbb02a3f4ee3c411f..a115c017d17f00fab50de60f0cda0f42f9ea6606 100644 (file)
--- 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 e78cdd898f522eae8187ba98dcdd1c4c514d342f..6162cfd288449db4d9d98e5c7f01028a3378f9f1 100644 (file)
--- 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 5872d85560dba1edec62f199cd12cf24a2bb9dcb..b755ed7348b371d8c17b553f09b7f5e96620a442 100644 (file)
--- 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 b56409a050c77a7542208f3823e0b3e7065abc5d..72906034904a3b35d43213ef4ef46e215b1e2755 100644 (file)
--- 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 63cd947c42d57ac7a85082d86d233319573db46c..70cc8705eb5b677d21c93ae8962e47738d8c22bd 100644 (file)
--- 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 5092f89f7062fd52ab294f9b95fd7351fbde25e2..5cd60c3d18e055965773a81274412f72f0d00eb5 100644 (file)
--- 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 e1b99ef9f9402d01d3b0cd40d84f0c133fa4fc8b..2c2c2d235cb48d026bc99e00c4b167b7c2f5b4c0 100644 (file)
--- 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 600b3aa6af050d45c4160592c128a9c9d96afce5..2b2f3cf1c743e29a47947c246e76aae153742a45 100644 (file)
--- 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 fa4b5cd1d560fae7efdd5a6a1b515b9a70926fcd..a93e1da5d3b5cdf60428772b07d29e7636bafe77 100644 (file)
--- 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 1347f15c8a88d047bcc14ce3b3b98c1ba004a1ae..45d2ebabf1bbcc2f36d8be2886dc21eb22d38f1e 100644 (file)
--- 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 6a7b2f0d6b01c464c68ded8e75cb817559d0dfc9..f4041155e0c736529caf4648fcb7241edd512450 100644 (file)
--- 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 0bad32385d87a566fd2ed5c7a7c8f4b59d738f4b..7aad775131a1f2b58d3d1d58d1109eb46923bbd8 100644 (file)
--- 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 a0c87ec8a266855886af91043b19cd36cceba1b0..6249ef4480ad988bb019af8b468e7578b0d61d94 100644 (file)
--- 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 2fb6a20ad9c0d153bcd6c9d8e8b7484e31d83a65..a450a7386fa93d29735a096ff6280854bb18cc1c 100644 (file)
--- 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 1a4e78ec792447465148af9065884e35c71ae77d..d9ae193d7d70974c0bf775ce97716ff29a1580eb 100644 (file)
--- 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 44c6c677e445e2930a3f2acb75689ba1361ac2f4..1f8259769bdce803dd0066d91c08b36736f37819 100644 (file)
--- 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 e9c154379775d80054deaeb03a9dcf27f0f3be6f..a175d02d34d2f582199a8fe560199e03ffef0f37 100644 (file)
--- 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 51380c26ba72bc6b652fc05e7d39c53b86f9984d..1788b6c9a7f28225bde3c312239303b74c2d97cb 100644 (file)
--- 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 861670d6865b7f7f61fe11708b5d9df49bb95b83..32ec8e30881975defdd5659780f71e73635d18c7 100644 (file)
--- 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 c547f3809f2be379648074960d59397dddd582de..49b34cad220f062fa1e49e8b1c34ac980ec8dc5b 100644 (file)
--- 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 4b8c5784aef88f028c8b22356f86f25f6a9614b6..3218bb342a5db5b113fef653f5f9f00c2cb9a2ed 100644 (file)
--- 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 a691f7c4041102c80f75ad2f57902b6120a23f5e..7415814951ee1336162c2ed7a7eb50084fe45d9b 100644 (file)
--- 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 c008aadf4d435154a5f6d14afa5ee813df6cb647..c5871414c1cc69d0c8e15d06eca5b50e522550bb 100644 (file)
--- 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 7b36047962848f6d46a81567f421e8a9650f35d2..f1a6a684bfe6d4af84cbcd63bd8162aa3d5d539d 100644 (file)
--- 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 76a361406c107773b655297590bab4f16d2ae7cb..868a75f898f2d7904375840a60d5a81faa8062d0 100644 (file)
--- 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 0ea57561849ed08aee3a8d8a025874ab38e31947..5aa45e6d0f5fe3e9ab055e620f87983c8b7e3c82 100644 (file)
--- 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 f86da84a58f81065a0e762294e2232b1ffe801df..f1b16e7e132a36b206635a8c9610ffb95439c418 100644 (file)
--- 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 7a3f4dfd2109658b5cca1d6929fd13f8a94e9fda..ed79c2844a5c63737075d70a62b468873e758ce1 100644 (file)
--- 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 396a521eab8c6efd850e08e160e7a6ffbe23a323..b5798dff5a859552c30976fffd988bcd290cd137 100644 (file)
--- 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 5599342405403921f6fa9bbb1ef721433ff01aab..0f6002f682a7e95acd055f3d41d14344f3ea6954 100644 (file)
--- 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 d8ac9dc9af19a54d3165076b0b6064079649502a..ac49aa9d999cf8283fd833ade4f5c22eb365d42a 100644 (file)
--- 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 c0890b666a12bac7f571be8376b4dd3c7bc6a53b..bef7a37b6b01883685a1057e0263f72ff8bff0ed 100644 (file)
--- 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 b0032bf64dd85148df4ba54b90a19ca82555bc25..db5572aff67e0798050d1e93c925b23c2ec0e8b1 100644 (file)
--- 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 404aaa4654c413d269a0b3840b77578e7b5c2c40..9d5afc225048185d8b24d8e78b9eed621b02e0b5 100644 (file)
--- 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 122673305e81ffd667540f03358638f8bb147aa1..0b4d3ca22c48e7c093c0957e905a07d289d98bcf 100644 (file)
--- 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 1569dbc09f35ad3584ae278f5521573cf8f05824..191203a6d56ead8302952ad3787ef9bd01296dd2 100644 (file)
--- 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 c028f804079e2ad97a3acb403d1b808f87e211c3..a710111c9df8950137df9f4fbf167d4dfd8a4f4a 100644 (file)
--- 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 f809f01eb0ef614a67bdb7c2b198259685550875..72235967b344e985dbf7509e1e50e56d41ce4c35 100644 (file)
--- 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 06adc81d9f1b9895b08b7aa3ec586ccca8c452cd..e3863f1f2adb90eb0c244dd207fece5ead99849e 100644 (file)
--- 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 4a2a8c06d937b57130d8efb07ba48d43489852b1..cdb5a9a06e113088fc6cbbec350532bae5fdf25d 100644 (file)
--- 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 cdfb6c9406811222814b797f4cc1a55e5d6ac97a..91fb10424997e94a51a6019712010d75ac2ece2c 100644 (file)
--- 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 23183bb27e1f22ce40957ba64261901abd29c21a..b7564ad17aab05d54ee45b0046cda6a4bce57cfd 100644 (file)
--- 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 f426ddf9daa2818275524665d7440d24e40ab321..51472fd09a06ecde076e5e12dc46c9ff60617249 100644 (file)
--- 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 dec4f6b3865290309769873b05a9d3c65ab8947d..37428ddacbd2733de15ebd80b40bf5742b928c6c 100644 (file)
--- 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 6f01d562fab24e73f2290ac751119f15e71dabbe..32704166b1d25faae308cc0d97c6b4ce26f5b451 100644 (file)
--- 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 1991e5210134a48492ca70267637c07e1294d11e..858b3a565554a256d528a214f2b55df585d5427c 100644 (file)
--- 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 257d6787f369f33376c9856f241a6fa9a2786d1c..1968302dd352fa74c84cccc3ebe53e1e187b41f6 100644 (file)
--- 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 5430845391d60ea4fbd3128b894cc01659886ab6..bbd87649126badc0fcccdcf954864ea1bf3593f1 100644 (file)
--- 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 e6f3ecf265216d6a812fc9d130ac1a922910316f..5881ece0eeb10e3b06ed3f9590be755b7fcf4659 100644 (file)
--- 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 2d82a10fc84390b0099753d8702bbba05f651475..7941ff9289a5c6893a2f855ae5e7e40d6be5922f 100644 (file)
--- 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 472ce48c26e18c1c14e1e31e0373b32ae374a691..3ef95147ab8d7b32dfccac5bc0c1c6313a3072a9 100644 (file)
--- 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 62116b78bb2588eb55463823e7842a2ce64f0456..bc32b27016ee05dba6fb1dd09433feda5213752c 100644 (file)
--- 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 46a9d4eb6f2005c8b37e3c6b0cd0f983d5fc5c03..17090328eb5d3e5c973192d552ee88aed7e25958 100644 (file)
--- 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 0fbd7449ffeb07b2bfc1e4499cd0351446f3bc69..2adf0603d42fa333748d27db2fed1937f7bc0e3a 100644 (file)
--- 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 096c7858de1c4fe79e9cd575fa33a031673fc9b0..b83b8757f7678296ce0ad4c4bb3949ae5895b23d 100644 (file)
--- 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 08f197c376c7cfe1422595d3826a5e2ce62b2e78..82b1e6503301cd4d0f1cb57aa6efcc9cf73d4bb2 100644 (file)
--- 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 0847c1fa0daca1ee4e4d45e49d19515741a13b80..ebd9fc7c48ca85b59b80acc48e8df0485459ec56 100644 (file)
--- 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 694d2c542eee2c09fd8c6c01855f76c52a3849f1..a57c3bf926f3a72c134ca27af5cc5eb9946ec9ef 100644 (file)
--- 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 65121c1b90ecfaa201bcabd1176664e14b7ee33a..6cbb7b24ce0c5b9514b3c1cdd3a8888aab04e13d 100644 (file)
--- 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 b9983182b6f406902ed49c48dd3314b8ca5a5da2..d20856cf641708bb612c1bf5ad13e92b8792ef40 100644 (file)
--- 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 cccf7596f9bcf5bbd7256f86ce4d9a893ba65961..f3223c45af81c0f928e0f129e19f0b97f337a197 100644 (file)
--- 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 594944d4508c908a42b08b370e72696f16195f43..9946b4877e36674dbc74e8575fe8206195fb3567 100644 (file)
--- 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 bfbcc3e6a80b584875cf750245155a277cecd9f1..ca870d245fb2c87d96a8834d81eb3ea991968070 100644 (file)
--- 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 8f1e08cc2df507052096f85e7afe6895c71d95f2..6e3d2cb19c64636b5124d3c1a758edcc0fe6f77f 100644 (file)
--- 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 ad823513ec4f4f721bc8589650c2eefa4de1545e..de1e9426756138836cdd78e301fa7c403ad1d31b 100644 (file)
--- 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 cf61f31d4d1ffb1a6c53ef669f4a6b5316f6d60f..fdc794419fab11919e0b7c40ee728a8819a1f520 100644 (file)
--- 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 86cef6725d298c75ba3bb8011316acbccc7a33b1..1800be4ce6523659464f547728d13e5e46664062 100644 (file)
--- 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 53ec168da6141fe7fa6b22efb5e9948eab96f789..efa38b201af55a9e6b8907824eb8d9978961cdf6 100644 (file)
--- 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 db04ae8f0e680f57dcdf1f4ae822b09e1575bd4d..050f5277822f4701340461d8955586d2c683e396 100644 (file)
--- 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 071900b03b8e1aee41b91ffd9b56013ada6ef521..a8a353a4bdbb2551ec72800ed71b92526c243bda 100644 (file)
--- 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 ce13f9541704b23e0569b9ee511d41715af8ef82..5d9b4b719a01a8662cdf7721a969318a41121c3d 100644 (file)
--- 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 00f4f12da3307743bb22aef1bfbbd785020b8795..5c5b5b12a1bc52412b7f5f2919753f7940a46f7a 100644 (file)
--- 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 4f31ffdd15e7dc87d5cd44ea4c485ed87bd4cf29..9198b65b20e22d5589a155548a643dc7e1fa0142 100644 (file)
--- 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 c301d1f1e3221505c0d209545d5102fc61cc5025..b4bdce64316c89fdfb68966740f830487495b5ff 100644 (file)
--- 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 177e86dcdc134006e106f34b154a7856be0d7dd8..103cc0296fbc6170a1a9fefd45cbe06cddb87ab4 100644 (file)
--- 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 2ad6841a0819541f1915739504a35b53b57823ef..fa2b5f1588b5b564d053efa0324b64712a6fea65 100644 (file)
--- 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;
author	Thomas Koenig <tkoenig@gcc.gnu.org>
	Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
committer	Thomas Koenig <tkoenig@gcc.gnu.org>
	Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
libgfortran/generated/eoshift1_16.c		patch \| blob \| history
libgfortran/generated/eoshift1_4.c		patch \| blob \| history
libgfortran/generated/eoshift1_8.c		patch \| blob \| history
libgfortran/generated/eoshift3_16.c		patch \| blob \| history
libgfortran/generated/eoshift3_4.c		patch \| blob \| history
libgfortran/generated/eoshift3_8.c		patch \| blob \| history
libgfortran/generated/in_pack_c10.c		patch \| blob \| history
libgfortran/generated/in_pack_c16.c		patch \| blob \| history
libgfortran/generated/in_pack_c4.c		patch \| blob \| history
libgfortran/generated/in_pack_c8.c		patch \| blob \| history
libgfortran/generated/in_pack_i1.c		patch \| blob \| history
libgfortran/generated/in_pack_i16.c		patch \| blob \| history
libgfortran/generated/in_pack_i2.c		patch \| blob \| history
libgfortran/generated/in_pack_i4.c		patch \| blob \| history
libgfortran/generated/in_pack_i8.c		patch \| blob \| history
libgfortran/generated/in_pack_r10.c		patch \| blob \| history
libgfortran/generated/in_pack_r16.c		patch \| blob \| history
libgfortran/generated/in_pack_r4.c		patch \| blob \| history
libgfortran/generated/in_pack_r8.c		patch \| blob \| history
libgfortran/generated/in_unpack_c10.c		patch \| blob \| history
libgfortran/generated/in_unpack_c16.c		patch \| blob \| history
libgfortran/generated/in_unpack_c4.c		patch \| blob \| history
libgfortran/generated/in_unpack_c8.c		patch \| blob \| history
libgfortran/generated/in_unpack_i1.c		patch \| blob \| history
libgfortran/generated/in_unpack_i16.c		patch \| blob \| history
libgfortran/generated/in_unpack_i2.c		patch \| blob \| history
libgfortran/generated/in_unpack_i4.c		patch \| blob \| history
libgfortran/generated/in_unpack_i8.c		patch \| blob \| history
libgfortran/generated/in_unpack_r10.c		patch \| blob \| history
libgfortran/generated/in_unpack_r16.c		patch \| blob \| history
libgfortran/generated/in_unpack_r4.c		patch \| blob \| history
libgfortran/generated/in_unpack_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r8.c		patch \| blob \| history
libgfortran/generated/pack_c10.c		patch \| blob \| history
libgfortran/generated/pack_c16.c		patch \| blob \| history
libgfortran/generated/pack_c4.c		patch \| blob \| history
libgfortran/generated/pack_c8.c		patch \| blob \| history
libgfortran/generated/pack_i1.c		patch \| blob \| history
libgfortran/generated/pack_i16.c		patch \| blob \| history
libgfortran/generated/pack_i2.c		patch \| blob \| history
libgfortran/generated/pack_i4.c		patch \| blob \| history
libgfortran/generated/pack_i8.c		patch \| blob \| history
libgfortran/generated/pack_r10.c		patch \| blob \| history
libgfortran/generated/pack_r16.c		patch \| blob \| history
libgfortran/generated/pack_r4.c		patch \| blob \| history
libgfortran/generated/pack_r8.c		patch \| blob \| history
libgfortran/generated/spread_c10.c		patch \| blob \| history
libgfortran/generated/spread_c16.c		patch \| blob \| history
libgfortran/generated/spread_c4.c		patch \| blob \| history
libgfortran/generated/spread_c8.c		patch \| blob \| history
libgfortran/generated/spread_i1.c		patch \| blob \| history
libgfortran/generated/spread_i16.c		patch \| blob \| history
libgfortran/generated/spread_i2.c		patch \| blob \| history
libgfortran/generated/spread_i4.c		patch \| blob \| history
libgfortran/generated/spread_i8.c		patch \| blob \| history
libgfortran/generated/spread_r10.c		patch \| blob \| history
libgfortran/generated/spread_r16.c		patch \| blob \| history
libgfortran/generated/spread_r4.c		patch \| blob \| history
libgfortran/generated/spread_r8.c		patch \| blob \| history
libgfortran/generated/transpose_c10.c		patch \| blob \| history
libgfortran/generated/transpose_c16.c		patch \| blob \| history
libgfortran/generated/transpose_c4.c		patch \| blob \| history
libgfortran/generated/transpose_c8.c		patch \| blob \| history
libgfortran/generated/transpose_i16.c		patch \| blob \| history
libgfortran/generated/transpose_i4.c		patch \| blob \| history
libgfortran/generated/transpose_i8.c		patch \| blob \| history
libgfortran/generated/transpose_r10.c		patch \| blob \| history
libgfortran/generated/transpose_r16.c		patch \| blob \| history
libgfortran/generated/transpose_r4.c		patch \| blob \| history
libgfortran/generated/transpose_r8.c		patch \| blob \| history
libgfortran/generated/unpack_c10.c		patch \| blob \| history
libgfortran/generated/unpack_c16.c		patch \| blob \| history
libgfortran/generated/unpack_c4.c		patch \| blob \| history
libgfortran/generated/unpack_c8.c		patch \| blob \| history
libgfortran/generated/unpack_i1.c		patch \| blob \| history
libgfortran/generated/unpack_i16.c		patch \| blob \| history
libgfortran/generated/unpack_i2.c		patch \| blob \| history
libgfortran/generated/unpack_i4.c		patch \| blob \| history
libgfortran/generated/unpack_i8.c		patch \| blob \| history
libgfortran/generated/unpack_r10.c		patch \| blob \| history
libgfortran/generated/unpack_r16.c		patch \| blob \| history
libgfortran/generated/unpack_r4.c		patch \| blob \| history
libgfortran/generated/unpack_r8.c		patch \| blob \| history
libgfortran/intrinsics/eoshift0.c		patch \| blob \| history
libgfortran/intrinsics/eoshift2.c		patch \| blob \| history
libgfortran/intrinsics/pack_generic.c		patch \| blob \| history
libgfortran/intrinsics/reshape_generic.c		patch \| blob \| history
libgfortran/intrinsics/reshape_packed.c		patch \| blob \| history
libgfortran/intrinsics/unpack_generic.c		patch \| blob \| history
libgfortran/m4/eoshift1.m4		patch \| blob \| history
libgfortran/m4/eoshift3.m4		patch \| blob \| history
libgfortran/m4/iforeach.m4		patch \| blob \| history
libgfortran/m4/in_pack.m4		patch \| blob \| history
libgfortran/m4/in_unpack.m4		patch \| blob \| history
libgfortran/m4/pack.m4		patch \| blob \| history
libgfortran/m4/spread.m4		patch \| blob \| history
libgfortran/m4/transpose.m4		patch \| blob \| history
libgfortran/m4/unpack.m4		patch \| blob \| history