diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-03-10 19:42:46 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-03-10 19:42:46 +0000 |
commit | 80dd631fceac3b9b8da712fa9e1c1a2f61002cb9 (patch) | |
tree | 10b7e42e65eb89c6f795ff465b4c61c7527c4353 /libgfortran/generated | |
parent | 4ccfdb287ef9e8a62ac09f47b0158b17b1d91190 (diff) | |
download | gcc-80dd631fceac3b9b8da712fa9e1c1a2f61002cb9.zip gcc-80dd631fceac3b9b8da712fa9e1c1a2f61002cb9.tar.gz gcc-80dd631fceac3b9b8da712fa9e1c1a2f61002cb9.tar.bz2 |
re PR libfortran/79956 (many new -Wmaybe-uninitialized warnings with bootstrap-O3)
2017-03-10 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/79956
* m4/iforeach.m4: Change exit condition from loop for
increasing dimension to >=. Fix type in comment.
* m4/ifunction.m4: Likewise.
* m4/ifunction_logical.m4: Likewise.
* generated/all_l1.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/all_l2.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/any_l1.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/any_l2.c: Regenerated.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/count_16_l.c: Regenerated.
* generated/count_1_l.c: Regenerated.
* generated/count_2_l.c: Regenerated.
* generated/count_4_l.c: Regenerated.
* generated/count_8_l.c: Regenerated.
* generated/iall_i1.c: Regenerated.
* generated/iall_i16.c: Regenerated.
* generated/iall_i2.c: Regenerated.
* generated/iall_i4.c: Regenerated.
* generated/iall_i8.c: Regenerated.
* generated/iany_i1.c: Regenerated.
* generated/iany_i16.c: Regenerated.
* generated/iany_i2.c: Regenerated.
* generated/iany_i4.c: Regenerated.
* generated/iany_i8.c: Regenerated.
* generated/iparity_i1.c: Regenerated.
* generated/iparity_i16.c: Regenerated.
* generated/iparity_i2.c: Regenerated.
* generated/iparity_i4.c: Regenerated.
* generated/iparity_i8.c: Regenerated.
* generated/maxloc0_16_i1.c: Regenerated.
* generated/maxloc0_16_i16.c: Regenerated.
* generated/maxloc0_16_i2.c: Regenerated.
* generated/maxloc0_16_i4.c: Regenerated.
* generated/maxloc0_16_i8.c: Regenerated.
* generated/maxloc0_16_r10.c: Regenerated.
* generated/maxloc0_16_r16.c: Regenerated.
* generated/maxloc0_16_r4.c: Regenerated.
* generated/maxloc0_16_r8.c: Regenerated.
* generated/maxloc0_4_i1.c: Regenerated.
* generated/maxloc0_4_i16.c: Regenerated.
* generated/maxloc0_4_i2.c: Regenerated.
* generated/maxloc0_4_i4.c: Regenerated.
* generated/maxloc0_4_i8.c: Regenerated.
* generated/maxloc0_4_r10.c: Regenerated.
* generated/maxloc0_4_r16.c: Regenerated.
* generated/maxloc0_4_r4.c: Regenerated.
* generated/maxloc0_4_r8.c: Regenerated.
* generated/maxloc0_8_i1.c: Regenerated.
* generated/maxloc0_8_i16.c: Regenerated.
* generated/maxloc0_8_i2.c: Regenerated.
* generated/maxloc0_8_i4.c: Regenerated.
* generated/maxloc0_8_i8.c: Regenerated.
* generated/maxloc0_8_r10.c: Regenerated.
* generated/maxloc0_8_r16.c: Regenerated.
* generated/maxloc0_8_r4.c: Regenerated.
* generated/maxloc0_8_r8.c: Regenerated.
* generated/maxloc1_16_i1.c: Regenerated.
* generated/maxloc1_16_i16.c: Regenerated.
* generated/maxloc1_16_i2.c: Regenerated.
* generated/maxloc1_16_i4.c: Regenerated.
* generated/maxloc1_16_i8.c: Regenerated.
* generated/maxloc1_16_r10.c: Regenerated.
* generated/maxloc1_16_r16.c: Regenerated.
* generated/maxloc1_16_r4.c: Regenerated.
* generated/maxloc1_16_r8.c: Regenerated.
* generated/maxloc1_4_i1.c: Regenerated.
* generated/maxloc1_4_i16.c: Regenerated.
* generated/maxloc1_4_i2.c: Regenerated.
* generated/maxloc1_4_i4.c: Regenerated.
* generated/maxloc1_4_i8.c: Regenerated.
* generated/maxloc1_4_r10.c: Regenerated.
* generated/maxloc1_4_r16.c: Regenerated.
* generated/maxloc1_4_r4.c: Regenerated.
* generated/maxloc1_4_r8.c: Regenerated.
* generated/maxloc1_8_i1.c: Regenerated.
* generated/maxloc1_8_i16.c: Regenerated.
* generated/maxloc1_8_i2.c: Regenerated.
* generated/maxloc1_8_i4.c: Regenerated.
* generated/maxloc1_8_i8.c: Regenerated.
* generated/maxloc1_8_r10.c: Regenerated.
* generated/maxloc1_8_r16.c: Regenerated.
* generated/maxloc1_8_r4.c: Regenerated.
* generated/maxloc1_8_r8.c: Regenerated.
* generated/maxval_i1.c: Regenerated.
* generated/maxval_i16.c: Regenerated.
* generated/maxval_i2.c: Regenerated.
* generated/maxval_i4.c: Regenerated.
* generated/maxval_i8.c: Regenerated.
* generated/maxval_r10.c: Regenerated.
* generated/maxval_r16.c: Regenerated.
* generated/maxval_r4.c: Regenerated.
* generated/maxval_r8.c: Regenerated.
* generated/minloc0_16_i1.c: Regenerated.
* generated/minloc0_16_i16.c: Regenerated.
* generated/minloc0_16_i2.c: Regenerated.
* generated/minloc0_16_i4.c: Regenerated.
* generated/minloc0_16_i8.c: Regenerated.
* generated/minloc0_16_r10.c: Regenerated.
* generated/minloc0_16_r16.c: Regenerated.
* generated/minloc0_16_r4.c: Regenerated.
* generated/minloc0_16_r8.c: Regenerated.
* generated/minloc0_4_i1.c: Regenerated.
* generated/minloc0_4_i16.c: Regenerated.
* generated/minloc0_4_i2.c: Regenerated.
* generated/minloc0_4_i4.c: Regenerated.
* generated/minloc0_4_i8.c: Regenerated.
* generated/minloc0_4_r10.c: Regenerated.
* generated/minloc0_4_r16.c: Regenerated.
* generated/minloc0_4_r4.c: Regenerated.
* generated/minloc0_4_r8.c: Regenerated.
* generated/minloc0_8_i1.c: Regenerated.
* generated/minloc0_8_i16.c: Regenerated.
* generated/minloc0_8_i2.c: Regenerated.
* generated/minloc0_8_i4.c: Regenerated.
* generated/minloc0_8_i8.c: Regenerated.
* generated/minloc0_8_r10.c: Regenerated.
* generated/minloc0_8_r16.c: Regenerated.
* generated/minloc0_8_r4.c: Regenerated.
* generated/minloc0_8_r8.c: Regenerated.
* generated/minloc1_16_i1.c: Regenerated.
* generated/minloc1_16_i16.c: Regenerated.
* generated/minloc1_16_i2.c: Regenerated.
* generated/minloc1_16_i4.c: Regenerated.
* generated/minloc1_16_i8.c: Regenerated.
* generated/minloc1_16_r10.c: Regenerated.
* generated/minloc1_16_r16.c: Regenerated.
* generated/minloc1_16_r4.c: Regenerated.
* generated/minloc1_16_r8.c: Regenerated.
* generated/minloc1_4_i1.c: Regenerated.
* generated/minloc1_4_i16.c: Regenerated.
* generated/minloc1_4_i2.c: Regenerated.
* generated/minloc1_4_i4.c: Regenerated.
* generated/minloc1_4_i8.c: Regenerated.
* generated/minloc1_4_r10.c: Regenerated.
* generated/minloc1_4_r16.c: Regenerated.
* generated/minloc1_4_r4.c: Regenerated.
* generated/minloc1_4_r8.c: Regenerated.
* generated/minloc1_8_i1.c: Regenerated.
* generated/minloc1_8_i16.c: Regenerated.
* generated/minloc1_8_i2.c: Regenerated.
* generated/minloc1_8_i4.c: Regenerated.
* generated/minloc1_8_i8.c: Regenerated.
* generated/minloc1_8_r10.c: Regenerated.
* generated/minloc1_8_r16.c: Regenerated.
* generated/minloc1_8_r4.c: Regenerated.
* generated/minloc1_8_r8.c: Regenerated.
* generated/minval_i1.c: Regenerated.
* generated/minval_i16.c: Regenerated.
* generated/minval_i2.c: Regenerated.
* generated/minval_i4.c: Regenerated.
* generated/minval_i8.c: Regenerated.
* generated/minval_r10.c: Regenerated.
* generated/minval_r16.c: Regenerated.
* generated/minval_r4.c: Regenerated.
* generated/minval_r8.c: Regenerated.
* generated/norm2_r10.c: Regenerated.
* generated/norm2_r16.c: Regenerated.
* generated/norm2_r4.c: Regenerated.
* generated/norm2_r8.c: Regenerated.
* generated/parity_l1.c: Regenerated.
* generated/parity_l16.c: Regenerated.
* generated/parity_l2.c: Regenerated.
* generated/parity_l4.c: Regenerated.
* generated/parity_l8.c: Regenerated.
* generated/product_c10.c: Regenerated.
* generated/product_c16.c: Regenerated.
* generated/product_c4.c: Regenerated.
* generated/product_c8.c: Regenerated.
* generated/product_i1.c: Regenerated.
* generated/product_i16.c: Regenerated.
* generated/product_i2.c: Regenerated.
* generated/product_i4.c: Regenerated.
* generated/product_i8.c: Regenerated.
* generated/product_r10.c: Regenerated.
* generated/product_r16.c: Regenerated.
* generated/product_r4.c: Regenerated.
* generated/product_r8.c: Regenerated.
* generated/sum_c10.c: Regenerated.
* generated/sum_c16.c: Regenerated.
* generated/sum_c4.c: Regenerated.
* generated/sum_c8.c: Regenerated.
* generated/sum_i1.c: Regenerated.
* generated/sum_i16.c: Regenerated.
* generated/sum_i2.c: Regenerated.
* generated/sum_i4.c: Regenerated.
* generated/sum_i8.c: Regenerated.
* generated/sum_r10.c: Regenerated.
* generated/sum_r16.c: Regenerated.
* generated/sum_r4.c: Regenerated.
* generated/sum_r8.c: Regenerated.
From-SVN: r246053
Diffstat (limited to 'libgfortran/generated')
191 files changed, 721 insertions, 721 deletions
diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c index 6a04f86..46168eb 100644 --- a/libgfortran/generated/all_l1.c +++ b/libgfortran/generated/all_l1.c @@ -199,9 +199,9 @@ all_l1 (gfc_array_l1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c index 7962fb6..2fa9578 100644 --- a/libgfortran/generated/all_l16.c +++ b/libgfortran/generated/all_l16.c @@ -199,9 +199,9 @@ all_l16 (gfc_array_l16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c index 8e4cf28..5b08556 100644 --- a/libgfortran/generated/all_l2.c +++ b/libgfortran/generated/all_l2.c @@ -199,9 +199,9 @@ all_l2 (gfc_array_l2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index b3edb83..b573742 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -199,9 +199,9 @@ all_l4 (gfc_array_l4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index 299f05a..dfac0e3 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -199,9 +199,9 @@ all_l8 (gfc_array_l8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c index df4c053..e2bf26c 100644 --- a/libgfortran/generated/any_l1.c +++ b/libgfortran/generated/any_l1.c @@ -199,9 +199,9 @@ any_l1 (gfc_array_l1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c index 261c5fe..5b2987d 100644 --- a/libgfortran/generated/any_l16.c +++ b/libgfortran/generated/any_l16.c @@ -199,9 +199,9 @@ any_l16 (gfc_array_l16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c index ebd19ee..6e28643 100644 --- a/libgfortran/generated/any_l2.c +++ b/libgfortran/generated/any_l2.c @@ -199,9 +199,9 @@ any_l2 (gfc_array_l2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index 2bd83fb..7d2fcd0 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -199,9 +199,9 @@ any_l4 (gfc_array_l4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index c4c5adc..c72d12f 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -199,9 +199,9 @@ any_l8 (gfc_array_l8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c index 98c5aee..28ae161 100644 --- a/libgfortran/generated/count_16_l.c +++ b/libgfortran/generated/count_16_l.c @@ -195,9 +195,9 @@ count_16_l (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c index 051400d..8b1892c 100644 --- a/libgfortran/generated/count_1_l.c +++ b/libgfortran/generated/count_1_l.c @@ -195,9 +195,9 @@ count_1_l (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c index 256403f..8132c2e 100644 --- a/libgfortran/generated/count_2_l.c +++ b/libgfortran/generated/count_2_l.c @@ -195,9 +195,9 @@ count_2_l (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c index 2d10338..f90ba35 100644 --- a/libgfortran/generated/count_4_l.c +++ b/libgfortran/generated/count_4_l.c @@ -195,9 +195,9 @@ count_4_l (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c index d366568..efce9e4 100644 --- a/libgfortran/generated/count_8_l.c +++ b/libgfortran/generated/count_8_l.c @@ -195,9 +195,9 @@ count_8_l (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c index f49c73f..619c833 100644 --- a/libgfortran/generated/iall_i1.c +++ b/libgfortran/generated/iall_i1.c @@ -167,9 +167,9 @@ iall_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miall_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c index 0117899..4d37d9c 100644 --- a/libgfortran/generated/iall_i16.c +++ b/libgfortran/generated/iall_i16.c @@ -167,9 +167,9 @@ iall_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miall_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c index 9b594ed..283ceff 100644 --- a/libgfortran/generated/iall_i2.c +++ b/libgfortran/generated/iall_i2.c @@ -167,9 +167,9 @@ iall_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miall_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c index 4e4dd50..ef0ac58 100644 --- a/libgfortran/generated/iall_i4.c +++ b/libgfortran/generated/iall_i4.c @@ -167,9 +167,9 @@ iall_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miall_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c index 0d562cc..ef780b0 100644 --- a/libgfortran/generated/iall_i8.c +++ b/libgfortran/generated/iall_i8.c @@ -167,9 +167,9 @@ iall_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miall_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c index 4cf28fc..b60d4f2 100644 --- a/libgfortran/generated/iany_i1.c +++ b/libgfortran/generated/iany_i1.c @@ -167,9 +167,9 @@ iany_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miany_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c index 7cddbc5..f8fb40a 100644 --- a/libgfortran/generated/iany_i16.c +++ b/libgfortran/generated/iany_i16.c @@ -167,9 +167,9 @@ iany_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miany_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c index 0856683..ef931b3 100644 --- a/libgfortran/generated/iany_i2.c +++ b/libgfortran/generated/iany_i2.c @@ -167,9 +167,9 @@ iany_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miany_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c index 14d43a2..d0ecaef 100644 --- a/libgfortran/generated/iany_i4.c +++ b/libgfortran/generated/iany_i4.c @@ -167,9 +167,9 @@ iany_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miany_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c index a6b1c02..c963165 100644 --- a/libgfortran/generated/iany_i8.c +++ b/libgfortran/generated/iany_i8.c @@ -167,9 +167,9 @@ iany_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miany_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c index 6ebf498..18e9fc2 100644 --- a/libgfortran/generated/iparity_i1.c +++ b/libgfortran/generated/iparity_i1.c @@ -167,9 +167,9 @@ iparity_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miparity_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c index 670c74e..5b8ea69 100644 --- a/libgfortran/generated/iparity_i16.c +++ b/libgfortran/generated/iparity_i16.c @@ -167,9 +167,9 @@ iparity_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miparity_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c index 63f7b43..0076667 100644 --- a/libgfortran/generated/iparity_i2.c +++ b/libgfortran/generated/iparity_i2.c @@ -167,9 +167,9 @@ iparity_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miparity_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c index 682b170..2079842 100644 --- a/libgfortran/generated/iparity_i4.c +++ b/libgfortran/generated/iparity_i4.c @@ -167,9 +167,9 @@ iparity_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miparity_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c index 3b8f55c..60e390e 100644 --- a/libgfortran/generated/iparity_i8.c +++ b/libgfortran/generated/iparity_i8.c @@ -167,9 +167,9 @@ iparity_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ miparity_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c index 09d1f72..5fd8887 100644 --- a/libgfortran/generated/maxloc0_16_i1.c +++ b/libgfortran/generated/maxloc0_16_i1.c @@ -148,7 +148,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c index f5626ec..2a4d5d1 100644 --- a/libgfortran/generated/maxloc0_16_i16.c +++ b/libgfortran/generated/maxloc0_16_i16.c @@ -148,7 +148,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c index d2f4d45..43e7065 100644 --- a/libgfortran/generated/maxloc0_16_i2.c +++ b/libgfortran/generated/maxloc0_16_i2.c @@ -148,7 +148,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c index be2da16..d7e539d 100644 --- a/libgfortran/generated/maxloc0_16_i4.c +++ b/libgfortran/generated/maxloc0_16_i4.c @@ -148,7 +148,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c index de63fdf..72afd48 100644 --- a/libgfortran/generated/maxloc0_16_i8.c +++ b/libgfortran/generated/maxloc0_16_i8.c @@ -148,7 +148,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c index 8663b32..670239b 100644 --- a/libgfortran/generated/maxloc0_16_r10.c +++ b/libgfortran/generated/maxloc0_16_r10.c @@ -148,7 +148,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c index f9cda98..aa98e7d 100644 --- a/libgfortran/generated/maxloc0_16_r16.c +++ b/libgfortran/generated/maxloc0_16_r16.c @@ -148,7 +148,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c index 2368b01..006d593 100644 --- a/libgfortran/generated/maxloc0_16_r4.c +++ b/libgfortran/generated/maxloc0_16_r4.c @@ -148,7 +148,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c index 168b0dc..a8d44d5 100644 --- a/libgfortran/generated/maxloc0_16_r8.c +++ b/libgfortran/generated/maxloc0_16_r8.c @@ -148,7 +148,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c index 5059f23..32caa2d 100644 --- a/libgfortran/generated/maxloc0_4_i1.c +++ b/libgfortran/generated/maxloc0_4_i1.c @@ -148,7 +148,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c index 9951ebd..fb05f9c 100644 --- a/libgfortran/generated/maxloc0_4_i16.c +++ b/libgfortran/generated/maxloc0_4_i16.c @@ -148,7 +148,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c index 8a90574..84520a9 100644 --- a/libgfortran/generated/maxloc0_4_i2.c +++ b/libgfortran/generated/maxloc0_4_i2.c @@ -148,7 +148,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index cfa1c17..9d2e007 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -148,7 +148,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index 0f79f0f..a236673 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -148,7 +148,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c index 711d1e5..c1953ab 100644 --- a/libgfortran/generated/maxloc0_4_r10.c +++ b/libgfortran/generated/maxloc0_4_r10.c @@ -148,7 +148,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c index 3d96dd9..d0221d7 100644 --- a/libgfortran/generated/maxloc0_4_r16.c +++ b/libgfortran/generated/maxloc0_4_r16.c @@ -148,7 +148,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index 292c0bf..9f3931a 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -148,7 +148,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index b735ac0..dff5190 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -148,7 +148,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c index 7ef8f7b..d5a6628 100644 --- a/libgfortran/generated/maxloc0_8_i1.c +++ b/libgfortran/generated/maxloc0_8_i1.c @@ -148,7 +148,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c index 65a3784..ce2ad49 100644 --- a/libgfortran/generated/maxloc0_8_i16.c +++ b/libgfortran/generated/maxloc0_8_i16.c @@ -148,7 +148,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c index afffe3f..f9c9732 100644 --- a/libgfortran/generated/maxloc0_8_i2.c +++ b/libgfortran/generated/maxloc0_8_i2.c @@ -148,7 +148,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index 41d8d64..cc9d94c 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -148,7 +148,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 170cfe7..c61fbed 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -148,7 +148,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c index 3333280..07acd25 100644 --- a/libgfortran/generated/maxloc0_8_r10.c +++ b/libgfortran/generated/maxloc0_8_r10.c @@ -148,7 +148,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c index 4826fbfe..5b98163 100644 --- a/libgfortran/generated/maxloc0_8_r16.c +++ b/libgfortran/generated/maxloc0_8_r16.c @@ -148,7 +148,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index d0c9a33..0caccea 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -148,7 +148,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index 905472e..4e51b65 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -148,7 +148,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c index 1d54b1d..48f2fc0 100644 --- a/libgfortran/generated/maxloc1_16_i1.c +++ b/libgfortran/generated/maxloc1_16_i1.c @@ -188,9 +188,9 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c index f6a8930..6c154fb 100644 --- a/libgfortran/generated/maxloc1_16_i16.c +++ b/libgfortran/generated/maxloc1_16_i16.c @@ -188,9 +188,9 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c index 595fa2c..029e061 100644 --- a/libgfortran/generated/maxloc1_16_i2.c +++ b/libgfortran/generated/maxloc1_16_i2.c @@ -188,9 +188,9 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c index 2d68405..aceb7ae 100644 --- a/libgfortran/generated/maxloc1_16_i4.c +++ b/libgfortran/generated/maxloc1_16_i4.c @@ -188,9 +188,9 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c index 06b2075..000a0cf 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_16_i8.c @@ -188,9 +188,9 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index 896de8a..53378d9 100644 --- a/libgfortran/generated/maxloc1_16_r10.c +++ b/libgfortran/generated/maxloc1_16_r10.c @@ -188,9 +188,9 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c index 93cddf4..4bdc4d6 100644 --- a/libgfortran/generated/maxloc1_16_r16.c +++ b/libgfortran/generated/maxloc1_16_r16.c @@ -188,9 +188,9 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c index 42419b7..36d79e2 100644 --- a/libgfortran/generated/maxloc1_16_r4.c +++ b/libgfortran/generated/maxloc1_16_r4.c @@ -188,9 +188,9 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c index db0d6a3..3993f77 100644 --- a/libgfortran/generated/maxloc1_16_r8.c +++ b/libgfortran/generated/maxloc1_16_r8.c @@ -188,9 +188,9 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c index 284116a..05d2af4 100644 --- a/libgfortran/generated/maxloc1_4_i1.c +++ b/libgfortran/generated/maxloc1_4_i1.c @@ -188,9 +188,9 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c index 48c2767..67e8a9c 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_4_i16.c @@ -188,9 +188,9 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index b9c9a01..60ceaa6 100644 --- a/libgfortran/generated/maxloc1_4_i2.c +++ b/libgfortran/generated/maxloc1_4_i2.c @@ -188,9 +188,9 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 5222bc3..d2f30b7 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -188,9 +188,9 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index f9f067f..13a7dc6 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -188,9 +188,9 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index 8baf337..2042292 100644 --- a/libgfortran/generated/maxloc1_4_r10.c +++ b/libgfortran/generated/maxloc1_4_r10.c @@ -188,9 +188,9 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c index 03aa2ab..9507648 100644 --- a/libgfortran/generated/maxloc1_4_r16.c +++ b/libgfortran/generated/maxloc1_4_r16.c @@ -188,9 +188,9 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index 94c3260..87c6ca5 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -188,9 +188,9 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 11f71ee..a13986a 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -188,9 +188,9 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c index a46ddab..71a5d97 100644 --- a/libgfortran/generated/maxloc1_8_i1.c +++ b/libgfortran/generated/maxloc1_8_i1.c @@ -188,9 +188,9 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c index 0e04e8c..92cf55c 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_8_i16.c @@ -188,9 +188,9 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index d29c7ec..fd1063c 100644 --- a/libgfortran/generated/maxloc1_8_i2.c +++ b/libgfortran/generated/maxloc1_8_i2.c @@ -188,9 +188,9 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index c477cdc..db82ae8 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -188,9 +188,9 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 5af011a..43b4af1 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -188,9 +188,9 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index 0f352b2..9ba6cb9 100644 --- a/libgfortran/generated/maxloc1_8_r10.c +++ b/libgfortran/generated/maxloc1_8_r10.c @@ -188,9 +188,9 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c index 57e4ce4..f7eb1eb 100644 --- a/libgfortran/generated/maxloc1_8_r16.c +++ b/libgfortran/generated/maxloc1_8_r16.c @@ -188,9 +188,9 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index a74fa5c..67b455b 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -188,9 +188,9 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index a7a1bf7..bd0913f 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -188,9 +188,9 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c index 5593ffe..90ddf35 100644 --- a/libgfortran/generated/maxval_i1.c +++ b/libgfortran/generated/maxval_i1.c @@ -181,9 +181,9 @@ maxval_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c index fa2536d..6a54739 100644 --- a/libgfortran/generated/maxval_i16.c +++ b/libgfortran/generated/maxval_i16.c @@ -181,9 +181,9 @@ maxval_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c index ed90dad..3cdb5b9 100644 --- a/libgfortran/generated/maxval_i2.c +++ b/libgfortran/generated/maxval_i2.c @@ -181,9 +181,9 @@ maxval_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 67c7b0e..d7ae995 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -181,9 +181,9 @@ maxval_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index 9cad4e3..d622da0 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -181,9 +181,9 @@ maxval_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c index 96f77b7..9c4c6fb 100644 --- a/libgfortran/generated/maxval_r10.c +++ b/libgfortran/generated/maxval_r10.c @@ -181,9 +181,9 @@ maxval_r10 (gfc_array_r10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c index 6416040..f105732 100644 --- a/libgfortran/generated/maxval_r16.c +++ b/libgfortran/generated/maxval_r16.c @@ -181,9 +181,9 @@ maxval_r16 (gfc_array_r16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index ec5b1ac..94d4f33 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -181,9 +181,9 @@ maxval_r4 (gfc_array_r4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 8788420..5ba70b6 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -181,9 +181,9 @@ maxval_r8 (gfc_array_r8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c index 7fb5c6e..e458174 100644 --- a/libgfortran/generated/minloc0_16_i1.c +++ b/libgfortran/generated/minloc0_16_i1.c @@ -148,7 +148,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c index 4bdf9a0..b15ec83 100644 --- a/libgfortran/generated/minloc0_16_i16.c +++ b/libgfortran/generated/minloc0_16_i16.c @@ -148,7 +148,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c index f01afca..b544952 100644 --- a/libgfortran/generated/minloc0_16_i2.c +++ b/libgfortran/generated/minloc0_16_i2.c @@ -148,7 +148,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c index b2b5c8a..5fa12c9 100644 --- a/libgfortran/generated/minloc0_16_i4.c +++ b/libgfortran/generated/minloc0_16_i4.c @@ -148,7 +148,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c index 7ae2336..b8aefae 100644 --- a/libgfortran/generated/minloc0_16_i8.c +++ b/libgfortran/generated/minloc0_16_i8.c @@ -148,7 +148,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c index 5388bb3..801b9e6 100644 --- a/libgfortran/generated/minloc0_16_r10.c +++ b/libgfortran/generated/minloc0_16_r10.c @@ -148,7 +148,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c index 3aca587..499292f 100644 --- a/libgfortran/generated/minloc0_16_r16.c +++ b/libgfortran/generated/minloc0_16_r16.c @@ -148,7 +148,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c index 88f4cdb..d4377d4 100644 --- a/libgfortran/generated/minloc0_16_r4.c +++ b/libgfortran/generated/minloc0_16_r4.c @@ -148,7 +148,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c index a360b59..43e2c7f 100644 --- a/libgfortran/generated/minloc0_16_r8.c +++ b/libgfortran/generated/minloc0_16_r8.c @@ -148,7 +148,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c index 470d2ea..756c2dc 100644 --- a/libgfortran/generated/minloc0_4_i1.c +++ b/libgfortran/generated/minloc0_4_i1.c @@ -148,7 +148,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c index 8dcea5e..3e38c72 100644 --- a/libgfortran/generated/minloc0_4_i16.c +++ b/libgfortran/generated/minloc0_4_i16.c @@ -148,7 +148,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c index 1e9e154..c8136b6 100644 --- a/libgfortran/generated/minloc0_4_i2.c +++ b/libgfortran/generated/minloc0_4_i2.c @@ -148,7 +148,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index 7e80a49..a0afc1a 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -148,7 +148,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index f0a9ed3..21b818f 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -148,7 +148,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c index dd0bdf2..6b86186 100644 --- a/libgfortran/generated/minloc0_4_r10.c +++ b/libgfortran/generated/minloc0_4_r10.c @@ -148,7 +148,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c index d3a2e57..ca3ca9d 100644 --- a/libgfortran/generated/minloc0_4_r16.c +++ b/libgfortran/generated/minloc0_4_r16.c @@ -148,7 +148,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index f507e79..f33c455 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -148,7 +148,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 97eff1d..6658b01 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -148,7 +148,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c index 988e277..8f0c48d 100644 --- a/libgfortran/generated/minloc0_8_i1.c +++ b/libgfortran/generated/minloc0_8_i1.c @@ -148,7 +148,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c index 82e61a0..50f5f86 100644 --- a/libgfortran/generated/minloc0_8_i16.c +++ b/libgfortran/generated/minloc0_8_i16.c @@ -148,7 +148,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c index d605582..936cdf5 100644 --- a/libgfortran/generated/minloc0_8_i2.c +++ b/libgfortran/generated/minloc0_8_i2.c @@ -148,7 +148,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index ff62da4..d6df315 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -148,7 +148,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_i4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index bb64209..df59e09 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -148,7 +148,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c index 527523a..b57bc8d 100644 --- a/libgfortran/generated/minloc0_8_r10.c +++ b/libgfortran/generated/minloc0_8_r10.c @@ -148,7 +148,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_r10 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c index 096fce4..d76b290 100644 --- a/libgfortran/generated/minloc0_8_r16.c +++ b/libgfortran/generated/minloc0_8_r16.c @@ -148,7 +148,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_r16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index d9320d8..ff3f300 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -148,7 +148,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_r4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index 7917597..e132390 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -148,7 +148,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ base -= sstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; @@ -315,7 +315,7 @@ mminloc0_8_r8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; mbase -= mstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { /* Break out of the loop. */ base = NULL; diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c index a2a2560..bf6be09 100644 --- a/libgfortran/generated/minloc1_16_i1.c +++ b/libgfortran/generated/minloc1_16_i1.c @@ -188,9 +188,9 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c index 23170e4..e4d9dab 100644 --- a/libgfortran/generated/minloc1_16_i16.c +++ b/libgfortran/generated/minloc1_16_i16.c @@ -188,9 +188,9 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c index ac14c6a..450142f 100644 --- a/libgfortran/generated/minloc1_16_i2.c +++ b/libgfortran/generated/minloc1_16_i2.c @@ -188,9 +188,9 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c index 14ba2c8..e1ca90f 100644 --- a/libgfortran/generated/minloc1_16_i4.c +++ b/libgfortran/generated/minloc1_16_i4.c @@ -188,9 +188,9 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c index f689958..b521204 100644 --- a/libgfortran/generated/minloc1_16_i8.c +++ b/libgfortran/generated/minloc1_16_i8.c @@ -188,9 +188,9 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c index cd22b3b..880bb7e 100644 --- a/libgfortran/generated/minloc1_16_r10.c +++ b/libgfortran/generated/minloc1_16_r10.c @@ -188,9 +188,9 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c index 63fadc3..4343508 100644 --- a/libgfortran/generated/minloc1_16_r16.c +++ b/libgfortran/generated/minloc1_16_r16.c @@ -188,9 +188,9 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c index eaf4687..b2fb09c 100644 --- a/libgfortran/generated/minloc1_16_r4.c +++ b/libgfortran/generated/minloc1_16_r4.c @@ -188,9 +188,9 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c index ad7c69a..f62cf33 100644 --- a/libgfortran/generated/minloc1_16_r8.c +++ b/libgfortran/generated/minloc1_16_r8.c @@ -188,9 +188,9 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c index 025949c..5bf2dba 100644 --- a/libgfortran/generated/minloc1_4_i1.c +++ b/libgfortran/generated/minloc1_4_i1.c @@ -188,9 +188,9 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c index 0fe8bed..c892587 100644 --- a/libgfortran/generated/minloc1_4_i16.c +++ b/libgfortran/generated/minloc1_4_i16.c @@ -188,9 +188,9 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c index 02a5992..42d5afa 100644 --- a/libgfortran/generated/minloc1_4_i2.c +++ b/libgfortran/generated/minloc1_4_i2.c @@ -188,9 +188,9 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index db38835..456ea79 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -188,9 +188,9 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 88719e2..a65195d 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -188,9 +188,9 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c index 8eec1bd..b106e97 100644 --- a/libgfortran/generated/minloc1_4_r10.c +++ b/libgfortran/generated/minloc1_4_r10.c @@ -188,9 +188,9 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c index 44b09b6..b1ef3b3 100644 --- a/libgfortran/generated/minloc1_4_r16.c +++ b/libgfortran/generated/minloc1_4_r16.c @@ -188,9 +188,9 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index ca95245..9ddf490 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -188,9 +188,9 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index 1572208..0619ac6 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -188,9 +188,9 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c index 707e5fb..27c7fa9 100644 --- a/libgfortran/generated/minloc1_8_i1.c +++ b/libgfortran/generated/minloc1_8_i1.c @@ -188,9 +188,9 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c index 9acb3e3..274b17e 100644 --- a/libgfortran/generated/minloc1_8_i16.c +++ b/libgfortran/generated/minloc1_8_i16.c @@ -188,9 +188,9 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c index 918f09f..416622c 100644 --- a/libgfortran/generated/minloc1_8_i2.c +++ b/libgfortran/generated/minloc1_8_i2.c @@ -188,9 +188,9 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 53b0208..ff67899 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -188,9 +188,9 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index b967c5f..c4247ac 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -188,9 +188,9 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index 8787a25..c57f72a 100644 --- a/libgfortran/generated/minloc1_8_r10.c +++ b/libgfortran/generated/minloc1_8_r10.c @@ -188,9 +188,9 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c index c4b1b4f..c1d2cd2 100644 --- a/libgfortran/generated/minloc1_8_r16.c +++ b/libgfortran/generated/minloc1_8_r16.c @@ -188,9 +188,9 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index 1e8ccc1..c1faa79 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -188,9 +188,9 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 1363e56..e7c5ee1 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -188,9 +188,9 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -398,9 +398,9 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -538,7 +538,7 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c index 842abbb..ccfdfa7 100644 --- a/libgfortran/generated/minval_i1.c +++ b/libgfortran/generated/minval_i1.c @@ -181,9 +181,9 @@ minval_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c index d5b0cc9..9d3a150 100644 --- a/libgfortran/generated/minval_i16.c +++ b/libgfortran/generated/minval_i16.c @@ -181,9 +181,9 @@ minval_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c index 0fadcf8..0c335a06 100644 --- a/libgfortran/generated/minval_i2.c +++ b/libgfortran/generated/minval_i2.c @@ -181,9 +181,9 @@ minval_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 5da7ccc..73de782 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -181,9 +181,9 @@ minval_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index 8984151..4a2a715 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -181,9 +181,9 @@ minval_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c index beebcda..2796613 100644 --- a/libgfortran/generated/minval_r10.c +++ b/libgfortran/generated/minval_r10.c @@ -181,9 +181,9 @@ minval_r10 (gfc_array_r10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_r10 (gfc_array_r10 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_r10 (gfc_array_r10 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c index 511f1ec..8bc429b 100644 --- a/libgfortran/generated/minval_r16.c +++ b/libgfortran/generated/minval_r16.c @@ -181,9 +181,9 @@ minval_r16 (gfc_array_r16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_r16 (gfc_array_r16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_r16 (gfc_array_r16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index 0498e8b..a5ecce2 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -181,9 +181,9 @@ minval_r4 (gfc_array_r4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_r4 (gfc_array_r4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_r4 (gfc_array_r4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 528fbe4..78c751e 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -181,9 +181,9 @@ minval_r8 (gfc_array_r8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -386,9 +386,9 @@ mminval_r8 (gfc_array_r8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -526,7 +526,7 @@ sminval_r8 (gfc_array_r8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c index c4864c8..4c5a230 100644 --- a/libgfortran/generated/norm2_r10.c +++ b/libgfortran/generated/norm2_r10.c @@ -187,9 +187,9 @@ norm2_r10 (gfc_array_r10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c index 35cbe93..5eaefb8 100644 --- a/libgfortran/generated/norm2_r16.c +++ b/libgfortran/generated/norm2_r16.c @@ -191,9 +191,9 @@ norm2_r16 (gfc_array_r16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c index 9d9d936..0482b16 100644 --- a/libgfortran/generated/norm2_r4.c +++ b/libgfortran/generated/norm2_r4.c @@ -187,9 +187,9 @@ norm2_r4 (gfc_array_r4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c index c4c34c4..173faa6 100644 --- a/libgfortran/generated/norm2_r8.c +++ b/libgfortran/generated/norm2_r8.c @@ -187,9 +187,9 @@ norm2_r8 (gfc_array_r8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c index 651f616..4fe64de 100644 --- a/libgfortran/generated/parity_l1.c +++ b/libgfortran/generated/parity_l1.c @@ -167,9 +167,9 @@ parity_l1 (gfc_array_l1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c index a2919a4..d9e0a8e 100644 --- a/libgfortran/generated/parity_l16.c +++ b/libgfortran/generated/parity_l16.c @@ -167,9 +167,9 @@ parity_l16 (gfc_array_l16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c index 68f9b4f..3cf2631 100644 --- a/libgfortran/generated/parity_l2.c +++ b/libgfortran/generated/parity_l2.c @@ -167,9 +167,9 @@ parity_l2 (gfc_array_l2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c index 9cff082..70cdd18 100644 --- a/libgfortran/generated/parity_l4.c +++ b/libgfortran/generated/parity_l4.c @@ -167,9 +167,9 @@ parity_l4 (gfc_array_l4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c index 9e6e1ff..d22c9a5 100644 --- a/libgfortran/generated/parity_l8.c +++ b/libgfortran/generated/parity_l8.c @@ -167,9 +167,9 @@ parity_l8 (gfc_array_l8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c index 4c41d57..4e2f6f2 100644 --- a/libgfortran/generated/product_c10.c +++ b/libgfortran/generated/product_c10.c @@ -167,9 +167,9 @@ product_c10 (gfc_array_c10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c index 69c4c09..df73041 100644 --- a/libgfortran/generated/product_c16.c +++ b/libgfortran/generated/product_c16.c @@ -167,9 +167,9 @@ product_c16 (gfc_array_c16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index 7f0f8ec..3d097a9 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -167,9 +167,9 @@ product_c4 (gfc_array_c4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index e1d3140..4bb1dde 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -167,9 +167,9 @@ product_c8 (gfc_array_c8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c index 013ea30..fc03a48 100644 --- a/libgfortran/generated/product_i1.c +++ b/libgfortran/generated/product_i1.c @@ -167,9 +167,9 @@ product_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c index 477f186..6a4e1aa 100644 --- a/libgfortran/generated/product_i16.c +++ b/libgfortran/generated/product_i16.c @@ -167,9 +167,9 @@ product_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c index c9b2b99..82a650f 100644 --- a/libgfortran/generated/product_i2.c +++ b/libgfortran/generated/product_i2.c @@ -167,9 +167,9 @@ product_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 7b7f01a..84f7c36 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -167,9 +167,9 @@ product_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 4283eee..5ace173 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -167,9 +167,9 @@ product_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c index fcf25f8..54e2291 100644 --- a/libgfortran/generated/product_r10.c +++ b/libgfortran/generated/product_r10.c @@ -167,9 +167,9 @@ product_r10 (gfc_array_r10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c index 365d69e..d3a2afd 100644 --- a/libgfortran/generated/product_r16.c +++ b/libgfortran/generated/product_r16.c @@ -167,9 +167,9 @@ product_r16 (gfc_array_r16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index 9c541ed..94a2f10 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -167,9 +167,9 @@ product_r4 (gfc_array_r4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index e71e24f..2daba75 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -167,9 +167,9 @@ product_r8 (gfc_array_r8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c index 4dfff6a..9d16db2 100644 --- a/libgfortran/generated/sum_c10.c +++ b/libgfortran/generated/sum_c10.c @@ -167,9 +167,9 @@ sum_c10 (gfc_array_c10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_c10 (gfc_array_c10 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c index 8c94dd0..5811101 100644 --- a/libgfortran/generated/sum_c16.c +++ b/libgfortran/generated/sum_c16.c @@ -167,9 +167,9 @@ sum_c16 (gfc_array_c16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_c16 (gfc_array_c16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index cd9c4e9..27438bf 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -167,9 +167,9 @@ sum_c4 (gfc_array_c4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_c4 (gfc_array_c4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index 958ab38..cb58bbf 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -167,9 +167,9 @@ sum_c8 (gfc_array_c8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_c8 (gfc_array_c8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c index bd19892..1980383 100644 --- a/libgfortran/generated/sum_i1.c +++ b/libgfortran/generated/sum_i1.c @@ -167,9 +167,9 @@ sum_i1 (gfc_array_i1 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_i1 (gfc_array_i1 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c index 7227d60..0abaff0 100644 --- a/libgfortran/generated/sum_i16.c +++ b/libgfortran/generated/sum_i16.c @@ -167,9 +167,9 @@ sum_i16 (gfc_array_i16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_i16 (gfc_array_i16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c index d308991..6332b64 100644 --- a/libgfortran/generated/sum_i2.c +++ b/libgfortran/generated/sum_i2.c @@ -167,9 +167,9 @@ sum_i2 (gfc_array_i2 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_i2 (gfc_array_i2 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index 26d0130..27dd47e 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -167,9 +167,9 @@ sum_i4 (gfc_array_i4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_i4 (gfc_array_i4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index 95f1252..f7639db 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -167,9 +167,9 @@ sum_i8 (gfc_array_i8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_i8 (gfc_array_i8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c index 7e478db..07caf23 100644 --- a/libgfortran/generated/sum_r10.c +++ b/libgfortran/generated/sum_r10.c @@ -167,9 +167,9 @@ sum_r10 (gfc_array_r10 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_r10 (gfc_array_r10 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c index d3cc4b8..374c2b3 100644 --- a/libgfortran/generated/sum_r16.c +++ b/libgfortran/generated/sum_r16.c @@ -167,9 +167,9 @@ sum_r16 (gfc_array_r16 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_r16 (gfc_array_r16 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index faeb093..4b5caee 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -167,9 +167,9 @@ sum_r4 (gfc_array_r4 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_r4 (gfc_array_r4 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index 861458e..18872d7 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -167,9 +167,9 @@ sum_r8 (gfc_array_r8 * const restrict retarray, base -= sstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ continue_loop = 0; break; } @@ -344,9 +344,9 @@ msum_r8 (gfc_array_r8 * const restrict retarray, mbase -= mstride[n] * extent[n]; dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) { - /* Break out of the look. */ + /* Break out of the loop. */ base = NULL; break; } @@ -484,7 +484,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray, frequently used path so probably not worth it. */ dest -= dstride[n] * extent[n]; n++; - if (n == rank) + if (n >= rank) return; else { |