pack_generic.c (pack_internal): Remove unused zero_sized variable.

author Jakub Jelinek <jakub@redhat.com>

Sat, 28 Nov 2009 20:29:51 +0000 (21:29 +0100)

committer Jakub Jelinek <jakub@gcc.gnu.org>

Sat, 28 Nov 2009 20:29:51 +0000 (21:29 +0100)
author Jakub Jelinek <jakub@redhat.com>
Sat, 28 Nov 2009 20:29:51 +0000 (21:29 +0100)
committer Jakub Jelinek <jakub@gcc.gnu.org>
Sat, 28 Nov 2009 20:29:51 +0000 (21:29 +0100)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog

index a1cb0d0917537697d086f41f19c1d648f6488a38..e4d2578017ba6e57d583885062eb426bce8f61d9 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,113 @@
+2009-11-28  Jakub Jelinek  <jakub@redhat.com>
+
+       * intrinsics/pack_generic.c (pack_internal): Remove unused
+       zero_sized variable.
+       * intrinsics/unpack_generic.c (unpack0): Remove unused size
+       variable.
+       * io/write.c (namelist_write_newline): Remove unused length
+       variable.
+       * io/unix.c (find_file): Remove unused id variable.
+       * m4/ifunction.m4 (SCALAR_ARRAY_FUNCTION): Remove unused sstride
+       variable.
+       * generated/maxloc1_16_i1.c: Regenerated.
+       * generated/maxloc1_16_i16.c: Regenerated.
+       * generated/maxloc1_16_i2.c: Regenerated.
+       * generated/maxloc1_16_i4.c: Regenerated.
+       * generated/maxloc1_16_i8.c: Regenerated.
+       * generated/maxloc1_16_r10.c: Regenerated.
+       * generated/maxloc1_16_r16.c: Regenerated.
+       * generated/maxloc1_16_r4.c: Regenerated.
+       * generated/maxloc1_16_r8.c: Regenerated.
+       * generated/maxloc1_4_i1.c: Regenerated.
+       * generated/maxloc1_4_i16.c: Regenerated.
+       * generated/maxloc1_4_i2.c: Regenerated.
+       * generated/maxloc1_4_i4.c: Regenerated.
+       * generated/maxloc1_4_i8.c: Regenerated.
+       * generated/maxloc1_4_r10.c: Regenerated.
+       * generated/maxloc1_4_r16.c: Regenerated.
+       * generated/maxloc1_4_r4.c: Regenerated.
+       * generated/maxloc1_4_r8.c: Regenerated.
+       * generated/maxloc1_8_i1.c: Regenerated.
+       * generated/maxloc1_8_i16.c: Regenerated.
+       * generated/maxloc1_8_i2.c: Regenerated.
+       * generated/maxloc1_8_i4.c: Regenerated.
+       * generated/maxloc1_8_i8.c: Regenerated.
+       * generated/maxloc1_8_r10.c: Regenerated.
+       * generated/maxloc1_8_r16.c: Regenerated.
+       * generated/maxloc1_8_r4.c: Regenerated.
+       * generated/maxloc1_8_r8.c: Regenerated.
+       * generated/maxval_i1.c: Regenerated.
+       * generated/maxval_i16.c: Regenerated.
+       * generated/maxval_i2.c: Regenerated.
+       * generated/maxval_i4.c: Regenerated.
+       * generated/maxval_i8.c: Regenerated.
+       * generated/maxval_r10.c: Regenerated.
+       * generated/maxval_r16.c: Regenerated.
+       * generated/maxval_r4.c: Regenerated.
+       * generated/maxval_r8.c: Regenerated.
+       * generated/minloc1_16_i1.c: Regenerated.
+       * generated/minloc1_16_i16.c: Regenerated.
+       * generated/minloc1_16_i2.c: Regenerated.
+       * generated/minloc1_16_i4.c: Regenerated.
+       * generated/minloc1_16_i8.c: Regenerated.
+       * generated/minloc1_16_r10.c: Regenerated.
+       * generated/minloc1_16_r16.c: Regenerated.
+       * generated/minloc1_16_r4.c: Regenerated.
+       * generated/minloc1_16_r8.c: Regenerated.
+       * generated/minloc1_4_i1.c: Regenerated.
+       * generated/minloc1_4_i16.c: Regenerated.
+       * generated/minloc1_4_i2.c: Regenerated.
+       * generated/minloc1_4_i4.c: Regenerated.
+       * generated/minloc1_4_i8.c: Regenerated.
+       * generated/minloc1_4_r10.c: Regenerated.
+       * generated/minloc1_4_r16.c: Regenerated.
+       * generated/minloc1_4_r4.c: Regenerated.
+       * generated/minloc1_4_r8.c: Regenerated.
+       * generated/minloc1_8_i1.c: Regenerated.
+       * generated/minloc1_8_i16.c: Regenerated.
+       * generated/minloc1_8_i2.c: Regenerated.
+       * generated/minloc1_8_i4.c: Regenerated.
+       * generated/minloc1_8_i8.c: Regenerated.
+       * generated/minloc1_8_r10.c: Regenerated.
+       * generated/minloc1_8_r16.c: Regenerated.
+       * generated/minloc1_8_r4.c: Regenerated.
+       * generated/minloc1_8_r8.c: Regenerated.
+       * generated/minval_i1.c: Regenerated.
+       * generated/minval_i16.c: Regenerated.
+       * generated/minval_i2.c: Regenerated.
+       * generated/minval_i4.c: Regenerated.
+       * generated/minval_i8.c: Regenerated.
+       * generated/minval_r10.c: Regenerated.
+       * generated/minval_r16.c: Regenerated.
+       * generated/minval_r4.c: Regenerated.
+       * generated/minval_r8.c: Regenerated.
+       * generated/product_c10.c: Regenerated.
+       * generated/product_c16.c: Regenerated.
+       * generated/product_c4.c: Regenerated.
+       * generated/product_c8.c: Regenerated.
+       * generated/product_i1.c: Regenerated.
+       * generated/product_i16.c: Regenerated.
+       * generated/product_i2.c: Regenerated.
+       * generated/product_i4.c: Regenerated.
+       * generated/product_i8.c: Regenerated.
+       * generated/product_r10.c: Regenerated.
+       * generated/product_r16.c: Regenerated.
+       * generated/product_r4.c: Regenerated.
+       * generated/product_r8.c: Regenerated.
+       * generated/sum_c10.c: Regenerated.
+       * generated/sum_c16.c: Regenerated.
+       * generated/sum_c4.c: Regenerated.
+       * generated/sum_c8.c: Regenerated.
+       * generated/sum_i1.c: Regenerated.
+       * generated/sum_i16.c: Regenerated.
+       * generated/sum_i2.c: Regenerated.
+       * generated/sum_i4.c: Regenerated.
+       * generated/sum_i8.c: Regenerated.
+       * generated/sum_r10.c: Regenerated.
+       * generated/sum_r16.c: Regenerated.
+       * generated/sum_r4.c: Regenerated.
+       * generated/sum_r8.c: Regenerated.
+
  2009-11-19  Janne Blomqvist  <jb@gcc.gnu.org>
  
         * io/fbuf.h: Move includes after include guard.
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c

index 5caf976fb77747026866e7e6ad90c0c15b8e14ad..7319f57beb49b0466e6aa85004c3934422c1b37a 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -439,7 +439,6 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c

index 7a0f533420ca0e9a9451d12ee87be4fe5485ff80..4d9b57be9897f7be207459d32921d1e3a728f9cd 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -439,7 +439,6 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c

index a0a9f16dbcf8569e23496662f53ca0cf6e526b7e..fcca4b791d998b5a3ee21062a9415a67c8771af0 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -439,7 +439,6 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c

index 5a460ba449b414bd4f9a9307761b7a203d31dc93..714869760a2d7fb101b60576b077b605666e9cc4 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -439,7 +439,6 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c

index e62ca1cada32e177a938207ebe64704146bef66c..48c0bd040ad3533abb2cd0b0f127eac945714348 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -439,7 +439,6 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c

index 072f7ef2b2cee5409846a575eec5596b1c35c51c..991830bebd85997f89c335fe2520c7787df12336 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -439,7 +439,6 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c

index d4f13e9db4d781a528c1467e505ccf3cbc2cf416..eb9dd4d456620c3be493131d52b2e87c533e68be 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -439,7 +439,6 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c

index 4010ee412315450224c74dba0fca01950d8a3255..ced073aeecbbaa2527fb79f4c209fc01dd8ab8f2 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -439,7 +439,6 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c

index d837637248f5e3fa7f8399e83ac1b06e45d3ba25..7dacbb8a69a578ef58467e38ad22a51f69c4e149 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -439,7 +439,6 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c

index c79018653d06f37577ddb59ce03477cd267397da..2bda8e5a0a1dbdcd329532e8632e8f6caf195dd5 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -439,7 +439,6 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c

index 9a5a35dcf5be85f7eca88c68ff666cb9d05fdee1..0f45cffaeaca19afa8010641961c9610773a00a0 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -439,7 +439,6 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c

index 19710651ee12851056c694ae20f57442a0b69787..b165d30ee6bceb758fe7c897d5423b843f70ec2a 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -439,7 +439,6 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c

index 5b068face6722566f963b1d3fb30401d8c28d1e8..bf855ca388156a814aa3169102786a7762c242e9 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -439,7 +439,6 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c

index 209c3680e64bac19ab1a25753087c3ed48f87ee2..603e6d65412e605d9d0c8eee24f838dd0092820d 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -439,7 +439,6 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c

index 2f914d75b196221d4038721d276b27a795b9b022..78044462834b3b176cfe954f30a1bb83c2e9c474 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -439,7 +439,6 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c

index c0fd3e83681cf7160c3fe1a014ec4911932cbaf4..4b0f3241007903bcfdc66b29e90f27b3f7b91aeb 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -439,7 +439,6 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c

index 90e58a0c689616d664bd7e04c9a0fb7074f17c8d..6d02691c55ee94e4f20add316947e91db6e44a37 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -439,7 +439,6 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c

index 741fb481e58656a45770e8cf8f06eaebec8be938..363d93858f35cd6a88a08150ac4ab4e788e69663 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -439,7 +439,6 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c

index 966953727dd4a50b0de897ec1dd9f93762f4e046..20a95b86c92e87ef12a53e3b4b9cd458db575e7e 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -439,7 +439,6 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c

index fb131d53dbb55e1c1f854255e478d1819e0ac2be..2909ee43a810c3a73e064a81dd044c4ff3fbbb53 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -439,7 +439,6 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c

index c13eb68b5a0c040fbc67f7a65d0131d9da72a2e0..fe29becd60b0f243cef730a3e94e4a5e57e979fb 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -439,7 +439,6 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c

index 412133c0325333998683cbd8facc4f5012748a69..b8e2619e1dc1012b08d8cdf4ccef7f001ab94ae1 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -439,7 +439,6 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c

index 6ddb24d371d710e15452f883e26bc5b65ccb7eef..4b0a02ae643731d0b34dc06ccae3a17af27eefae 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -439,7 +439,6 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c

index 3ff4ca4cc75bc4b1b72cd08a455723e606f0471a..801a3273f7ccfe7370ea197b8d24568c4ac54a89 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -439,7 +439,6 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c

index d392bee6b6585e2f994843d1d732c0b4250741bb..6ec85941a611e6d797a9da8b316edf0074328671 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -439,7 +439,6 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c

index 159fa60503bacc0680d4bf65987c09ace78077d3..2696304a774ba59c20014efdd1042282744b9cf1 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -439,7 +439,6 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c

index 858865a974c1b56dbb208cf2a49a943b50236187..8bbb68af2aec7a7f4e20ae623d32b79eaa0f1510 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -439,7 +439,6 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c

index c4f1a32ab4d8e9043a86783636a1627a97b56b84..56bd2e25cfec73faaf56ee8d6445d79b1b93bb42 100644 (file)
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -426,7 +426,6 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_1 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c

index 493c1decc5e54fde812327241271d9beea3e795a..5b21ac9295f4c88e597b2b0fc2f11f06010aac85 100644 (file)
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -426,7 +426,6 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c

index 9c82cbb1333eaec8bbde536cbdc23d87803189cb..cbf4efb8be06e8fa5922fa9bfce04322cb2ae7dd 100644 (file)
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -426,7 +426,6 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_2 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c

index 603d414e64b7310f063aff0f66c6c410c94b2e2a..d997bde1f7dfedcd28ab2861261e610844221688 100644 (file)
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -426,7 +426,6 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c

index a979d6647b5ca832ea99d053523a7d626f704f3f..476d1385326a7b307db939e8073f8211bfbfaa40 100644 (file)
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -426,7 +426,6 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c

index daf0dd8188d203a2c89738e52a01fd92362ffc0d..84daf681f529eeb3a119206d94ba2f1b174efd79 100644 (file)
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -426,7 +426,6 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_10 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c

index ea1c2e7ac48e91b30b77f40726a0b223d0e32e75..05ea566f9565c468c8536a7e1e1e7f4a1d3f4fc9 100644 (file)
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -426,7 +426,6 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_16 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c

index db0733030288eaab6b43fbf7dad8d3ac86879d18..212479791176efe638f3dfa2da9ee84496faebca 100644 (file)
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -426,7 +426,6 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_4 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c

index b6d831b55c698fb2cee4897be7201a33e4fd576a..71758b8644a285aa2ca768113326cd4bf7d43853 100644 (file)
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -426,7 +426,6 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_8 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c

index 98470995ead849b743d14b5a7ca67bfa29faa59c..a81e82108cb1794dd86c7336252cc9bb82b687e8 100644 (file)
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -439,7 +439,6 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c

index 9d1f9f677b2901714513e6d466c5fb97e714df3f..2efb5013ef08fc5d946cb1968f5766ddf185cd9e 100644 (file)
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -439,7 +439,6 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c

index 35ce55a90032413267b188a7bdd1f00a2ede4c8d..404338e39b3df13933dd5b24fdac16c934aaa4e9 100644 (file)
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -439,7 +439,6 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c

index 9b6017b377237cc909dd665fa594c8afbb56e01d..be8e99a66ba0b8b6574a4f79edc7aeb91b4ef2b4 100644 (file)
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -439,7 +439,6 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c

index 8501c5db7166ad0bdc7db6ff420d64fd9349e3a1..53e517ce404572c3fa5c8ae238130636269f2f3b 100644 (file)
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -439,7 +439,6 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c

index c71129fbf742401344a4fbe7687047300f71bae5..67ae67bde260c118aabac27d06bad03624cae8d2 100644 (file)
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -439,7 +439,6 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c

index f9ca1b794068919957f32752dc36448a14e7cee2..4ea3c308f360a906b38eb20f9781d778000fa5fb 100644 (file)
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -439,7 +439,6 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c

index 3cd44447e52c7f9fa93d9ff2a9daa032e9dd0154..d786ca2253bc2f58e5aafb690415c54587d9931d 100644 (file)
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -439,7 +439,6 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c

index 5e6d77db7b7e6b71541850e20b0ca3d70adb4ba6..0dcda10d9d7c1bed32f3bb1be5247586dddbf5cf 100644 (file)
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -439,7 +439,6 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c

index 26d76d1d9da9016705e0dd060926bfb8a1c79ae6..b71179044f50352f92c59d2a7b7cf66a2164c582 100644 (file)
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -439,7 +439,6 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c

index 9f987c334e2b63b41a51f3fc57e48b0f12a0a318..f867804a1785427f67eb3af8041afc0c3f2cb2db 100644 (file)
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -439,7 +439,6 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c

index 5799f6cace7609646c5ea557ba3f612e62bad23d..8d09ba5fbb9293a582c9fa6f06ee69d98d5c241e 100644 (file)
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -439,7 +439,6 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c

index 01ca074733c6db704f3a31c663d4925074c25f61..2b8c02b96ef08fa368b5b4588f8930faec4d9a64 100644 (file)
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -439,7 +439,6 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c

index 5c6460c1c4bdf19c07cc93022069cccc6d4907d5..ae5049ab1b6c7da482d42f2b0d62787210a9ebaf 100644 (file)
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -439,7 +439,6 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c

index 20ec151c4bd2fea1c5458806b52071135a4cf971..8d14c2dc871d67c2aeb4a7bcaf9e623f74d29b48 100644 (file)
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -439,7 +439,6 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c

index 800a89dc7dc343b808c774b94c1297e456603e1a..fcb8d0cf72d4af3f5e3237e4443d17769b6628dc 100644 (file)
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -439,7 +439,6 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c

index 17636618057e49f121447d1f10d82af8273d0122..75d43ffcf4ac65fc6a16646b1509a53f9c395f11 100644 (file)
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -439,7 +439,6 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c

index 085f162072c7b707a1e044611e88ae0eb81cf564..49e03203255769409c60914a8a7e03f72e56cb54 100644 (file)
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -439,7 +439,6 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c

index 97ed00bcc9248761c7ad0700ac4b0255324303b4..7104a60506de4975fd3818e1e12650ed4ef0c8c0 100644 (file)
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -439,7 +439,6 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c

index 79520cd315c5e6add0f3ee49b42bd25acdea95ff..ac994015e85239d72e536f969e2a91f404cc0d98 100644 (file)
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -439,7 +439,6 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c

index 768c3ed331dafc87a459c297125e2dde6e5c80d9..73042fd95a108cb2a14d8a17da08eaeb9b3fc92f 100644 (file)
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -439,7 +439,6 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c

index 4543a8d6e1111a85b4133efaa0b17bc0c512f400..2eb44c45a30afa00521be450bb1e94a63acb999c 100644 (file)
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -439,7 +439,6 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c

index 2cac359266dd741e4e2e4d8c12c50d398152c80a..2a52c29d6bf241b058386796c4f1bc76c0cadf91 100644 (file)
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -439,7 +439,6 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c

index 2a0262fe1cf16b6808bc1b7246b2f9d56133a081..a84456d7ccd463e114f2c1e0f6ff32db6f68a044 100644 (file)
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -439,7 +439,6 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c

index c83d08f3c181d9262c73b48bc08d0723395353d3..07f1ba530cfe7ac9f0ee4bdc70e3f192b005340e 100644 (file)
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -439,7 +439,6 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c

index 606084653708e5fb9cb079b0ae7131d70459ae5c..053642a7159bb65e0d491c32a0370dfd6a2d0b6d 100644 (file)
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -439,7 +439,6 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c

index df380f8ba2730b4c7aedc084e6680af67bcac5c8..88f91fd6a4c3ef5bed2de6c67e857b3af90f2523 100644 (file)
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -439,7 +439,6 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -458,7 +457,6 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -467,7 +465,6 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c

index 78ec1c266ad6090b0d0fb2dab41b572e9aa7d506..341fbb787dff3d7c80c5e4e6c69aad7b4d296720 100644 (file)
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -426,7 +426,6 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_1 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c

index d5ea61b2e4f6ecfde6efc98faefd8f081cf81c47..32554df3e8e4c41d5a4dccbbdb801e0792bfa228 100644 (file)
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -426,7 +426,6 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c

index f34efb6cc89473e4003f60ef1e687f9daed16d82..d50d9373e24a3fbb4d5cc316a8a56519266a5ec9 100644 (file)
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -426,7 +426,6 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_2 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c

index f0cf6991fb7611a459a38cf90b416ab63f6210ec..bfcf5435f55fb6f88caa26576aa6beb2cb42e209 100644 (file)
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -426,7 +426,6 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c

index f1ccca56c374603f7ac80b1d88cae9159af2e6ef..242c8b74c3f3e1d8c1b40afe7f91c15a70c6c969 100644 (file)
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -426,7 +426,6 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c

index b97cac68855a45043739b6e97ca28a7d9139c0d0..e99765300781d0104bf8e80d62382f6ced1a6924 100644 (file)
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -426,7 +426,6 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_10 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c

index 0c61a3645f76e2900e0ed4120e3c9dea8f135ddf..539193f5c3d0361865747d47c993f95637ef2a8d 100644 (file)
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -426,7 +426,6 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_16 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c

index a860fb0716e6a35538e12ffb337b4f1dd1acaa72..e782829d0cc97da14a716d0ef9dd79d86cf38efc 100644 (file)
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -426,7 +426,6 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_4 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c

index ebd167b4fa17dc6d57d7684aacf1a3c3399a221f..0496a421e561693f29e7ce2b964c7a064e319be2 100644 (file)
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -426,7 +426,6 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_8 * restrict dest;
    index_type rank;
@@ -445,7 +444,6 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -454,7 +452,6 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c

index cde84b1861437b49204d18d1d8ad44f2945ee604..ee1da3cb90b7b7f71d194a76f4756c860f2a3814 100644 (file)
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -384,7 +384,6 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_10 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c

index 9df23f3a9c47ace0d2b119aab7c8b1944b5c88cf..eeeeb66448ba93a2eccbe3447220285db4409a91 100644 (file)
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -384,7 +384,6 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_16 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c

index 2a7681697fd7e2e402235876d2312f4220f0771d..1a44948b8f037fe32c6d744037410552ef47560d 100644 (file)
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -384,7 +384,6 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_4 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c

index 9be251f92e16ac27e65e4f98bf26d49f3559f170..ad3f11155f0c69ceed67515398470f99c2f06252 100644 (file)
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -384,7 +384,6 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_8 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c

index 336995f358d4bdfb9b0b2c3abc0da6ca9a05efbf..202d0cb4f73485dfbab8e1f1ed38845f68f45b00 100644 (file)
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -384,7 +384,6 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_1 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c

index 51b01e6fd290ecf4dca0b537709d860b68c84c27..5e471863e83910b5fdc76105ed9622639c04897d 100644 (file)
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -384,7 +384,6 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c

index 7024a120ac89dcd45a91f3f493fd3b66d21fcef3..c5bfc293e55b57ac2d7d3d1dcdfabfe963a29e83 100644 (file)
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -384,7 +384,6 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_2 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c

index ccb65f56b7e7d0dae7b944f6ae5c76b360ba16a1..034144531404c15570bacec3772a6dcdc2783797 100644 (file)
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -384,7 +384,6 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c

index e9a8f890d2e2210635452671d8108fd0b0b8bb63..d0bfb858c1cbe8286f026963774c30d919e9eed0 100644 (file)
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -384,7 +384,6 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c

index 081c274c421f8a525b811c78c8629335a8b94d1c..694cc86dacc92e2d56d5ef17046fc8e094d77b22 100644 (file)
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -384,7 +384,6 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_10 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c

index d1bc0333cc275a705743f450cfa6cc1fd43b7fc8..dcad0eda649bed8926c325c5847c3944e0b47061 100644 (file)
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -384,7 +384,6 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_16 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c

index 8228afdef42e3accb9e55e6622d13c216bb275c2..26fad0ddb0e56b3987c2f47034d274325af8de18 100644 (file)
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -384,7 +384,6 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_4 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c

index 825a89f75902d03724524470a8d751127014e049..06ee57d1f180882a78cf6dae233347f6367c3ede 100644 (file)
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -384,7 +384,6 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_8 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c

index 1568e18437ca2335821fcae993027933e1b7e8b0..4008607ea6923a86f61014bae84b38c6b0ffe07d 100644 (file)
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -384,7 +384,6 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_10 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c

index 490182768f857abb09acdeee3c71a89122fb47aa..426eb108866ca2331dcf962a55cbab375677170e 100644 (file)
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -384,7 +384,6 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_16 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c

index 4bd6e428e39ed4141df7fe152fab9dd661ad8071..1991a3e817b50d5d5737e67041dc60ae3c19292e 100644 (file)
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -384,7 +384,6 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_4 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c

index 6512ed2b5a7f53a79d26654fa2b1eb30ec007f4a..3272bbc495390a89fa7bd4d9b717382b3e002d97 100644 (file)
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -384,7 +384,6 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_COMPLEX_8 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c

index 29b724d24e2a14c834dac65177333eea9a2f1f53..df8338d3b87c1604075f364ea58723572b6e6715 100644 (file)
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -384,7 +384,6 @@ ssum_i1 (gfc_array_i1 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_1 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_i1 (gfc_array_i1 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c

index 254431358be5b488fe712a14b702dd6bd234f814..50ff8aba70a60cbf83241efe6773d389691ba839 100644 (file)
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -384,7 +384,6 @@ ssum_i16 (gfc_array_i16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_16 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_i16 (gfc_array_i16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c

index 35d3ae05f3a2ccb00b357994db5589cbbf664c7a..3fb848f2c47d519cc7ddc7194737232a8783ef72 100644 (file)
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -384,7 +384,6 @@ ssum_i2 (gfc_array_i2 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_2 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_i2 (gfc_array_i2 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c

index 0d437ff672abd1560c0d0e06d38be5eff271dd48..7ad317c4846e67809348e8d37ae145e2487013a2 100644 (file)
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -384,7 +384,6 @@ ssum_i4 (gfc_array_i4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_4 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_i4 (gfc_array_i4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c

index 7a3a443da2386c7034248ffed132d45226971bbb..050e596de8a57cc6920d18fc86ce124dedb1c1bd 100644 (file)
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -384,7 +384,6 @@ ssum_i8 (gfc_array_i8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_INTEGER_8 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_i8 (gfc_array_i8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c

index 1386b319de17f103bdec9c24e03d3dfab308962e..333dbb4404c8a5c4d37995fb41d439ac8df85dac 100644 (file)
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -384,7 +384,6 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_10 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c

index 56b2cae0e4eca551d4e81f0d0859853c096a521f..a765758559d12a038d66d9a26adb725d2ce58dd4 100644 (file)
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -384,7 +384,6 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_16 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c

index 12c0c6948a5a84dfc99528c6bad28e21b471c670..235195aa88535e0e740d4e0e688fbbe390717f29 100644 (file)
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -384,7 +384,6 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_4 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c

index 8f1740b15101a41fb5a7b1fdace672862c22e878..d5c5bbbcac79e35f87e1961d80a188d7427c76c6 100644 (file)
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -384,7 +384,6 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    GFC_REAL_8 * restrict dest;
    index_type rank;
@@ -403,7 +402,6 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -412,7 +410,6 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
  
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c

index eb52f069d407a01bc9213168574e5f4c590d46b6..2e24105d485b5603f1472e62c0bb2d1dd6e7b418 100644 (file)
--- a/libgfortran/intrinsics/pack_generic.c
+++ b/libgfortran/intrinsics/pack_generic.c
@@ -87,7 +87,6 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array,
  
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  int zero_sized;
    index_type n;
    index_type dim;
    index_type nelem;
@@ -117,13 +116,10 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array,
    else
      runtime_error ("Funny sized logical array");
  
-  zero_sized = 0;
    for (n = 0; n < dim; n++)
      {
        count[n] = 0;
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
-      if (extent[n] <= 0)
-       zero_sized = 1;
        sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n);
        mstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(mask,n);
      }
diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c

index a457988095a24b74746488e1fa4fcc179a26ab48..2dcef78001e8daa974c4bdc73f01bc2640f72788 100644 (file)
--- a/libgfortran/intrinsics/unpack_generic.c
+++ b/libgfortran/intrinsics/unpack_generic.c
@@ -403,15 +403,13 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
    gfc_array_char tmp;
  
    index_type type_size;
-  index_type size;
  
    if (unlikely(compile_options.bounds_check))
      unpack_bounds (ret, vector, mask, NULL);
  
    type_size = GFC_DTYPE_TYPE_SIZE (vector);
-  size = GFC_DESCRIPTOR_SIZE (vector);
  
-  switch(type_size)
+  switch (type_size)
      {
      case GFC_DTYPE_LOGICAL_1:
      case GFC_DTYPE_INTEGER_1:
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c

index d385b040c9e08de64e2cb07cd96f2d2e3ac76cc9..011d426471b511e8623ff4646902bf97be5cfbab 100644 (file)
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -1287,7 +1287,6 @@ find_file (const char *file, gfc_charlen_type file_len)
    char path[PATH_MAX + 1];
    struct stat st[2];
    gfc_unit *u;
-  uint64_t id;
  
    if (unpack_filename (path, file, file_len))
      return NULL;
@@ -1296,9 +1295,7 @@ find_file (const char *file, gfc_charlen_type file_len)
      return NULL;
  
  #if defined(__MINGW32__) && !HAVE_WORKING_STAT
-  id = id_from_path (path);
-#else
-  id = 0;
+  id_from_path (path);
  #endif
  
    __gthread_mutex_lock (&unit_lock);
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c

index 63482461cc28f0152e7bf83ec83b4f2508a10e6d..fa31b98665bcf5cc68da31522901717f611ab57f 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -1427,10 +1427,8 @@ namelist_write_newline (st_parameter_dt *dtp)
    if (is_array_io (dtp))
      {
        gfc_offset record;
-      int finished, length;
+      int finished;
  
-      length = (int) dtp->u.p.current_unit->bytes_left;
-             
        /* Now that the current record has been padded out,
          determine where the next record in the array is. */
        record = next_array_record (dtp, dtp->u.p.current_unit->ls,
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4

index 3c01ae8fe714b010da20e35413d91530d9df519c..6c34eb9d7ae5cfecd22859360b42afc001e726e9 100644 (file)
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -371,7 +371,6 @@ void
  {
    index_type count[GFC_MAX_DIMENSIONS];
    index_type extent[GFC_MAX_DIMENSIONS];
-  index_type sstride[GFC_MAX_DIMENSIONS];
    index_type dstride[GFC_MAX_DIMENSIONS];
    rtype_name * restrict dest;
    index_type rank;
@@ -390,7 +389,6 @@ void
  
    for (n = 0; n < dim; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n);
        extent[n] = GFC_DESCRIPTOR_EXTENT(array,n);
  
        if (extent[n] <= 0)
@@ -399,7 +397,6 @@ void
  
    for (n = dim; n < rank; n++)
      {
-      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1);
        extent[n] =
         GFC_DESCRIPTOR_EXTENT(array,n + 1);
author	Jakub Jelinek <jakub@redhat.com>
	Sat, 28 Nov 2009 20:29:51 +0000 (21:29 +0100)
committer	Jakub Jelinek <jakub@gcc.gnu.org>
	Sat, 28 Nov 2009 20:29:51 +0000 (21:29 +0100)
libgfortran/ChangeLog		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r8.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r8.c		patch \| blob \| blame \| history
libgfortran/generated/product_c10.c		patch \| blob \| blame \| history
libgfortran/generated/product_c16.c		patch \| blob \| blame \| history
libgfortran/generated/product_c4.c		patch \| blob \| blame \| history
libgfortran/generated/product_c8.c		patch \| blob \| blame \| history
libgfortran/generated/product_i1.c		patch \| blob \| blame \| history
libgfortran/generated/product_i16.c		patch \| blob \| blame \| history
libgfortran/generated/product_i2.c		patch \| blob \| blame \| history
libgfortran/generated/product_i4.c		patch \| blob \| blame \| history
libgfortran/generated/product_i8.c		patch \| blob \| blame \| history
libgfortran/generated/product_r10.c		patch \| blob \| blame \| history
libgfortran/generated/product_r16.c		patch \| blob \| blame \| history
libgfortran/generated/product_r4.c		patch \| blob \| blame \| history
libgfortran/generated/product_r8.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c10.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c16.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c4.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c8.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i1.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i16.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i2.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i4.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i8.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r10.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r16.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r4.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r8.c		patch \| blob \| blame \| history
libgfortran/intrinsics/pack_generic.c		patch \| blob \| blame \| history
libgfortran/intrinsics/unpack_generic.c		patch \| blob \| blame \| history
libgfortran/io/unix.c		patch \| blob \| blame \| history
libgfortran/io/write.c		patch \| blob \| blame \| history
libgfortran/m4/ifunction.m4		patch \| blob \| blame \| history