[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression pointer_assign_14
Mikael Morin
mikael@gcc.gnu.org
Fri Jun 13 14:57:56 GMT 2025
https://gcc.gnu.org/g:8ecafdd855c7743f6664db1b43697511e7526dc8
commit 8ecafdd855c7743f6664db1b43697511e7526dc8
Author: Mikael Morin <mikael@gcc.gnu.org>
Date: Wed Apr 23 12:48:50 2025 +0200
Correction régression pointer_assign_14
Diff:
---
libgfortran/generated/iall_i1.c | 10 +++++++---
libgfortran/generated/iall_i16.c | 10 +++++++---
libgfortran/generated/iall_i2.c | 10 +++++++---
libgfortran/generated/iall_i4.c | 10 +++++++---
libgfortran/generated/iall_i8.c | 10 +++++++---
libgfortran/generated/iany_i1.c | 10 +++++++---
libgfortran/generated/iany_i16.c | 10 +++++++---
libgfortran/generated/iany_i2.c | 10 +++++++---
libgfortran/generated/iany_i4.c | 10 +++++++---
libgfortran/generated/iany_i8.c | 10 +++++++---
libgfortran/generated/iparity_i1.c | 10 +++++++---
libgfortran/generated/iparity_i16.c | 10 +++++++---
libgfortran/generated/iparity_i2.c | 10 +++++++---
libgfortran/generated/iparity_i4.c | 10 +++++++---
libgfortran/generated/iparity_i8.c | 10 +++++++---
libgfortran/generated/maxloc1_16_i1.c | 10 +++++++---
libgfortran/generated/maxloc1_16_i16.c | 10 +++++++---
libgfortran/generated/maxloc1_16_i2.c | 10 +++++++---
libgfortran/generated/maxloc1_16_i4.c | 10 +++++++---
libgfortran/generated/maxloc1_16_m1.c | 10 +++++++---
libgfortran/generated/maxloc1_16_m2.c | 10 +++++++---
libgfortran/generated/maxloc1_16_m4.c | 10 +++++++---
libgfortran/generated/maxloc1_16_m8.c | 10 +++++++---
libgfortran/generated/maxloc1_16_r10.c | 10 +++++++---
libgfortran/generated/maxloc1_16_r16.c | 10 +++++++---
libgfortran/generated/maxloc1_16_r17.c | 10 +++++++---
libgfortran/generated/maxloc1_16_r4.c | 10 +++++++---
libgfortran/generated/maxloc1_16_r8.c | 10 +++++++---
libgfortran/generated/maxloc1_4_i1.c | 10 +++++++---
libgfortran/generated/maxloc1_4_i2.c | 10 +++++++---
libgfortran/generated/maxloc1_4_i4.c | 10 +++++++---
libgfortran/generated/maxloc1_4_m1.c | 10 +++++++---
libgfortran/generated/maxloc1_4_m16.c | 10 +++++++---
libgfortran/generated/maxloc1_4_m2.c | 10 +++++++---
libgfortran/generated/maxloc1_4_m4.c | 10 +++++++---
libgfortran/generated/maxloc1_4_m8.c | 10 +++++++---
libgfortran/generated/maxloc1_4_r10.c | 10 +++++++---
libgfortran/generated/maxloc1_4_r16.c | 10 +++++++---
libgfortran/generated/maxloc1_4_r17.c | 10 +++++++---
libgfortran/generated/maxloc1_4_r4.c | 10 +++++++---
libgfortran/generated/maxloc1_4_r8.c | 10 +++++++---
libgfortran/generated/maxloc1_8_i1.c | 10 +++++++---
libgfortran/generated/maxloc1_8_i2.c | 10 +++++++---
libgfortran/generated/maxloc1_8_i4.c | 10 +++++++---
libgfortran/generated/maxloc1_8_m1.c | 10 +++++++---
libgfortran/generated/maxloc1_8_m16.c | 10 +++++++---
libgfortran/generated/maxloc1_8_m2.c | 10 +++++++---
libgfortran/generated/maxloc1_8_m4.c | 10 +++++++---
libgfortran/generated/maxloc1_8_m8.c | 10 +++++++---
libgfortran/generated/maxloc1_8_r10.c | 10 +++++++---
libgfortran/generated/maxloc1_8_r16.c | 10 +++++++---
libgfortran/generated/maxloc1_8_r17.c | 10 +++++++---
libgfortran/generated/maxloc1_8_r4.c | 10 +++++++---
libgfortran/generated/maxloc1_8_r8.c | 10 +++++++---
libgfortran/generated/maxval_i1.c | 14 ++++++++++----
libgfortran/generated/maxval_i16.c | 14 ++++++++++----
libgfortran/generated/maxval_i2.c | 14 ++++++++++----
libgfortran/generated/maxval_i4.c | 14 ++++++++++----
libgfortran/generated/maxval_i8.c | 14 ++++++++++----
libgfortran/generated/maxval_m1.c | 14 ++++++++++----
libgfortran/generated/maxval_m16.c | 14 ++++++++++----
libgfortran/generated/maxval_m2.c | 14 ++++++++++----
libgfortran/generated/maxval_m4.c | 14 ++++++++++----
libgfortran/generated/maxval_m8.c | 14 ++++++++++----
libgfortran/generated/maxval_r10.c | 14 ++++++++++----
libgfortran/generated/maxval_r16.c | 14 ++++++++++----
libgfortran/generated/maxval_r17.c | 14 ++++++++++----
libgfortran/generated/maxval_r4.c | 14 ++++++++++----
libgfortran/generated/maxval_r8.c | 14 ++++++++++----
libgfortran/generated/minloc1_16_i1.c | 10 +++++++---
libgfortran/generated/minloc1_16_i16.c | 10 +++++++---
libgfortran/generated/minloc1_16_i2.c | 10 +++++++---
libgfortran/generated/minloc1_16_i4.c | 10 +++++++---
libgfortran/generated/minloc1_16_i8.c | 10 +++++++---
libgfortran/generated/minloc1_16_m1.c | 10 +++++++---
libgfortran/generated/minloc1_16_m16.c | 10 +++++++---
libgfortran/generated/minloc1_16_m2.c | 10 +++++++---
libgfortran/generated/minloc1_16_m4.c | 10 +++++++---
libgfortran/generated/minloc1_16_m8.c | 10 +++++++---
libgfortran/generated/minloc1_16_r10.c | 10 +++++++---
libgfortran/generated/minloc1_16_r16.c | 10 +++++++---
libgfortran/generated/minloc1_16_r17.c | 10 +++++++---
libgfortran/generated/minloc1_16_r4.c | 10 +++++++---
libgfortran/generated/minloc1_16_r8.c | 10 +++++++---
libgfortran/generated/minloc1_4_i1.c | 10 +++++++---
libgfortran/generated/minloc1_4_i16.c | 10 +++++++---
libgfortran/generated/minloc1_4_i2.c | 10 +++++++---
libgfortran/generated/minloc1_4_i4.c | 10 +++++++---
libgfortran/generated/minloc1_4_i8.c | 10 +++++++---
libgfortran/generated/minloc1_4_m1.c | 10 +++++++---
libgfortran/generated/minloc1_4_m16.c | 10 +++++++---
libgfortran/generated/minloc1_4_m2.c | 10 +++++++---
libgfortran/generated/minloc1_4_m4.c | 10 +++++++---
libgfortran/generated/minloc1_4_m8.c | 10 +++++++---
libgfortran/generated/minloc1_4_r10.c | 10 +++++++---
libgfortran/generated/minloc1_4_r16.c | 10 +++++++---
libgfortran/generated/minloc1_4_r17.c | 10 +++++++---
libgfortran/generated/minloc1_4_r4.c | 10 +++++++---
libgfortran/generated/minloc1_4_r8.c | 10 +++++++---
libgfortran/generated/minloc1_8_i1.c | 10 +++++++---
libgfortran/generated/minloc1_8_i16.c | 10 +++++++---
libgfortran/generated/minloc1_8_i2.c | 10 +++++++---
libgfortran/generated/minloc1_8_i4.c | 10 +++++++---
libgfortran/generated/minloc1_8_i8.c | 10 +++++++---
libgfortran/generated/minloc1_8_m1.c | 10 +++++++---
libgfortran/generated/minloc1_8_m16.c | 10 +++++++---
libgfortran/generated/minloc1_8_m2.c | 10 +++++++---
libgfortran/generated/minloc1_8_m4.c | 10 +++++++---
libgfortran/generated/minloc1_8_m8.c | 10 +++++++---
libgfortran/generated/minloc1_8_r10.c | 10 +++++++---
libgfortran/generated/minloc1_8_r16.c | 10 +++++++---
libgfortran/generated/minloc1_8_r17.c | 10 +++++++---
libgfortran/generated/minloc1_8_r4.c | 10 +++++++---
libgfortran/generated/minloc1_8_r8.c | 10 +++++++---
libgfortran/generated/minval_i1.c | 10 +++++++---
libgfortran/generated/minval_i16.c | 10 +++++++---
libgfortran/generated/minval_i2.c | 10 +++++++---
libgfortran/generated/minval_i4.c | 10 +++++++---
libgfortran/generated/minval_i8.c | 10 +++++++---
libgfortran/generated/minval_m1.c | 10 +++++++---
libgfortran/generated/minval_m16.c | 10 +++++++---
libgfortran/generated/minval_m2.c | 10 +++++++---
libgfortran/generated/minval_m4.c | 10 +++++++---
libgfortran/generated/minval_m8.c | 10 +++++++---
libgfortran/generated/minval_r10.c | 10 +++++++---
libgfortran/generated/minval_r16.c | 10 +++++++---
libgfortran/generated/minval_r17.c | 10 +++++++---
libgfortran/generated/minval_r4.c | 10 +++++++---
libgfortran/generated/minval_r8.c | 10 +++++++---
libgfortran/generated/norm2_r10.c | 4 +++-
libgfortran/generated/norm2_r16.c | 4 +++-
libgfortran/generated/norm2_r17.c | 4 +++-
libgfortran/generated/norm2_r4.c | 4 +++-
libgfortran/generated/norm2_r8.c | 4 +++-
libgfortran/generated/parity_l1.c | 4 +++-
libgfortran/generated/parity_l16.c | 4 +++-
libgfortran/generated/parity_l2.c | 4 +++-
libgfortran/generated/parity_l4.c | 4 +++-
libgfortran/generated/parity_l8.c | 4 +++-
libgfortran/generated/product_c10.c | 10 +++++++---
libgfortran/generated/product_c16.c | 10 +++++++---
libgfortran/generated/product_c17.c | 10 +++++++---
libgfortran/generated/product_c4.c | 10 +++++++---
libgfortran/generated/product_c8.c | 10 +++++++---
libgfortran/generated/product_i1.c | 10 +++++++---
libgfortran/generated/product_i16.c | 10 +++++++---
libgfortran/generated/product_i2.c | 10 +++++++---
libgfortran/generated/product_i4.c | 10 +++++++---
libgfortran/generated/product_i8.c | 10 +++++++---
libgfortran/generated/product_r10.c | 10 +++++++---
libgfortran/generated/product_r16.c | 10 +++++++---
libgfortran/generated/product_r17.c | 10 +++++++---
libgfortran/generated/product_r4.c | 10 +++++++---
libgfortran/generated/product_r8.c | 10 +++++++---
libgfortran/generated/sum_c10.c | 10 +++++++---
libgfortran/generated/sum_c16.c | 10 +++++++---
libgfortran/generated/sum_c17.c | 10 +++++++---
libgfortran/generated/sum_c4.c | 10 +++++++---
libgfortran/generated/sum_c8.c | 10 +++++++---
libgfortran/generated/sum_i1.c | 10 +++++++---
libgfortran/generated/sum_i16.c | 10 +++++++---
libgfortran/generated/sum_i2.c | 10 +++++++---
libgfortran/generated/sum_i4.c | 10 +++++++---
libgfortran/generated/sum_i8.c | 10 +++++++---
libgfortran/generated/sum_r10.c | 10 +++++++---
libgfortran/generated/sum_r16.c | 10 +++++++---
libgfortran/generated/sum_r17.c | 10 +++++++---
libgfortran/generated/sum_r4.c | 10 +++++++---
libgfortran/generated/sum_r8.c | 10 +++++++---
libgfortran/m4/ifunction.m4 | 12 ++++++++----
libgfortran/m4/maxval.m4 | 4 +++-
171 files changed, 1199 insertions(+), 507 deletions(-)
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c
index 686e36cb08e7..d9dcfab3e74b 100644
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -146,11 +146,13 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result &= *src;
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
{
result = (GFC_INTEGER_1) -1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result &= *src;
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c
index b51e342325eb..cf205f5f8db7 100644
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -146,11 +146,13 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result &= *src;
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
{
result = (GFC_INTEGER_16) -1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result &= *src;
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c
index 04b75a97987a..e25e8d611993 100644
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -146,11 +146,13 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result &= *src;
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
{
result = (GFC_INTEGER_2) -1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result &= *src;
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c
index 1c30f13944bb..322391bdcc47 100644
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -146,11 +146,13 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result &= *src;
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
{
result = (GFC_INTEGER_4) -1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result &= *src;
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c
index 3413dbad4e2c..7a8ef615d319 100644
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -146,11 +146,13 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result &= *src;
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
{
result = (GFC_INTEGER_8) -1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result &= *src;
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c
index 726bf985190e..b0c352b3f193 100644
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -146,11 +146,13 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result |= *src;
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result |= *src;
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c
index 9b14a9a6ad34..039d2fd8ef69 100644
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -146,11 +146,13 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result |= *src;
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result |= *src;
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c
index 793e41a63757..d72bea419887 100644
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -146,11 +146,13 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result |= *src;
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result |= *src;
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c
index 0df8b3142e99..6128452e35c5 100644
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -146,11 +146,13 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result |= *src;
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result |= *src;
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c
index d3cf167e940e..9e9fc4b2a9c3 100644
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -146,11 +146,13 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result |= *src;
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result |= *src;
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c
index 2fb5d0c62edf..44e6a13bab32 100644
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -146,11 +146,13 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result ^= *src;
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result ^= *src;
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c
index accdda712033..4e4f0d0ae67b 100644
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -146,11 +146,13 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result ^= *src;
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result ^= *src;
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c
index 0e35d7ffbf7c..7003b12678e6 100644
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -146,11 +146,13 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result ^= *src;
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result ^= *src;
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c
index b96578dd382b..515fad9cde0e 100644
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -146,11 +146,13 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result ^= *src;
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result ^= *src;
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c
index aee16e50c890..3d395da27e28 100644
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -146,11 +146,13 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result ^= *src;
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result ^= *src;
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c
index f908f065a719..f8e05af89e51 100644
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -155,7 +155,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c
index d35bbd067cf3..26d6783b3e5e 100644
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -155,7 +155,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c
index 29698552e091..300426dc2c2c 100644
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -155,7 +155,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c
index 07d245ed8dd1..5d83f4852b95 100644
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -155,7 +155,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_m1.c b/libgfortran/generated/maxloc1_16_m1.c
index e8bbe4fe0c75..5137491bb9a0 100644
--- a/libgfortran/generated/maxloc1_16_m1.c
+++ b/libgfortran/generated/maxloc1_16_m1.c
@@ -155,7 +155,7 @@ maxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_m2.c b/libgfortran/generated/maxloc1_16_m2.c
index ef5936e9487c..f4e659261e07 100644
--- a/libgfortran/generated/maxloc1_16_m2.c
+++ b/libgfortran/generated/maxloc1_16_m2.c
@@ -155,7 +155,7 @@ maxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_m4.c b/libgfortran/generated/maxloc1_16_m4.c
index 80aa44d226e4..ae175fdcd980 100644
--- a/libgfortran/generated/maxloc1_16_m4.c
+++ b/libgfortran/generated/maxloc1_16_m4.c
@@ -155,7 +155,7 @@ maxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_m8.c b/libgfortran/generated/maxloc1_16_m8.c
index 8bcca959d51a..10cc0ff35e4f 100644
--- a/libgfortran/generated/maxloc1_16_m8.c
+++ b/libgfortran/generated/maxloc1_16_m8.c
@@ -155,7 +155,7 @@ maxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c
index b5102d5fd75d..fe920ce53882 100644
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -155,7 +155,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c
index a7447b2f56f7..da1f7460350f 100644
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -155,7 +155,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c
index 5abf6a464f40..1d760d30ee9f 100644
--- a/libgfortran/generated/maxloc1_16_r17.c
+++ b/libgfortran/generated/maxloc1_16_r17.c
@@ -155,7 +155,7 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c
index b1c6180d41f6..4242273aad09 100644
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -155,7 +155,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c
index 90168875ab39..ad7a3bb0e571 100644
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -155,7 +155,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_16)n + 1;
}
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c
index a9c78b787743..a7e3b4d39352 100644
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -155,7 +155,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c
index fee0210adf85..8919738a188d 100644
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -155,7 +155,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c
index b728b8fd4bcc..475d7cc4cbce 100644
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -155,7 +155,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_m1.c b/libgfortran/generated/maxloc1_4_m1.c
index 592e2a319e29..51a968f8d605 100644
--- a/libgfortran/generated/maxloc1_4_m1.c
+++ b/libgfortran/generated/maxloc1_4_m1.c
@@ -155,7 +155,7 @@ maxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_m16.c b/libgfortran/generated/maxloc1_4_m16.c
index a858637a8a08..e9e1dac1b91e 100644
--- a/libgfortran/generated/maxloc1_4_m16.c
+++ b/libgfortran/generated/maxloc1_4_m16.c
@@ -155,7 +155,7 @@ maxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_m2.c b/libgfortran/generated/maxloc1_4_m2.c
index 7c3b63cc7cf5..605abc92f0a0 100644
--- a/libgfortran/generated/maxloc1_4_m2.c
+++ b/libgfortran/generated/maxloc1_4_m2.c
@@ -155,7 +155,7 @@ maxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_m4.c b/libgfortran/generated/maxloc1_4_m4.c
index ce23f115ab49..87a9889ebeb6 100644
--- a/libgfortran/generated/maxloc1_4_m4.c
+++ b/libgfortran/generated/maxloc1_4_m4.c
@@ -155,7 +155,7 @@ maxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_m8.c b/libgfortran/generated/maxloc1_4_m8.c
index e6ce27983d75..f74063028214 100644
--- a/libgfortran/generated/maxloc1_4_m8.c
+++ b/libgfortran/generated/maxloc1_4_m8.c
@@ -155,7 +155,7 @@ maxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c
index e67763e94433..b24204a89a97 100644
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -155,7 +155,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c
index ffaa959eff06..f185c69efaae 100644
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -155,7 +155,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c
index f39a03dd8acd..4bf12e3dc3fa 100644
--- a/libgfortran/generated/maxloc1_4_r17.c
+++ b/libgfortran/generated/maxloc1_4_r17.c
@@ -155,7 +155,7 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c
index b5e1ecc901df..fde3e55d31b6 100644
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -155,7 +155,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index 4174a590850e..86c75adf4393 100644
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -155,7 +155,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_4)n + 1;
}
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c
index 22629a3719e4..3e7652b82026 100644
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -155,7 +155,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c
index 069ae09308c0..20739d374f43 100644
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -155,7 +155,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c
index 45dc3fe71a95..d75ab3f6e2f3 100644
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -155,7 +155,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_m1.c b/libgfortran/generated/maxloc1_8_m1.c
index 95d63a6158d0..4a9983bb0114 100644
--- a/libgfortran/generated/maxloc1_8_m1.c
+++ b/libgfortran/generated/maxloc1_8_m1.c
@@ -155,7 +155,7 @@ maxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_m16.c b/libgfortran/generated/maxloc1_8_m16.c
index 472c714ab411..6db86ae3a4ea 100644
--- a/libgfortran/generated/maxloc1_8_m16.c
+++ b/libgfortran/generated/maxloc1_8_m16.c
@@ -155,7 +155,7 @@ maxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_m2.c b/libgfortran/generated/maxloc1_8_m2.c
index b6b79e680d17..aa841ab2c44c 100644
--- a/libgfortran/generated/maxloc1_8_m2.c
+++ b/libgfortran/generated/maxloc1_8_m2.c
@@ -155,7 +155,7 @@ maxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_m4.c b/libgfortran/generated/maxloc1_8_m4.c
index 545b822c3307..40805e84faa9 100644
--- a/libgfortran/generated/maxloc1_8_m4.c
+++ b/libgfortran/generated/maxloc1_8_m4.c
@@ -155,7 +155,7 @@ maxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_m8.c b/libgfortran/generated/maxloc1_8_m8.c
index ecb1d315e176..41d4da07134d 100644
--- a/libgfortran/generated/maxloc1_8_m8.c
+++ b/libgfortran/generated/maxloc1_8_m8.c
@@ -155,7 +155,7 @@ maxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c
index fc99d251cde5..7f8ad281a2ce 100644
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -155,7 +155,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c
index fe7e70689cdb..e6b70b332385 100644
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -155,7 +155,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c
index f49efec8862a..224a55b29c9f 100644
--- a/libgfortran/generated/maxloc1_8_r17.c
+++ b/libgfortran/generated/maxloc1_8_r17.c
@@ -155,7 +155,7 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c
index d0392e236afa..59909ef16388 100644
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -155,7 +155,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c
index 06f37ded4706..6d110650dcea 100644
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -155,7 +155,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -372,7 +374,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -411,7 +413,9 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
maxval = *src;
result = (GFC_INTEGER_8)n + 1;
}
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c
index 00e57d63e8ca..1f93babb46f6 100644
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -150,21 +150,25 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_INTEGER_1_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_INTEGER_1_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
#if defined (GFC_INTEGER_1_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_1_INFINITY) || defined (GFC_INTEGER_1_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c
index 9552f9ff7f4a..faf6b5f4bfe7 100644
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -150,21 +150,25 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_INTEGER_16_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_INTEGER_16_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
#if defined (GFC_INTEGER_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_16_INFINITY) || defined (GFC_INTEGER_16_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c
index c20e8beadcc5..0c7f3cc64a57 100644
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -150,21 +150,25 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_INTEGER_2_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_INTEGER_2_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
#if defined (GFC_INTEGER_2_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_2_INFINITY) || defined (GFC_INTEGER_2_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c
index 7588d2283b56..9f5e8089d377 100644
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -150,21 +150,25 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_INTEGER_4_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_INTEGER_4_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
#if defined (GFC_INTEGER_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_4_INFINITY) || defined (GFC_INTEGER_4_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c
index 90110bb6c83d..57e83a02720d 100644
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -150,21 +150,25 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_INTEGER_8_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_INTEGER_8_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
#if defined (GFC_INTEGER_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_8_INFINITY) || defined (GFC_INTEGER_8_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_m1.c b/libgfortran/generated/maxval_m1.c
index 7490e446cfab..63914088083d 100644
--- a/libgfortran/generated/maxval_m1.c
+++ b/libgfortran/generated/maxval_m1.c
@@ -150,21 +150,25 @@ maxval_m1 (gfc_array_m1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_UINTEGER_1_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_UINTEGER_1_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray,
#if defined (GFC_UINTEGER_1_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_1_INFINITY) || defined (GFC_UINTEGER_1_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_m16.c b/libgfortran/generated/maxval_m16.c
index 0c2e6f618c7e..5ed072cdfe18 100644
--- a/libgfortran/generated/maxval_m16.c
+++ b/libgfortran/generated/maxval_m16.c
@@ -150,21 +150,25 @@ maxval_m16 (gfc_array_m16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_UINTEGER_16_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_UINTEGER_16_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray,
#if defined (GFC_UINTEGER_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_16_INFINITY) || defined (GFC_UINTEGER_16_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_m2.c b/libgfortran/generated/maxval_m2.c
index 5ba28369fed3..e598d3766839 100644
--- a/libgfortran/generated/maxval_m2.c
+++ b/libgfortran/generated/maxval_m2.c
@@ -150,21 +150,25 @@ maxval_m2 (gfc_array_m2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_UINTEGER_2_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_UINTEGER_2_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray,
#if defined (GFC_UINTEGER_2_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_2_INFINITY) || defined (GFC_UINTEGER_2_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_m4.c b/libgfortran/generated/maxval_m4.c
index 898570ce7fd6..a29c2cb1af30 100644
--- a/libgfortran/generated/maxval_m4.c
+++ b/libgfortran/generated/maxval_m4.c
@@ -150,21 +150,25 @@ maxval_m4 (gfc_array_m4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_UINTEGER_4_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_UINTEGER_4_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray,
#if defined (GFC_UINTEGER_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_4_INFINITY) || defined (GFC_UINTEGER_4_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_m8.c b/libgfortran/generated/maxval_m8.c
index 59306944c2ae..96570159097d 100644
--- a/libgfortran/generated/maxval_m8.c
+++ b/libgfortran/generated/maxval_m8.c
@@ -150,21 +150,25 @@ maxval_m8 (gfc_array_m8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_UINTEGER_8_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_UINTEGER_8_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray,
#if defined (GFC_UINTEGER_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_8_INFINITY) || defined (GFC_UINTEGER_8_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c
index 1b9c1160f314..fbdd4df32db0 100644
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -150,21 +150,25 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_REAL_10_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_REAL_10_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
#if defined (GFC_REAL_10_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_10_INFINITY) || defined (GFC_REAL_10_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c
index 967c970c6ecf..b1667d09556f 100644
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -150,21 +150,25 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_REAL_16_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_REAL_16_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
#if defined (GFC_REAL_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_16_INFINITY) || defined (GFC_REAL_16_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c
index d5af866580f1..d56fe2a6164e 100644
--- a/libgfortran/generated/maxval_r17.c
+++ b/libgfortran/generated/maxval_r17.c
@@ -150,21 +150,25 @@ maxval_r17 (gfc_array_r17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_REAL_17_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_REAL_17_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
#if defined (GFC_REAL_17_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_17_INFINITY) || defined (GFC_REAL_17_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c
index 4261d8fdfa61..34f5f09cc0ac 100644
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -150,21 +150,25 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_REAL_4_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_REAL_4_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
#if defined (GFC_REAL_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_4_INFINITY) || defined (GFC_REAL_4_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index 2e2b4bd1b3a0..ae8318200256 100644
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -150,21 +150,25 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
#if defined (GFC_REAL_8_QUIET_NAN)
if (*src >= result)
break;
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = GFC_REAL_8_QUIET_NAN;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
result = *src;
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +360,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
#if defined (GFC_REAL_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_8_INFINITY) || defined (GFC_REAL_8_QUIET_NAN)
@@ -382,7 +386,9 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
#endif
if (*msrc && *src > result)
result = *src;
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c
index f23347f7764f..bd46284f5f92 100644
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -155,7 +155,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c
index 70c53280bc26..ed26f118c590 100644
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -155,7 +155,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c
index 480863456686..7d89aba7fafa 100644
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -155,7 +155,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c
index 292870719e74..f57a33749a6c 100644
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -155,7 +155,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c
index 0ba2bdbc7592..e6de1fb29f5a 100644
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -155,7 +155,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_m1.c b/libgfortran/generated/minloc1_16_m1.c
index fe9d912167e9..0965f60a54c6 100644
--- a/libgfortran/generated/minloc1_16_m1.c
+++ b/libgfortran/generated/minloc1_16_m1.c
@@ -155,7 +155,7 @@ minloc1_16_m1 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_m1 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_m1 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_m1 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_m16.c b/libgfortran/generated/minloc1_16_m16.c
index f1760d25b577..7a22d191e5a1 100644
--- a/libgfortran/generated/minloc1_16_m16.c
+++ b/libgfortran/generated/minloc1_16_m16.c
@@ -155,7 +155,7 @@ minloc1_16_m16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_m16 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_m16 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_m16 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_m2.c b/libgfortran/generated/minloc1_16_m2.c
index 2dcd54d7c0fd..9528f9efb377 100644
--- a/libgfortran/generated/minloc1_16_m2.c
+++ b/libgfortran/generated/minloc1_16_m2.c
@@ -155,7 +155,7 @@ minloc1_16_m2 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_m2 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_m2 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_m2 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_m4.c b/libgfortran/generated/minloc1_16_m4.c
index 34c20e41dd69..1bc23eb41dd4 100644
--- a/libgfortran/generated/minloc1_16_m4.c
+++ b/libgfortran/generated/minloc1_16_m4.c
@@ -155,7 +155,7 @@ minloc1_16_m4 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_m4 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_m4 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_m4 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_m8.c b/libgfortran/generated/minloc1_16_m8.c
index 8bb10de32c6f..64c6e2f8723d 100644
--- a/libgfortran/generated/minloc1_16_m8.c
+++ b/libgfortran/generated/minloc1_16_m8.c
@@ -155,7 +155,7 @@ minloc1_16_m8 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_m8 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_m8 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_m8 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c
index b165e0645015..a1a462528bfb 100644
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -155,7 +155,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c
index 02f7e7884e60..614fa0807164 100644
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -155,7 +155,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c
index 188ee0aef6b1..88d76539c071 100644
--- a/libgfortran/generated/minloc1_16_r17.c
+++ b/libgfortran/generated/minloc1_16_r17.c
@@ -155,7 +155,7 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c
index f7731596dc3d..8f91a59c1145 100644
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -155,7 +155,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c
index 1ee938bfe05e..3e2b3c9abe65 100644
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -155,7 +155,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
GFC_INTEGER_16 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_16) n + 1;
}
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c
index b446e443738d..2874a1c67f62 100644
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -155,7 +155,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c
index f3a967d91f37..a01cc83b7485 100644
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -155,7 +155,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c
index 7c60b9fa1d29..81070f34a4c1 100644
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -155,7 +155,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c
index 1a66354d4b76..e35c837cff0d 100644
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -155,7 +155,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c
index 1a4be69d2188..bec11e23994a 100644
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -155,7 +155,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_m1.c b/libgfortran/generated/minloc1_4_m1.c
index 11b970faeedd..e6dc833cd836 100644
--- a/libgfortran/generated/minloc1_4_m1.c
+++ b/libgfortran/generated/minloc1_4_m1.c
@@ -155,7 +155,7 @@ minloc1_4_m1 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_m1 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_m1 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_m1 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_m16.c b/libgfortran/generated/minloc1_4_m16.c
index 941f45d4d7a4..19b81d9b77cf 100644
--- a/libgfortran/generated/minloc1_4_m16.c
+++ b/libgfortran/generated/minloc1_4_m16.c
@@ -155,7 +155,7 @@ minloc1_4_m16 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_m16 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_m16 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_m16 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_m2.c b/libgfortran/generated/minloc1_4_m2.c
index aba604bfc2ca..84dcf23ab0fb 100644
--- a/libgfortran/generated/minloc1_4_m2.c
+++ b/libgfortran/generated/minloc1_4_m2.c
@@ -155,7 +155,7 @@ minloc1_4_m2 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_m2 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_m2 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_m2 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_m4.c b/libgfortran/generated/minloc1_4_m4.c
index 845069075c76..f7b4755e4fba 100644
--- a/libgfortran/generated/minloc1_4_m4.c
+++ b/libgfortran/generated/minloc1_4_m4.c
@@ -155,7 +155,7 @@ minloc1_4_m4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_m4 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_m4 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_m4 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_m8.c b/libgfortran/generated/minloc1_4_m8.c
index 8409646504b1..c1a15c97dd76 100644
--- a/libgfortran/generated/minloc1_4_m8.c
+++ b/libgfortran/generated/minloc1_4_m8.c
@@ -155,7 +155,7 @@ minloc1_4_m8 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_m8 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_m8 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_m8 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c
index 96d3b76c2f77..929509a5ae00 100644
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -155,7 +155,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c
index efdb33b694b8..037b1d0758c6 100644
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -155,7 +155,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c
index 8108d6b0ad06..3d5746c7601d 100644
--- a/libgfortran/generated/minloc1_4_r17.c
+++ b/libgfortran/generated/minloc1_4_r17.c
@@ -155,7 +155,7 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c
index 5a0f59ba615e..e1c6bd1b6f59 100644
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -155,7 +155,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c
index d209c40d2ebf..eb335dc5b38d 100644
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -155,7 +155,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
GFC_INTEGER_4 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_4) n + 1;
}
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c
index b04796239388..6993f48144fe 100644
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -155,7 +155,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c
index e3085afba669..0150bee22195 100644
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -155,7 +155,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c
index 93cccbbd1e7b..e0d2bd31d045 100644
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -155,7 +155,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c
index c6755b3e1c00..08ca9f27e04c 100644
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -155,7 +155,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c
index 61dbc38d5606..2c5b77f072e7 100644
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -155,7 +155,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_m1.c b/libgfortran/generated/minloc1_8_m1.c
index 6038e3e77885..34e122a3d71a 100644
--- a/libgfortran/generated/minloc1_8_m1.c
+++ b/libgfortran/generated/minloc1_8_m1.c
@@ -155,7 +155,7 @@ minloc1_8_m1 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_m1 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_m1 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_m1 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_m16.c b/libgfortran/generated/minloc1_8_m16.c
index 20ea9145a0a9..165aef0f6609 100644
--- a/libgfortran/generated/minloc1_8_m16.c
+++ b/libgfortran/generated/minloc1_8_m16.c
@@ -155,7 +155,7 @@ minloc1_8_m16 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_m16 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_m16 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_m16 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_m2.c b/libgfortran/generated/minloc1_8_m2.c
index 66ada1beebce..9a7b96c6bfd9 100644
--- a/libgfortran/generated/minloc1_8_m2.c
+++ b/libgfortran/generated/minloc1_8_m2.c
@@ -155,7 +155,7 @@ minloc1_8_m2 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_m2 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_m2 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_m2 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_m4.c b/libgfortran/generated/minloc1_8_m4.c
index a2d799794a47..181ee7eb2309 100644
--- a/libgfortran/generated/minloc1_8_m4.c
+++ b/libgfortran/generated/minloc1_8_m4.c
@@ -155,7 +155,7 @@ minloc1_8_m4 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_m4 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_m4 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_m4 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_m8.c b/libgfortran/generated/minloc1_8_m8.c
index 1e9dcbda9520..a6b0bf6ca963 100644
--- a/libgfortran/generated/minloc1_8_m8.c
+++ b/libgfortran/generated/minloc1_8_m8.c
@@ -155,7 +155,7 @@ minloc1_8_m8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_m8 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_m8 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_m8 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c
index 30e9bb649e9f..a9152c64801a 100644
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -155,7 +155,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c
index 5bfb89bf5114..271e034433ba 100644
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -155,7 +155,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c
index 37f4c88be50f..b1e5451c4d21 100644
--- a/libgfortran/generated/minloc1_8_r17.c
+++ b/libgfortran/generated/minloc1_8_r17.c
@@ -155,7 +155,7 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c
index 7ffc4e24871d..a9d41ee39592 100644
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -155,7 +155,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index b87131b749ba..aa4f0bf91b81 100644
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -155,7 +155,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -189,6 +189,8 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -382,7 +384,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
GFC_INTEGER_8 result2 = 0;
#endif
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
@@ -421,7 +423,9 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
minval = *src;
result = (GFC_INTEGER_8) n + 1;
}
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c
index 78ee7f849df7..60365662dd9d 100644
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -150,7 +150,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
#if defined (GFC_INTEGER_1_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_1_INFINITY) || defined (GFC_INTEGER_1_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c
index be156a78cf45..842a2ea511b9 100644
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -150,7 +150,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
#if defined (GFC_INTEGER_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_16_INFINITY) || defined (GFC_INTEGER_16_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c
index 521ba66b9531..6efc659efe1b 100644
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -150,7 +150,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
#if defined (GFC_INTEGER_2_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_2_INFINITY) || defined (GFC_INTEGER_2_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c
index d507b13a6d55..8d65f97e3a07 100644
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -150,7 +150,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
#if defined (GFC_INTEGER_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_4_INFINITY) || defined (GFC_INTEGER_4_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index 6cc8f77d8b93..c34b32ea1ab9 100644
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -150,7 +150,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
#if defined (GFC_INTEGER_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_INTEGER_8_INFINITY) || defined (GFC_INTEGER_8_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_INTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_m1.c b/libgfortran/generated/minval_m1.c
index 5625cf729ec5..b1c70c658292 100644
--- a/libgfortran/generated/minval_m1.c
+++ b/libgfortran/generated/minval_m1.c
@@ -150,7 +150,7 @@ minval_m1 (gfc_array_m1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_m1 (gfc_array_m1 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_m1 (gfc_array_m1 * const restrict retarray,
#if defined (GFC_UINTEGER_1_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_1_INFINITY) || defined (GFC_UINTEGER_1_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_m1 (gfc_array_m1 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_m16.c b/libgfortran/generated/minval_m16.c
index 2e5e2412a13a..4e3e82a51b95 100644
--- a/libgfortran/generated/minval_m16.c
+++ b/libgfortran/generated/minval_m16.c
@@ -150,7 +150,7 @@ minval_m16 (gfc_array_m16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_m16 (gfc_array_m16 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_m16 (gfc_array_m16 * const restrict retarray,
#if defined (GFC_UINTEGER_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_16_INFINITY) || defined (GFC_UINTEGER_16_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_m16 (gfc_array_m16 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_m2.c b/libgfortran/generated/minval_m2.c
index 40da89817887..709286bf8682 100644
--- a/libgfortran/generated/minval_m2.c
+++ b/libgfortran/generated/minval_m2.c
@@ -150,7 +150,7 @@ minval_m2 (gfc_array_m2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_m2 (gfc_array_m2 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_m2 (gfc_array_m2 * const restrict retarray,
#if defined (GFC_UINTEGER_2_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_2_INFINITY) || defined (GFC_UINTEGER_2_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_m2 (gfc_array_m2 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_m4.c b/libgfortran/generated/minval_m4.c
index 26d0b3fcc6d0..f0f86618a92d 100644
--- a/libgfortran/generated/minval_m4.c
+++ b/libgfortran/generated/minval_m4.c
@@ -150,7 +150,7 @@ minval_m4 (gfc_array_m4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_m4 (gfc_array_m4 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_m4 (gfc_array_m4 * const restrict retarray,
#if defined (GFC_UINTEGER_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_4_INFINITY) || defined (GFC_UINTEGER_4_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_m4 (gfc_array_m4 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_m8.c b/libgfortran/generated/minval_m8.c
index 31a5437826e5..faf3eebb0a61 100644
--- a/libgfortran/generated/minval_m8.c
+++ b/libgfortran/generated/minval_m8.c
@@ -150,7 +150,7 @@ minval_m8 (gfc_array_m8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_m8 (gfc_array_m8 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_m8 (gfc_array_m8 * const restrict retarray,
#if defined (GFC_UINTEGER_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_UINTEGER_8_INFINITY) || defined (GFC_UINTEGER_8_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_m8 (gfc_array_m8 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c
index f117d26f8dde..3e314eb05190 100644
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -150,7 +150,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
#if defined (GFC_REAL_10_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_10_INFINITY) || defined (GFC_REAL_10_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c
index c89f50e73941..de72a4cd1259 100644
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -150,7 +150,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
#if defined (GFC_REAL_16_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_16_INFINITY) || defined (GFC_REAL_16_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c
index cc9dc53eb3a0..7d8971f05dc5 100644
--- a/libgfortran/generated/minval_r17.c
+++ b/libgfortran/generated/minval_r17.c
@@ -150,7 +150,7 @@ minval_r17 (gfc_array_r17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_r17 (gfc_array_r17 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
#if defined (GFC_REAL_17_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_17_INFINITY) || defined (GFC_REAL_17_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c
index c1f8ff50ddb4..cae74d98d691 100644
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -150,7 +150,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
#if defined (GFC_REAL_4_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_4_INFINITY) || defined (GFC_REAL_4_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c
index 61869c77fa11..44a9e37374b2 100644
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -150,7 +150,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -165,6 +165,8 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
#endif
if (*src < result)
result = *src;
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -356,7 +358,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
#if defined (GFC_REAL_8_QUIET_NAN)
int non_empty_p = 0;
#endif
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
#if defined (GFC_REAL_8_INFINITY) || defined (GFC_REAL_8_QUIET_NAN)
@@ -382,7 +384,9 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
#endif
if (*msrc && *src < result)
result = *src;
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c
index 41fc154a8b22..50d9639684e2 100644
--- a/libgfortran/generated/norm2_r10.c
+++ b/libgfortran/generated/norm2_r10.c
@@ -151,7 +151,7 @@ norm2_r10 (gfc_array_r10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -171,6 +171,8 @@ norm2_r10 (gfc_array_r10 * const restrict retarray,
result += val * val;
}
}
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
result = scale * MATHFUNC(sqrt) (result);
*dest = result;
diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c
index e07bad6fce99..892fa373d9b5 100644
--- a/libgfortran/generated/norm2_r16.c
+++ b/libgfortran/generated/norm2_r16.c
@@ -159,7 +159,7 @@ norm2_r16 (gfc_array_r16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -179,6 +179,8 @@ norm2_r16 (gfc_array_r16 * const restrict retarray,
result += val * val;
}
}
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
result = scale * MATHFUNC(sqrt) (result);
*dest = result;
diff --git a/libgfortran/generated/norm2_r17.c b/libgfortran/generated/norm2_r17.c
index 515dea2e3617..a5a80b01fbeb 100644
--- a/libgfortran/generated/norm2_r17.c
+++ b/libgfortran/generated/norm2_r17.c
@@ -157,7 +157,7 @@ norm2_r17 (gfc_array_r17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -177,6 +177,8 @@ norm2_r17 (gfc_array_r17 * const restrict retarray,
result += val * val;
}
}
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
result = scale * MATHFUNC(sqrt) (result);
*dest = result;
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c
index aa4dc6ffe972..73c939a41ab9 100644
--- a/libgfortran/generated/norm2_r4.c
+++ b/libgfortran/generated/norm2_r4.c
@@ -151,7 +151,7 @@ norm2_r4 (gfc_array_r4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -171,6 +171,8 @@ norm2_r4 (gfc_array_r4 * const restrict retarray,
result += val * val;
}
}
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
result = scale * MATHFUNC(sqrt) (result);
*dest = result;
diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c
index 91b83f92d43c..96e95e7dd1bf 100644
--- a/libgfortran/generated/norm2_r8.c
+++ b/libgfortran/generated/norm2_r8.c
@@ -151,7 +151,7 @@ norm2_r8 (gfc_array_r8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
@@ -171,6 +171,8 @@ norm2_r8 (gfc_array_r8 * const restrict retarray,
result += val * val;
}
}
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
result = scale * MATHFUNC(sqrt) (result);
*dest = result;
diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c
index 719935c34f57..7cb1642b4876 100644
--- a/libgfortran/generated/parity_l1.c
+++ b/libgfortran/generated/parity_l1.c
@@ -146,11 +146,13 @@ parity_l1 (gfc_array_l1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result = result != *src;
+
+ src = (const GFC_LOGICAL_1 * restrict) (((char*) src) + delta);
}
*dest = result;
diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c
index b2389216bcbe..f4cc67f5f354 100644
--- a/libgfortran/generated/parity_l16.c
+++ b/libgfortran/generated/parity_l16.c
@@ -146,11 +146,13 @@ parity_l16 (gfc_array_l16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result = result != *src;
+
+ src = (const GFC_LOGICAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c
index 144d55567b22..da82b6ad0cb0 100644
--- a/libgfortran/generated/parity_l2.c
+++ b/libgfortran/generated/parity_l2.c
@@ -146,11 +146,13 @@ parity_l2 (gfc_array_l2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result = result != *src;
+
+ src = (const GFC_LOGICAL_2 * restrict) (((char*) src) + delta);
}
*dest = result;
diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c
index 1ca9f29d0406..59c9d1be8444 100644
--- a/libgfortran/generated/parity_l4.c
+++ b/libgfortran/generated/parity_l4.c
@@ -146,11 +146,13 @@ parity_l4 (gfc_array_l4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result = result != *src;
+
+ src = (const GFC_LOGICAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c
index f43fd47b20bf..7db566738a23 100644
--- a/libgfortran/generated/parity_l8.c
+++ b/libgfortran/generated/parity_l8.c
@@ -146,11 +146,13 @@ parity_l8 (gfc_array_l8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result = result != *src;
+
+ src = (const GFC_LOGICAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c
index 7b589399d57d..efe37c8106ff 100644
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -146,11 +146,13 @@ product_c10 (gfc_array_c10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_COMPLEX_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_COMPLEX_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c
index 500033559f92..005496a09607 100644
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -146,11 +146,13 @@ product_c16 (gfc_array_c16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_COMPLEX_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_COMPLEX_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_c17.c b/libgfortran/generated/product_c17.c
index c26288b62e99..f7401ab1bdfa 100644
--- a/libgfortran/generated/product_c17.c
+++ b/libgfortran/generated/product_c17.c
@@ -146,11 +146,13 @@ product_c17 (gfc_array_c17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_COMPLEX_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_c17 (gfc_array_c17 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_COMPLEX_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c
index 8f4511b08db9..39d920b738e0 100644
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -146,11 +146,13 @@ product_c4 (gfc_array_c4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_COMPLEX_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_COMPLEX_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c
index 2bd93b06f681..7bb37343e9c3 100644
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -146,11 +146,13 @@ product_c8 (gfc_array_c8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_COMPLEX_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_COMPLEX_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c
index 497addcb834c..669e695fbc26 100644
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -146,11 +146,13 @@ product_i1 (gfc_array_m1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_i1 (gfc_array_m1 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c
index 0b9e99ebaabe..234caf43e8d7 100644
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -146,11 +146,13 @@ product_i16 (gfc_array_m16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_i16 (gfc_array_m16 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c
index 2f3dec2021e9..e777e447c056 100644
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -146,11 +146,13 @@ product_i2 (gfc_array_m2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_i2 (gfc_array_m2 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c
index 72c5b31fdf45..4482870c31c6 100644
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -146,11 +146,13 @@ product_i4 (gfc_array_m4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_i4 (gfc_array_m4 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c
index 50f485a0c062..b5ad9e693bda 100644
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -146,11 +146,13 @@ product_i8 (gfc_array_m8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_i8 (gfc_array_m8 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c
index e081d722210f..56b2f38d8396 100644
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -146,11 +146,13 @@ product_r10 (gfc_array_r10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c
index 46a45d69a068..341cb5cbe7be 100644
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -146,11 +146,13 @@ product_r16 (gfc_array_r16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_r17.c b/libgfortran/generated/product_r17.c
index 2e714d5704a5..61bd63308753 100644
--- a/libgfortran/generated/product_r17.c
+++ b/libgfortran/generated/product_r17.c
@@ -146,11 +146,13 @@ product_r17 (gfc_array_r17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_r17 (gfc_array_r17 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c
index e27107093667..d3d06e6cfdb4 100644
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -146,11 +146,13 @@ product_r4 (gfc_array_r4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c
index 3c564d1f9b7c..8d8e4d5e621d 100644
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -146,11 +146,13 @@ product_r8 (gfc_array_r8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result *= *src;
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
{
result = 1;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result *= *src;
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c
index e21791e22a3e..7491f4f7c515 100644
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -146,11 +146,13 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_COMPLEX_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_COMPLEX_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c
index 12e22b526fc0..059038bb439f 100644
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -146,11 +146,13 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_COMPLEX_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_COMPLEX_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c
index 27d84c7917f1..a257c6c1654c 100644
--- a/libgfortran/generated/sum_c17.c
+++ b/libgfortran/generated/sum_c17.c
@@ -146,11 +146,13 @@ sum_c17 (gfc_array_c17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_COMPLEX_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_c17 (gfc_array_c17 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_COMPLEX_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c
index 25ddc79fab6d..39e63733d82f 100644
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -146,11 +146,13 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_COMPLEX_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_COMPLEX_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c
index 13c1c170ac08..dd04aeb3b6dc 100644
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -146,11 +146,13 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_COMPLEX_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_COMPLEX_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c
index 18826799c775..594846c57942 100644
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -146,11 +146,13 @@ sum_i1 (gfc_array_m1 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_i1 (gfc_array_m1 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_UINTEGER_1 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c
index 3e16542f0968..f60b42317945 100644
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -146,11 +146,13 @@ sum_i16 (gfc_array_m16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_i16 (gfc_array_m16 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_UINTEGER_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c
index 852de8001543..e9a1ba0c9942 100644
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -146,11 +146,13 @@ sum_i2 (gfc_array_m2 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_i2 (gfc_array_m2 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_UINTEGER_2 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c
index 461352e624e3..18da46bf0086 100644
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -146,11 +146,13 @@ sum_i4 (gfc_array_m4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_i4 (gfc_array_m4 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_UINTEGER_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c
index d58a7e78910d..4b44c776b880 100644
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -146,11 +146,13 @@ sum_i8 (gfc_array_m8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_i8 (gfc_array_m8 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_UINTEGER_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c
index e8be6b237062..44d967549421 100644
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -146,11 +146,13 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_REAL_10 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_REAL_10 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c
index bfda7ced5308..00c60b008e41 100644
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -146,11 +146,13 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_REAL_16 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_REAL_16 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_r17.c b/libgfortran/generated/sum_r17.c
index 6da3f17e79cf..928d933485e6 100644
--- a/libgfortran/generated/sum_r17.c
+++ b/libgfortran/generated/sum_r17.c
@@ -146,11 +146,13 @@ sum_r17 (gfc_array_r17 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_REAL_17 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_r17 (gfc_array_r17 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_REAL_17 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c
index c81c8e41e26a..138a2d48bd93 100644
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -146,11 +146,13 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_REAL_4 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_REAL_4 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c
index 0d7fe63cefc9..b311247ea315 100644
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -146,11 +146,13 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
result += *src;
+
+ src = (const GFC_REAL_8 * restrict) (((char*) src) + delta);
}
*dest = result;
@@ -335,12 +337,14 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
{
result = 0;
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+ for (n = 0; n < len; n++, msrc += mdelta)
{
if (*msrc)
result += *src;
- }
+
+ src = (const GFC_REAL_8 * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
index 92459b75aadb..1ca3e24af634 100644
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -136,12 +136,14 @@ define(START_ARRAY_BLOCK,
else
{
#if ! defined HAVE_BACK_ARG
- for (n = 0; n < len; n++, src += delta)
+ for (n = 0; n < len; n++)
{
#endif
')dnl
define(FINISH_ARRAY_FUNCTION,
-` }
+`
+ src = (const atype_name * restrict) (((char*) src) + delta);
+ }
'$1`
*dest = result;
}
@@ -325,11 +327,13 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
{
')dnl
define(START_MASKED_ARRAY_BLOCK,
-` for (n = 0; n < len; n++, src += delta, msrc += mdelta)
+` for (n = 0; n < len; n++, msrc += mdelta)
{
')dnl
define(FINISH_MASKED_ARRAY_FUNCTION,
-` }
+`
+ src = (const atype_name * restrict) (((char*)src) + delta);
+ }
*dest = result;
}
/* Advance to the next element. */
diff --git a/libgfortran/m4/maxval.m4 b/libgfortran/m4/maxval.m4
index c6caa956fbd5..464d75d01f77 100644
--- a/libgfortran/m4/maxval.m4
+++ b/libgfortran/m4/maxval.m4
@@ -39,10 +39,12 @@ ARRAY_FUNCTION(atype_min,
`#if defined ('atype_nan`)
if (*src >= result)
break;
+
+ src = (const atype_name * restrict) (((char*) src) + delta);
}
if (unlikely (n >= len))
result = atype_nan;
- else for (; n < len; n++, src += delta)
+ else for (; n < len; n++)
{
#endif
if (*src > result)
More information about the Gcc-cvs
mailing list