summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas Koenig <tkoenig@gcc.gnu.org>2017-03-10 19:42:46 +0000
committerThomas Koenig <tkoenig@gcc.gnu.org>2017-03-10 19:42:46 +0000
commit80dd631fceac3b9b8da712fa9e1c1a2f61002cb9 (patch)
tree10b7e42e65eb89c6f795ff465b4c61c7527c4353
parent4ccfdb287ef9e8a62ac09f47b0158b17b1d91190 (diff)
downloadgcc-80dd631fceac3b9b8da712fa9e1c1a2f61002cb9.tar.gz
re PR libfortran/79956 (many new -Wmaybe-uninitialized warnings with bootstrap-O3)
2017-03-10 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/79956 * m4/iforeach.m4: Change exit condition from loop for increasing dimension to >=. Fix type in comment. * m4/ifunction.m4: Likewise. * m4/ifunction_logical.m4: Likewise. * generated/all_l1.c: Regenerated. * generated/all_l16.c: Regenerated. * generated/all_l2.c: Regenerated. * generated/all_l4.c: Regenerated. * generated/all_l8.c: Regenerated. * generated/any_l1.c: Regenerated. * generated/any_l16.c: Regenerated. * generated/any_l2.c: Regenerated. * generated/any_l4.c: Regenerated. * generated/any_l8.c: Regenerated. * generated/count_16_l.c: Regenerated. * generated/count_1_l.c: Regenerated. * generated/count_2_l.c: Regenerated. * generated/count_4_l.c: Regenerated. * generated/count_8_l.c: Regenerated. * generated/iall_i1.c: Regenerated. * generated/iall_i16.c: Regenerated. * generated/iall_i2.c: Regenerated. * generated/iall_i4.c: Regenerated. * generated/iall_i8.c: Regenerated. * generated/iany_i1.c: Regenerated. * generated/iany_i16.c: Regenerated. * generated/iany_i2.c: Regenerated. * generated/iany_i4.c: Regenerated. * generated/iany_i8.c: Regenerated. * generated/iparity_i1.c: Regenerated. * generated/iparity_i16.c: Regenerated. * generated/iparity_i2.c: Regenerated. * generated/iparity_i4.c: Regenerated. * generated/iparity_i8.c: Regenerated. * generated/maxloc0_16_i1.c: Regenerated. * generated/maxloc0_16_i16.c: Regenerated. * generated/maxloc0_16_i2.c: Regenerated. * generated/maxloc0_16_i4.c: Regenerated. * generated/maxloc0_16_i8.c: Regenerated. * generated/maxloc0_16_r10.c: Regenerated. * generated/maxloc0_16_r16.c: Regenerated. * generated/maxloc0_16_r4.c: Regenerated. * generated/maxloc0_16_r8.c: Regenerated. * generated/maxloc0_4_i1.c: Regenerated. * generated/maxloc0_4_i16.c: Regenerated. * generated/maxloc0_4_i2.c: Regenerated. * generated/maxloc0_4_i4.c: Regenerated. * generated/maxloc0_4_i8.c: Regenerated. * generated/maxloc0_4_r10.c: Regenerated. * generated/maxloc0_4_r16.c: Regenerated. * generated/maxloc0_4_r4.c: Regenerated. * generated/maxloc0_4_r8.c: Regenerated. * generated/maxloc0_8_i1.c: Regenerated. * generated/maxloc0_8_i16.c: Regenerated. * generated/maxloc0_8_i2.c: Regenerated. * generated/maxloc0_8_i4.c: Regenerated. * generated/maxloc0_8_i8.c: Regenerated. * generated/maxloc0_8_r10.c: Regenerated. * generated/maxloc0_8_r16.c: Regenerated. * generated/maxloc0_8_r4.c: Regenerated. * generated/maxloc0_8_r8.c: Regenerated. * generated/maxloc1_16_i1.c: Regenerated. * generated/maxloc1_16_i16.c: Regenerated. * generated/maxloc1_16_i2.c: Regenerated. * generated/maxloc1_16_i4.c: Regenerated. * generated/maxloc1_16_i8.c: Regenerated. * generated/maxloc1_16_r10.c: Regenerated. * generated/maxloc1_16_r16.c: Regenerated. * generated/maxloc1_16_r4.c: Regenerated. * generated/maxloc1_16_r8.c: Regenerated. * generated/maxloc1_4_i1.c: Regenerated. * generated/maxloc1_4_i16.c: Regenerated. * generated/maxloc1_4_i2.c: Regenerated. * generated/maxloc1_4_i4.c: Regenerated. * generated/maxloc1_4_i8.c: Regenerated. * generated/maxloc1_4_r10.c: Regenerated. * generated/maxloc1_4_r16.c: Regenerated. * generated/maxloc1_4_r4.c: Regenerated. * generated/maxloc1_4_r8.c: Regenerated. * generated/maxloc1_8_i1.c: Regenerated. * generated/maxloc1_8_i16.c: Regenerated. * generated/maxloc1_8_i2.c: Regenerated. * generated/maxloc1_8_i4.c: Regenerated. * generated/maxloc1_8_i8.c: Regenerated. * generated/maxloc1_8_r10.c: Regenerated. * generated/maxloc1_8_r16.c: Regenerated. * generated/maxloc1_8_r4.c: Regenerated. * generated/maxloc1_8_r8.c: Regenerated. * generated/maxval_i1.c: Regenerated. * generated/maxval_i16.c: Regenerated. * generated/maxval_i2.c: Regenerated. * generated/maxval_i4.c: Regenerated. * generated/maxval_i8.c: Regenerated. * generated/maxval_r10.c: Regenerated. * generated/maxval_r16.c: Regenerated. * generated/maxval_r4.c: Regenerated. * generated/maxval_r8.c: Regenerated. * generated/minloc0_16_i1.c: Regenerated. * generated/minloc0_16_i16.c: Regenerated. * generated/minloc0_16_i2.c: Regenerated. * generated/minloc0_16_i4.c: Regenerated. * generated/minloc0_16_i8.c: Regenerated. * generated/minloc0_16_r10.c: Regenerated. * generated/minloc0_16_r16.c: Regenerated. * generated/minloc0_16_r4.c: Regenerated. * generated/minloc0_16_r8.c: Regenerated. * generated/minloc0_4_i1.c: Regenerated. * generated/minloc0_4_i16.c: Regenerated. * generated/minloc0_4_i2.c: Regenerated. * generated/minloc0_4_i4.c: Regenerated. * generated/minloc0_4_i8.c: Regenerated. * generated/minloc0_4_r10.c: Regenerated. * generated/minloc0_4_r16.c: Regenerated. * generated/minloc0_4_r4.c: Regenerated. * generated/minloc0_4_r8.c: Regenerated. * generated/minloc0_8_i1.c: Regenerated. * generated/minloc0_8_i16.c: Regenerated. * generated/minloc0_8_i2.c: Regenerated. * generated/minloc0_8_i4.c: Regenerated. * generated/minloc0_8_i8.c: Regenerated. * generated/minloc0_8_r10.c: Regenerated. * generated/minloc0_8_r16.c: Regenerated. * generated/minloc0_8_r4.c: Regenerated. * generated/minloc0_8_r8.c: Regenerated. * generated/minloc1_16_i1.c: Regenerated. * generated/minloc1_16_i16.c: Regenerated. * generated/minloc1_16_i2.c: Regenerated. * generated/minloc1_16_i4.c: Regenerated. * generated/minloc1_16_i8.c: Regenerated. * generated/minloc1_16_r10.c: Regenerated. * generated/minloc1_16_r16.c: Regenerated. * generated/minloc1_16_r4.c: Regenerated. * generated/minloc1_16_r8.c: Regenerated. * generated/minloc1_4_i1.c: Regenerated. * generated/minloc1_4_i16.c: Regenerated. * generated/minloc1_4_i2.c: Regenerated. * generated/minloc1_4_i4.c: Regenerated. * generated/minloc1_4_i8.c: Regenerated. * generated/minloc1_4_r10.c: Regenerated. * generated/minloc1_4_r16.c: Regenerated. * generated/minloc1_4_r4.c: Regenerated. * generated/minloc1_4_r8.c: Regenerated. * generated/minloc1_8_i1.c: Regenerated. * generated/minloc1_8_i16.c: Regenerated. * generated/minloc1_8_i2.c: Regenerated. * generated/minloc1_8_i4.c: Regenerated. * generated/minloc1_8_i8.c: Regenerated. * generated/minloc1_8_r10.c: Regenerated. * generated/minloc1_8_r16.c: Regenerated. * generated/minloc1_8_r4.c: Regenerated. * generated/minloc1_8_r8.c: Regenerated. * generated/minval_i1.c: Regenerated. * generated/minval_i16.c: Regenerated. * generated/minval_i2.c: Regenerated. * generated/minval_i4.c: Regenerated. * generated/minval_i8.c: Regenerated. * generated/minval_r10.c: Regenerated. * generated/minval_r16.c: Regenerated. * generated/minval_r4.c: Regenerated. * generated/minval_r8.c: Regenerated. * generated/norm2_r10.c: Regenerated. * generated/norm2_r16.c: Regenerated. * generated/norm2_r4.c: Regenerated. * generated/norm2_r8.c: Regenerated. * generated/parity_l1.c: Regenerated. * generated/parity_l16.c: Regenerated. * generated/parity_l2.c: Regenerated. * generated/parity_l4.c: Regenerated. * generated/parity_l8.c: Regenerated. * generated/product_c10.c: Regenerated. * generated/product_c16.c: Regenerated. * generated/product_c4.c: Regenerated. * generated/product_c8.c: Regenerated. * generated/product_i1.c: Regenerated. * generated/product_i16.c: Regenerated. * generated/product_i2.c: Regenerated. * generated/product_i4.c: Regenerated. * generated/product_i8.c: Regenerated. * generated/product_r10.c: Regenerated. * generated/product_r16.c: Regenerated. * generated/product_r4.c: Regenerated. * generated/product_r8.c: Regenerated. * generated/sum_c10.c: Regenerated. * generated/sum_c16.c: Regenerated. * generated/sum_c4.c: Regenerated. * generated/sum_c8.c: Regenerated. * generated/sum_i1.c: Regenerated. * generated/sum_i16.c: Regenerated. * generated/sum_i2.c: Regenerated. * generated/sum_i4.c: Regenerated. * generated/sum_i8.c: Regenerated. * generated/sum_r10.c: Regenerated. * generated/sum_r16.c: Regenerated. * generated/sum_r4.c: Regenerated. * generated/sum_r8.c: Regenerated. From-SVN: r246053
-rw-r--r--libgfortran/ChangeLog199
-rw-r--r--libgfortran/generated/all_l1.c4
-rw-r--r--libgfortran/generated/all_l16.c4
-rw-r--r--libgfortran/generated/all_l2.c4
-rw-r--r--libgfortran/generated/all_l4.c4
-rw-r--r--libgfortran/generated/all_l8.c4
-rw-r--r--libgfortran/generated/any_l1.c4
-rw-r--r--libgfortran/generated/any_l16.c4
-rw-r--r--libgfortran/generated/any_l2.c4
-rw-r--r--libgfortran/generated/any_l4.c4
-rw-r--r--libgfortran/generated/any_l8.c4
-rw-r--r--libgfortran/generated/count_16_l.c4
-rw-r--r--libgfortran/generated/count_1_l.c4
-rw-r--r--libgfortran/generated/count_2_l.c4
-rw-r--r--libgfortran/generated/count_4_l.c4
-rw-r--r--libgfortran/generated/count_8_l.c4
-rw-r--r--libgfortran/generated/iall_i1.c10
-rw-r--r--libgfortran/generated/iall_i16.c10
-rw-r--r--libgfortran/generated/iall_i2.c10
-rw-r--r--libgfortran/generated/iall_i4.c10
-rw-r--r--libgfortran/generated/iall_i8.c10
-rw-r--r--libgfortran/generated/iany_i1.c10
-rw-r--r--libgfortran/generated/iany_i16.c10
-rw-r--r--libgfortran/generated/iany_i2.c10
-rw-r--r--libgfortran/generated/iany_i4.c10
-rw-r--r--libgfortran/generated/iany_i8.c10
-rw-r--r--libgfortran/generated/iparity_i1.c10
-rw-r--r--libgfortran/generated/iparity_i16.c10
-rw-r--r--libgfortran/generated/iparity_i2.c10
-rw-r--r--libgfortran/generated/iparity_i4.c10
-rw-r--r--libgfortran/generated/iparity_i8.c10
-rw-r--r--libgfortran/generated/maxloc0_16_i1.c4
-rw-r--r--libgfortran/generated/maxloc0_16_i16.c4
-rw-r--r--libgfortran/generated/maxloc0_16_i2.c4
-rw-r--r--libgfortran/generated/maxloc0_16_i4.c4
-rw-r--r--libgfortran/generated/maxloc0_16_i8.c4
-rw-r--r--libgfortran/generated/maxloc0_16_r10.c4
-rw-r--r--libgfortran/generated/maxloc0_16_r16.c4
-rw-r--r--libgfortran/generated/maxloc0_16_r4.c4
-rw-r--r--libgfortran/generated/maxloc0_16_r8.c4
-rw-r--r--libgfortran/generated/maxloc0_4_i1.c4
-rw-r--r--libgfortran/generated/maxloc0_4_i16.c4
-rw-r--r--libgfortran/generated/maxloc0_4_i2.c4
-rw-r--r--libgfortran/generated/maxloc0_4_i4.c4
-rw-r--r--libgfortran/generated/maxloc0_4_i8.c4
-rw-r--r--libgfortran/generated/maxloc0_4_r10.c4
-rw-r--r--libgfortran/generated/maxloc0_4_r16.c4
-rw-r--r--libgfortran/generated/maxloc0_4_r4.c4
-rw-r--r--libgfortran/generated/maxloc0_4_r8.c4
-rw-r--r--libgfortran/generated/maxloc0_8_i1.c4
-rw-r--r--libgfortran/generated/maxloc0_8_i16.c4
-rw-r--r--libgfortran/generated/maxloc0_8_i2.c4
-rw-r--r--libgfortran/generated/maxloc0_8_i4.c4
-rw-r--r--libgfortran/generated/maxloc0_8_i8.c4
-rw-r--r--libgfortran/generated/maxloc0_8_r10.c4
-rw-r--r--libgfortran/generated/maxloc0_8_r16.c4
-rw-r--r--libgfortran/generated/maxloc0_8_r4.c4
-rw-r--r--libgfortran/generated/maxloc0_8_r8.c4
-rw-r--r--libgfortran/generated/maxloc1_16_i1.c10
-rw-r--r--libgfortran/generated/maxloc1_16_i16.c10
-rw-r--r--libgfortran/generated/maxloc1_16_i2.c10
-rw-r--r--libgfortran/generated/maxloc1_16_i4.c10
-rw-r--r--libgfortran/generated/maxloc1_16_i8.c10
-rw-r--r--libgfortran/generated/maxloc1_16_r10.c10
-rw-r--r--libgfortran/generated/maxloc1_16_r16.c10
-rw-r--r--libgfortran/generated/maxloc1_16_r4.c10
-rw-r--r--libgfortran/generated/maxloc1_16_r8.c10
-rw-r--r--libgfortran/generated/maxloc1_4_i1.c10
-rw-r--r--libgfortran/generated/maxloc1_4_i16.c10
-rw-r--r--libgfortran/generated/maxloc1_4_i2.c10
-rw-r--r--libgfortran/generated/maxloc1_4_i4.c10
-rw-r--r--libgfortran/generated/maxloc1_4_i8.c10
-rw-r--r--libgfortran/generated/maxloc1_4_r10.c10
-rw-r--r--libgfortran/generated/maxloc1_4_r16.c10
-rw-r--r--libgfortran/generated/maxloc1_4_r4.c10
-rw-r--r--libgfortran/generated/maxloc1_4_r8.c10
-rw-r--r--libgfortran/generated/maxloc1_8_i1.c10
-rw-r--r--libgfortran/generated/maxloc1_8_i16.c10
-rw-r--r--libgfortran/generated/maxloc1_8_i2.c10
-rw-r--r--libgfortran/generated/maxloc1_8_i4.c10
-rw-r--r--libgfortran/generated/maxloc1_8_i8.c10
-rw-r--r--libgfortran/generated/maxloc1_8_r10.c10
-rw-r--r--libgfortran/generated/maxloc1_8_r16.c10
-rw-r--r--libgfortran/generated/maxloc1_8_r4.c10
-rw-r--r--libgfortran/generated/maxloc1_8_r8.c10
-rw-r--r--libgfortran/generated/maxval_i1.c10
-rw-r--r--libgfortran/generated/maxval_i16.c10
-rw-r--r--libgfortran/generated/maxval_i2.c10
-rw-r--r--libgfortran/generated/maxval_i4.c10
-rw-r--r--libgfortran/generated/maxval_i8.c10
-rw-r--r--libgfortran/generated/maxval_r10.c10
-rw-r--r--libgfortran/generated/maxval_r16.c10
-rw-r--r--libgfortran/generated/maxval_r4.c10
-rw-r--r--libgfortran/generated/maxval_r8.c10
-rw-r--r--libgfortran/generated/minloc0_16_i1.c4
-rw-r--r--libgfortran/generated/minloc0_16_i16.c4
-rw-r--r--libgfortran/generated/minloc0_16_i2.c4
-rw-r--r--libgfortran/generated/minloc0_16_i4.c4
-rw-r--r--libgfortran/generated/minloc0_16_i8.c4
-rw-r--r--libgfortran/generated/minloc0_16_r10.c4
-rw-r--r--libgfortran/generated/minloc0_16_r16.c4
-rw-r--r--libgfortran/generated/minloc0_16_r4.c4
-rw-r--r--libgfortran/generated/minloc0_16_r8.c4
-rw-r--r--libgfortran/generated/minloc0_4_i1.c4
-rw-r--r--libgfortran/generated/minloc0_4_i16.c4
-rw-r--r--libgfortran/generated/minloc0_4_i2.c4
-rw-r--r--libgfortran/generated/minloc0_4_i4.c4
-rw-r--r--libgfortran/generated/minloc0_4_i8.c4
-rw-r--r--libgfortran/generated/minloc0_4_r10.c4
-rw-r--r--libgfortran/generated/minloc0_4_r16.c4
-rw-r--r--libgfortran/generated/minloc0_4_r4.c4
-rw-r--r--libgfortran/generated/minloc0_4_r8.c4
-rw-r--r--libgfortran/generated/minloc0_8_i1.c4
-rw-r--r--libgfortran/generated/minloc0_8_i16.c4
-rw-r--r--libgfortran/generated/minloc0_8_i2.c4
-rw-r--r--libgfortran/generated/minloc0_8_i4.c4
-rw-r--r--libgfortran/generated/minloc0_8_i8.c4
-rw-r--r--libgfortran/generated/minloc0_8_r10.c4
-rw-r--r--libgfortran/generated/minloc0_8_r16.c4
-rw-r--r--libgfortran/generated/minloc0_8_r4.c4
-rw-r--r--libgfortran/generated/minloc0_8_r8.c4
-rw-r--r--libgfortran/generated/minloc1_16_i1.c10
-rw-r--r--libgfortran/generated/minloc1_16_i16.c10
-rw-r--r--libgfortran/generated/minloc1_16_i2.c10
-rw-r--r--libgfortran/generated/minloc1_16_i4.c10
-rw-r--r--libgfortran/generated/minloc1_16_i8.c10
-rw-r--r--libgfortran/generated/minloc1_16_r10.c10
-rw-r--r--libgfortran/generated/minloc1_16_r16.c10
-rw-r--r--libgfortran/generated/minloc1_16_r4.c10
-rw-r--r--libgfortran/generated/minloc1_16_r8.c10
-rw-r--r--libgfortran/generated/minloc1_4_i1.c10
-rw-r--r--libgfortran/generated/minloc1_4_i16.c10
-rw-r--r--libgfortran/generated/minloc1_4_i2.c10
-rw-r--r--libgfortran/generated/minloc1_4_i4.c10
-rw-r--r--libgfortran/generated/minloc1_4_i8.c10
-rw-r--r--libgfortran/generated/minloc1_4_r10.c10
-rw-r--r--libgfortran/generated/minloc1_4_r16.c10
-rw-r--r--libgfortran/generated/minloc1_4_r4.c10
-rw-r--r--libgfortran/generated/minloc1_4_r8.c10
-rw-r--r--libgfortran/generated/minloc1_8_i1.c10
-rw-r--r--libgfortran/generated/minloc1_8_i16.c10
-rw-r--r--libgfortran/generated/minloc1_8_i2.c10
-rw-r--r--libgfortran/generated/minloc1_8_i4.c10
-rw-r--r--libgfortran/generated/minloc1_8_i8.c10
-rw-r--r--libgfortran/generated/minloc1_8_r10.c10
-rw-r--r--libgfortran/generated/minloc1_8_r16.c10
-rw-r--r--libgfortran/generated/minloc1_8_r4.c10
-rw-r--r--libgfortran/generated/minloc1_8_r8.c10
-rw-r--r--libgfortran/generated/minval_i1.c10
-rw-r--r--libgfortran/generated/minval_i16.c10
-rw-r--r--libgfortran/generated/minval_i2.c10
-rw-r--r--libgfortran/generated/minval_i4.c10
-rw-r--r--libgfortran/generated/minval_i8.c10
-rw-r--r--libgfortran/generated/minval_r10.c10
-rw-r--r--libgfortran/generated/minval_r16.c10
-rw-r--r--libgfortran/generated/minval_r4.c10
-rw-r--r--libgfortran/generated/minval_r8.c10
-rw-r--r--libgfortran/generated/norm2_r10.c4
-rw-r--r--libgfortran/generated/norm2_r16.c4
-rw-r--r--libgfortran/generated/norm2_r4.c4
-rw-r--r--libgfortran/generated/norm2_r8.c4
-rw-r--r--libgfortran/generated/parity_l1.c4
-rw-r--r--libgfortran/generated/parity_l16.c4
-rw-r--r--libgfortran/generated/parity_l2.c4
-rw-r--r--libgfortran/generated/parity_l4.c4
-rw-r--r--libgfortran/generated/parity_l8.c4
-rw-r--r--libgfortran/generated/product_c10.c10
-rw-r--r--libgfortran/generated/product_c16.c10
-rw-r--r--libgfortran/generated/product_c4.c10
-rw-r--r--libgfortran/generated/product_c8.c10
-rw-r--r--libgfortran/generated/product_i1.c10
-rw-r--r--libgfortran/generated/product_i16.c10
-rw-r--r--libgfortran/generated/product_i2.c10
-rw-r--r--libgfortran/generated/product_i4.c10
-rw-r--r--libgfortran/generated/product_i8.c10
-rw-r--r--libgfortran/generated/product_r10.c10
-rw-r--r--libgfortran/generated/product_r16.c10
-rw-r--r--libgfortran/generated/product_r4.c10
-rw-r--r--libgfortran/generated/product_r8.c10
-rw-r--r--libgfortran/generated/sum_c10.c10
-rw-r--r--libgfortran/generated/sum_c16.c10
-rw-r--r--libgfortran/generated/sum_c4.c10
-rw-r--r--libgfortran/generated/sum_c8.c10
-rw-r--r--libgfortran/generated/sum_i1.c10
-rw-r--r--libgfortran/generated/sum_i16.c10
-rw-r--r--libgfortran/generated/sum_i2.c10
-rw-r--r--libgfortran/generated/sum_i4.c10
-rw-r--r--libgfortran/generated/sum_i8.c10
-rw-r--r--libgfortran/generated/sum_r10.c10
-rw-r--r--libgfortran/generated/sum_r16.c10
-rw-r--r--libgfortran/generated/sum_r4.c10
-rw-r--r--libgfortran/generated/sum_r8.c10
-rw-r--r--libgfortran/m4/iforeach.m44
-rw-r--r--libgfortran/m4/ifunction.m410
-rw-r--r--libgfortran/m4/ifunction_logical.m44
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;
}