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

author tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>

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

committer tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>

Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
author tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
committer tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
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 628fa0c..e16db20 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 6253c6f..11cc71f 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 983e1bf..4b7d0e0 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 0898455..1dda668 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 7f35a4c..aa46f7c 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 1792507..04e81b8 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 6002953..594393b 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 560a574..846545d 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 ea608d7..bf1a4d6 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 7e8203e..3462f5c 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 b5be016..840918f 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 eb729b6..4620b19 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 240409a..4650f6a 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 0e3bf23..b773a0c 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 e2337ff..9967725 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 892c6bb..d8dfcc6 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 15ab585..95cdc9c 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 a1f352c..eb68180 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 76cee7a..cfa861c 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 078fab0..2d971bf 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 3adc947..f09b0b4 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 32bcddb..ed77a70 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 5c88e97..e1fada3 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 4b455b7..0e7ab11 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 82f535e..3658485 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 91e6fca..246c3f3 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 8d808db..d0c0f15 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 39482b8..5f2975e 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 5514763..66ebe82 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 3abe19d..722dee7 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 c3c2742..65bdb07 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 9ece8b0..70c11b5 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 7fc4443..6be5448 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 29eb3cc..777d3d0 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 30b693c..11b1478 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 03f2794..0c1ff86 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 be18af3..b2098a7 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 48ba77e..1773c67 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 9d2ce08..3eeaefa 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 e908dad..09e97bc 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 cb01745..764cb57 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 21ab578..45d175d 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 6803420..a346540 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 27cccae..36a1da3 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 650da03..398ffb5 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 48e1d3e..dcf7481 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 05e3165..1f22f07 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 38cf352..71f171c 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 5ab9429..d52e483 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 2658e4a..5030481 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 ce71eb1..1eabde6 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 e808a91..6630c06 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 8bc1961..bc438e5 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 8b6d212..7cac281 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 121827e..15798f8 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 8fb4b13..fc393e9 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 7a5a4f3..99d31ff 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 8e02dcb..ced61ae 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 c539df0..8222c5c 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 d0d6903..41924a3 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 59c1d0a..655d587 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 0df6bd1..bca08a5 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 48bb60b..50105af 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 b92f7e4..d12663f 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 6480a8d..9c93f14 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 325c8f6..83624d2 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 2376d40..4225805 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 e72abab..74c5358 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 ce045a2..53ddea2 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 9ae856e..88c5a0a 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 c33e99c..2db4557 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 9d7eda6..49e74f5 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 046e040..2be844f 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 8f7b924..a1d390c 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 1539192..e4ecd12 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 86ffdb8..a115c01 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 e78cdd8..6162cfd 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 5872d85..b755ed7 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 b56409a..7290603 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 63cd947..70cc870 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 5092f89..5cd60c3 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 e1b99ef..2c2c2d2 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 600b3aa..2b2f3cf 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 fa4b5cd..a93e1da 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 1347f15..45d2eba 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 6a7b2f0..f404115 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 0bad323..7aad775 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 a0c87ec..6249ef4 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 2fb6a20..a450a73 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 1a4e78e..d9ae193 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 44c6c67..1f82597 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 e9c1543..a175d02 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 51380c2..1788b6c 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 861670d..32ec8e3 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 c547f38..49b34ca 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 4b8c578..3218bb3 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 a691f7c..7415814 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 c008aad..c587141 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 7b36047..f1a6a68 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 76a3614..868a75f 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 0ea5756..5aa45e6 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 f86da84..f1b16e7 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 7a3f4df..ed79c28 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 396a521..b5798df 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 5599342..0f6002f 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 d8ac9dc..ac49aa9 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 c0890b6..bef7a37 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 b0032bf..db5572a 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 404aaa4..9d5afc2 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 1226733..0b4d3ca 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 1569dbc..191203a 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 c028f80..a710111 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 f809f01..7223596 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 06adc81..e3863f1 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 4a2a8c0..cdb5a9a 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 cdfb6c9..91fb104 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 23183bb..b7564ad 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 f426ddf..51472fd 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 dec4f6b..37428dd 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 6f01d56..3270416 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 1991e52..858b3a5 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 257d678..1968302 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 5430845..bbd8764 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 e6f3ecf..5881ece 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 2d82a10..7941ff9 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 472ce48..3ef9514 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 62116b7..bc32b27 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 46a9d4e..1709032 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 0fbd744..2adf060 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 096c785..b83b875 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 08f197c..82b1e65 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 0847c1f..ebd9fc7 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 694d2c5..a57c3bf 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 65121c1..6cbb7b2 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 b998318..d20856c 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 cccf759..f3223c4 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 594944d..9946b48 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 bfbcc3e..ca870d2 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 8f1e08c..6e3d2cb 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 ad82351..de1e942 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 cf61f31..fdc7944 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 86cef67..1800be4 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 53ec168..efa38b2 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 db04ae8..050f527 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 071900b..a8a353a 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 ce13f95..5d9b4b7 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 00f4f12..5c5b5b1 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 4f31ffd..9198b65 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 c301d1f..b4bdce6 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 177e86d..103cc02 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 2ad6841..fa2b5f1 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	tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sun, 18 May 2008 20:39:04 +0000 (20:39 +0000)
committer	tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
	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