diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-10 19:42:46 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-10 19:42:46 +0000 |
| commit | bacde0a1fa06e04b07478ad4b5ab8c4f289d7eb9 (patch) | |
| tree | 10b7e42e65eb89c6f795ff465b4c61c7527c4353 /libgfortran | |
| parent | 319901d067e8331dfe117f24315507837191d2a9 (diff) | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@246053 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
195 files changed, 929 insertions, 730 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index edb416bde94..bd2f726670d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,202 @@ +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. + 2017-03-05 Andre Vehreschild <vehre@gcc.gnu.org> Alessandro Fanfarillo <fanfarillo.gcc@gmail.com> diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c index 6a04f86a8d9..46168ebac83 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 7962fb61c98..2fa957829f4 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 8e4cf284083..5b08556ec5f 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 b3edb83b1ad..b57374270b5 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 299f05a0139..dfac0e3c27a 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 df4c053d1e1..e2bf26c4e6a 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 261c5fe9d6e..5b2987dbaba 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 ebd19ee6eec..6e28643eace 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 2bd83fb70eb..7d2fcd06814 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 c4c5adcdb82..c72d12fb07c 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 98c5aeed106..28ae1611db0 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 051400dc830..8b1892c0faa 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 256403ffaba..8132c2ed757 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 2d10338e517..f90ba357d8e 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 d366568218f..efce9e48062 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 f49c73fde91..619c833c33b 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 01178998495..4d37d9c80bf 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 9b594ed579c..283ceffb2c9 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 4e4dd50dd8b..ef0ac58d3b9 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 0d562cc47ab..ef780b01c71 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 4cf28fc2e5f..b60d4f2d383 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 7cddbc5abf4..f8fb40acd1c 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 08566834678..ef931b35a57 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 14d43a237ca..d0ecaef23d0 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 a6b1c025151..c963165cf18 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 6ebf498c480..18e9fc24be1 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 670c74e57f8..5b8ea697483 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 63f7b4313c7..0076667caba 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 682b1705dcb..20798423f5c 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 3b8f55c439f..60e390e99b7 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 09d1f72c161..5fd888707a5 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 f5626ecb9cc..2a4d5d1c9a3 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 d2f4d45734f..43e70656731 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 be2da162ab1..d7e539db540 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 de63fdf7ca3..72afd48cb9f 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 8663b3251c2..670239b57db 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 f9cda989a25..aa98e7d85d2 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 2368b01c513..006d593c08b 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 168b0dc451c..a8d44d5cd85 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 5059f23bd44..32caa2d0db7 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 9951ebd294a..fb05f9c0b54 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 8a905746c74..84520a99231 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 cfa1c177c44..9d2e007a818 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 0f79f0fc238..a2366733fad 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 711d1e5b9f3..c1953ab1c0f 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 3d96dd9eead..d0221d7611e 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 292c0bfb031..9f3931a1bf7 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 b735ac02c51..dff5190e5a3 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 7ef8f7b0880..d5a66288f48 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 65a378415ef..ce2ad4910b6 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 afffe3f4e4d..f9c9732886f 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 41d8d64a4bd..cc9d94cf311 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 170cfe7bfea..c61fbedb8e2 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 3333280402b..07acd254058 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 4826fbfecc2..5b98163b048 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 d0c9a33b9c1..0caccea262a 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 905472e3489..4e51b65e526 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 1d54b1d0ab3..48f2fc01e59 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 f6a8930537c..6c154fb84e7 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 595fa2c8950..029e061e43c 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 2d68405cd6f..aceb7aeb69b 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 06b20750c5a..000a0cf599c 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 896de8ac9ff..53378d958e2 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 93cddf4c594..4bdc4d66b89 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 42419b75eeb..36d79e23ce3 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 db0d6a3f629..3993f77619b 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 284116abe52..05d2af4be3e 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 48c27674bc8..67e8a9ca2c7 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 b9c9a010d98..60ceaa698f4 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 5222bc39ecd..d2f30b7246a 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 f9f067f18ef..13a7dc6d34c 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 8baf3376d48..204229293c4 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 03aa2abe348..95076481c10 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 94c3260b46c..87c6ca5eb40 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 11f71ee3496..a13986a1fa8 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 a46ddab5732..71a5d97efe4 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 0e04e8ca202..92cf55c4e2c 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 d29c7ec294e..fd1063c5df1 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 c477cdc60d4..db82ae894ae 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 5af011a0976..43b4af14792 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 0f352b2508a..9ba6cb950e4 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 57e4ce4a6c7..f7eb1ebf9be 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 a74fa5c7633..67b455bb735 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 a7a1bf79d23..bd0913f4fea 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 5593ffeca95..90ddf350378 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 fa2536de34f..6a54739e290 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 ed90dad9fa0..3cdb5b9d3ed 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 67c7b0e37d1..d7ae9951a4a 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 9cad4e3fff6..d622da09b27 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 96f77b73527..9c4c6fbb26c 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 6416040744b..f10573233e3 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 ec5b1ac3e1b..94d4f335a19 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 8788420dca3..5ba70b62edb 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 7fb5c6e0b24..e458174b285 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 4bdf9a09db8..b15ec83670e 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 f01afcaae28..b54495280de 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 b2b5c8a3d91..5fa12c924e4 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 7ae23368fef..b8aefae9e61 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 5388bb3cb87..801b9e64131 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 3aca587355b..499292fb213 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 88f4cdbb8e7..d4377d45e75 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 a360b595426..43e2c7fc0a6 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 470d2eab98f..756c2dc86d1 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 8dcea5ec11d..3e38c724148 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 1e9e154de99..c8136b66f34 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 7e80a494da7..a0afc1a8b3e 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 f0a9ed3588c..21b818f169d 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 dd0bdf2ea77..6b86186cf04 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 d3a2e57af20..ca3ca9d02dc 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 f507e796606..f33c455a9a8 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 97eff1d3bb0..6658b01b3df 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 988e2771298..8f0c48d0804 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 82e61a056b6..50f5f861581 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 d6055820c8a..936cdf5d8d7 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 ff62da4e48f..d6df3158b95 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 bb6420998a6..df59e0933c2 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 527523a48f1..b57bc8d260b 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 096fce480ff..d76b290f870 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 d9320d8854b..ff3f300f701 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 7917597adb0..e13239037da 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 a2a2560562b..bf6be092e85 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 23170e412fa..e4d9dab0b7f 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 ac14c6a7e62..450142f7a82 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 14ba2c85882..e1ca90f803b 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 f6899582663..b5212041d73 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 cd22b3be2b6..880bb7e2986 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 63fadc354fd..4343508d4a0 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 eaf4687acc6..b2fb09c92e9 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 ad7c69a6bcc..f62cf337153 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 025949c5fe5..5bf2dbacdc4 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 0fe8bedaa28..c8925879e9c 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 02a59927a95..42d5afaf3d2 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 db38835bd24..456ea792b3f 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 88719e20928..a65195dcc3f 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 8eec1bdf26e..b106e97dde8 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 44b09b65c8d..b1ef3b3ee62 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 ca95245ea49..9ddf490d68b 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 15722080440..0619ac6f0a7 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 707e5fb194d..27c7fa9e350 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 9acb3e3c58a..274b17e45f9 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 918f09fee36..416622c36e7 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 53b0208b9df..ff67899917c 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 b967c5ff597..c4247ac7f17 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 8787a2568e6..c57f72aabe6 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 c4b1b4f660d..c1d2cd2a88e 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 1e8ccc164bb..c1faa797d4c 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 1363e565ded..e7c5ee19ad1 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 842abbb4a3c..ccfdfa7670b 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 d5b0cc9f7f1..9d3a1502e98 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 0fadcf8208a..0c335a06894 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 5da7ccc47ff..73de782ef09 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 8984151a9ad..4a2a7150084 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 beebcdae73d..27966136955 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 511f1ecf4ee..8bc429b8d92 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 0498e8b63e0..a5ecce21dd9 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 528fbe4ad06..78c751ef699 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 c4864c8a073..4c5a2306285 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 35cbe93cccb..5eaefb8a92d 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 9d9d936fb37..0482b16ca2d 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 c4c34c4b837..173faa63eb2 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 651f61614b8..4fe64dec7db 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 a2919a44b5d..d9e0a8efcdc 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 68f9b4fc00b..3cf26312f02 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 9cff0825b3a..70cdd18aef9 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 9e6e1ffa4c7..d22c9a55371 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 4c41d5765c5..4e2f6f2b566 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 69c4c097e46..df73041f170 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 7f0f8ecdf28..3d097a9a3ec 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 e1d314029d6..4bb1ddee0fe 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 013ea30dc29..fc03a48bc05 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 477f186c556..6a4e1aa29a3 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 c9b2b99fd4d..82a650f6ec6 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 7b7f01a501e..84f7c36e439 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 4283eee3c52..5ace17304e4 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 fcf25f8fbe4..54e22915b88 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 365d69e5b75..d3a2afdbdad 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 9c541ed9d1d..94a2f106038 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 e71e24f50b9..2daba7587bd 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 4dfff6af3f6..9d16db231b4 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 8c94dd047d6..58111014100 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 cd9c4e94db2..27438bf4bac 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 958ab38bf6a..cb58bbf5724 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 bd1989202e6..1980383b5db 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 7227d600463..0abaff00ade 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 d308991184d..6332b647743 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 26d0130c424..27dd47ee8c5 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 95f1252f72b..f7639db0ae7 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 7e478db531d..07caf236034 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 d3cc4b8b38d..374c2b326f3 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 faeb0936042..4b5caeede98 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 861458e24b6..18872d7d535 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 { diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index 2b916af66dd..e7521e62537 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -85,7 +85,7 @@ define(FINISH_FOREACH_FUNCTION, 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; @@ -203,7 +203,7 @@ define(FINISH_MASKED_FOREACH_FUNCTION, 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/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index b4de9a87608..43d8775d04c 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -157,9 +157,9 @@ define(FINISH_ARRAY_FUNCTION, 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; } @@ -333,9 +333,9 @@ define(FINISH_MASKED_ARRAY_FUNCTION, 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; } @@ -473,7 +473,7 @@ void 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/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4 index fd3afb074f8..fda8812cc51 100644 --- a/libgfortran/m4/ifunction_logical.m4 +++ b/libgfortran/m4/ifunction_logical.m4 @@ -184,9 +184,9 @@ define(FINISH_ARRAY_FUNCTION, 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; } |