* [PATCH 0/2] libgfortran: empty array fixes [PR112371]
@ 2023-11-06 11:43 Mikael Morin
2023-11-06 11:43 ` [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371] Mikael Morin
2023-11-06 11:43 ` [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371] Mikael Morin
0 siblings, 2 replies; 8+ messages in thread
From: Mikael Morin @ 2023-11-06 11:43 UTC (permalink / raw)
To: gcc-patches, fortran
Hello,
while preparing a testcase, I encountered a bug which I filed as
PR112371. Investigating further, I found two different problems which I
propose to fix with the followup patches.
Those have been bootstraped and regression tested on x86_64-pc-linux-gnu.
OK for master?
Mikael
Mikael Morin (2):
libgfortran: Remove early return if extent is zero [PR112371]
libgfortran: Remove empty array descriptor first dimension overwrite
[PR112371]
gcc/testsuite/gfortran.dg/bound_10.f90 | 207 +++++++++
gcc/testsuite/gfortran.dg/bound_11.f90 | 588 +++++++++++++++++++++++++
libgfortran/generated/all_l1.c | 6 +-
libgfortran/generated/all_l16.c | 6 +-
libgfortran/generated/all_l2.c | 6 +-
libgfortran/generated/all_l4.c | 6 +-
libgfortran/generated/all_l8.c | 6 +-
libgfortran/generated/any_l1.c | 6 +-
libgfortran/generated/any_l16.c | 6 +-
libgfortran/generated/any_l2.c | 6 +-
libgfortran/generated/any_l4.c | 6 +-
libgfortran/generated/any_l8.c | 6 +-
libgfortran/generated/count_16_l.c | 6 +-
libgfortran/generated/count_1_l.c | 6 +-
libgfortran/generated/count_2_l.c | 6 +-
libgfortran/generated/count_4_l.c | 6 +-
libgfortran/generated/count_8_l.c | 6 +-
libgfortran/generated/findloc1_c10.c | 18 +-
libgfortran/generated/findloc1_c16.c | 18 +-
libgfortran/generated/findloc1_c17.c | 18 +-
libgfortran/generated/findloc1_c4.c | 18 +-
libgfortran/generated/findloc1_c8.c | 18 +-
libgfortran/generated/findloc1_i1.c | 18 +-
libgfortran/generated/findloc1_i16.c | 18 +-
libgfortran/generated/findloc1_i2.c | 18 +-
libgfortran/generated/findloc1_i4.c | 18 +-
libgfortran/generated/findloc1_i8.c | 18 +-
libgfortran/generated/findloc1_r10.c | 18 +-
libgfortran/generated/findloc1_r16.c | 18 +-
libgfortran/generated/findloc1_r17.c | 18 +-
libgfortran/generated/findloc1_r4.c | 18 +-
libgfortran/generated/findloc1_r8.c | 18 +-
libgfortran/generated/findloc1_s1.c | 18 +-
libgfortran/generated/findloc1_s4.c | 18 +-
libgfortran/generated/iall_i1.c | 21 +-
libgfortran/generated/iall_i16.c | 21 +-
libgfortran/generated/iall_i2.c | 21 +-
libgfortran/generated/iall_i4.c | 21 +-
libgfortran/generated/iall_i8.c | 21 +-
libgfortran/generated/iany_i1.c | 21 +-
libgfortran/generated/iany_i16.c | 21 +-
libgfortran/generated/iany_i2.c | 21 +-
libgfortran/generated/iany_i4.c | 21 +-
libgfortran/generated/iany_i8.c | 21 +-
libgfortran/generated/iparity_i1.c | 21 +-
libgfortran/generated/iparity_i16.c | 21 +-
libgfortran/generated/iparity_i2.c | 21 +-
libgfortran/generated/iparity_i4.c | 21 +-
libgfortran/generated/iparity_i8.c | 21 +-
libgfortran/generated/maxloc1_16_i1.c | 21 +-
libgfortran/generated/maxloc1_16_i16.c | 21 +-
libgfortran/generated/maxloc1_16_i2.c | 21 +-
libgfortran/generated/maxloc1_16_i4.c | 21 +-
libgfortran/generated/maxloc1_16_i8.c | 21 +-
libgfortran/generated/maxloc1_16_r10.c | 21 +-
libgfortran/generated/maxloc1_16_r16.c | 21 +-
libgfortran/generated/maxloc1_16_r17.c | 21 +-
libgfortran/generated/maxloc1_16_r4.c | 21 +-
libgfortran/generated/maxloc1_16_r8.c | 21 +-
libgfortran/generated/maxloc1_16_s1.c | 21 +-
libgfortran/generated/maxloc1_16_s4.c | 21 +-
libgfortran/generated/maxloc1_4_i1.c | 21 +-
libgfortran/generated/maxloc1_4_i16.c | 21 +-
libgfortran/generated/maxloc1_4_i2.c | 21 +-
libgfortran/generated/maxloc1_4_i4.c | 21 +-
libgfortran/generated/maxloc1_4_i8.c | 21 +-
libgfortran/generated/maxloc1_4_r10.c | 21 +-
libgfortran/generated/maxloc1_4_r16.c | 21 +-
libgfortran/generated/maxloc1_4_r17.c | 21 +-
libgfortran/generated/maxloc1_4_r4.c | 21 +-
libgfortran/generated/maxloc1_4_r8.c | 21 +-
libgfortran/generated/maxloc1_4_s1.c | 21 +-
libgfortran/generated/maxloc1_4_s4.c | 21 +-
libgfortran/generated/maxloc1_8_i1.c | 21 +-
libgfortran/generated/maxloc1_8_i16.c | 21 +-
libgfortran/generated/maxloc1_8_i2.c | 21 +-
libgfortran/generated/maxloc1_8_i4.c | 21 +-
libgfortran/generated/maxloc1_8_i8.c | 21 +-
libgfortran/generated/maxloc1_8_r10.c | 21 +-
libgfortran/generated/maxloc1_8_r16.c | 21 +-
libgfortran/generated/maxloc1_8_r17.c | 21 +-
libgfortran/generated/maxloc1_8_r4.c | 21 +-
libgfortran/generated/maxloc1_8_r8.c | 21 +-
libgfortran/generated/maxloc1_8_s1.c | 21 +-
libgfortran/generated/maxloc1_8_s4.c | 21 +-
libgfortran/generated/maxval1_s1.c | 21 +-
libgfortran/generated/maxval1_s4.c | 21 +-
libgfortran/generated/maxval_i1.c | 21 +-
libgfortran/generated/maxval_i16.c | 21 +-
libgfortran/generated/maxval_i2.c | 21 +-
libgfortran/generated/maxval_i4.c | 21 +-
libgfortran/generated/maxval_i8.c | 21 +-
libgfortran/generated/maxval_r10.c | 21 +-
libgfortran/generated/maxval_r16.c | 21 +-
libgfortran/generated/maxval_r17.c | 21 +-
libgfortran/generated/maxval_r4.c | 21 +-
libgfortran/generated/maxval_r8.c | 21 +-
libgfortran/generated/minloc1_16_i1.c | 21 +-
libgfortran/generated/minloc1_16_i16.c | 21 +-
libgfortran/generated/minloc1_16_i2.c | 21 +-
libgfortran/generated/minloc1_16_i4.c | 21 +-
libgfortran/generated/minloc1_16_i8.c | 21 +-
libgfortran/generated/minloc1_16_r10.c | 21 +-
libgfortran/generated/minloc1_16_r16.c | 21 +-
libgfortran/generated/minloc1_16_r17.c | 21 +-
libgfortran/generated/minloc1_16_r4.c | 21 +-
libgfortran/generated/minloc1_16_r8.c | 21 +-
libgfortran/generated/minloc1_16_s1.c | 21 +-
libgfortran/generated/minloc1_16_s4.c | 21 +-
libgfortran/generated/minloc1_4_i1.c | 21 +-
libgfortran/generated/minloc1_4_i16.c | 21 +-
libgfortran/generated/minloc1_4_i2.c | 21 +-
libgfortran/generated/minloc1_4_i4.c | 21 +-
libgfortran/generated/minloc1_4_i8.c | 21 +-
libgfortran/generated/minloc1_4_r10.c | 21 +-
libgfortran/generated/minloc1_4_r16.c | 21 +-
libgfortran/generated/minloc1_4_r17.c | 21 +-
libgfortran/generated/minloc1_4_r4.c | 21 +-
libgfortran/generated/minloc1_4_r8.c | 21 +-
libgfortran/generated/minloc1_4_s1.c | 21 +-
libgfortran/generated/minloc1_4_s4.c | 21 +-
libgfortran/generated/minloc1_8_i1.c | 21 +-
libgfortran/generated/minloc1_8_i16.c | 21 +-
libgfortran/generated/minloc1_8_i2.c | 21 +-
libgfortran/generated/minloc1_8_i4.c | 21 +-
libgfortran/generated/minloc1_8_i8.c | 21 +-
libgfortran/generated/minloc1_8_r10.c | 21 +-
libgfortran/generated/minloc1_8_r16.c | 21 +-
libgfortran/generated/minloc1_8_r17.c | 21 +-
libgfortran/generated/minloc1_8_r4.c | 21 +-
libgfortran/generated/minloc1_8_r8.c | 21 +-
libgfortran/generated/minloc1_8_s1.c | 21 +-
libgfortran/generated/minloc1_8_s4.c | 21 +-
libgfortran/generated/minval1_s1.c | 21 +-
libgfortran/generated/minval1_s4.c | 21 +-
libgfortran/generated/minval_i1.c | 21 +-
libgfortran/generated/minval_i16.c | 21 +-
libgfortran/generated/minval_i2.c | 21 +-
libgfortran/generated/minval_i4.c | 21 +-
libgfortran/generated/minval_i8.c | 21 +-
libgfortran/generated/minval_r10.c | 21 +-
libgfortran/generated/minval_r16.c | 21 +-
libgfortran/generated/minval_r17.c | 21 +-
libgfortran/generated/minval_r4.c | 21 +-
libgfortran/generated/minval_r8.c | 21 +-
libgfortran/generated/norm2_r10.c | 7 +-
libgfortran/generated/norm2_r16.c | 7 +-
libgfortran/generated/norm2_r17.c | 7 +-
libgfortran/generated/norm2_r4.c | 7 +-
libgfortran/generated/norm2_r8.c | 7 +-
libgfortran/generated/parity_l1.c | 7 +-
libgfortran/generated/parity_l16.c | 7 +-
libgfortran/generated/parity_l2.c | 7 +-
libgfortran/generated/parity_l4.c | 7 +-
libgfortran/generated/parity_l8.c | 7 +-
libgfortran/generated/product_c10.c | 21 +-
libgfortran/generated/product_c16.c | 21 +-
libgfortran/generated/product_c17.c | 21 +-
libgfortran/generated/product_c4.c | 21 +-
libgfortran/generated/product_c8.c | 21 +-
libgfortran/generated/product_i1.c | 21 +-
libgfortran/generated/product_i16.c | 21 +-
libgfortran/generated/product_i2.c | 21 +-
libgfortran/generated/product_i4.c | 21 +-
libgfortran/generated/product_i8.c | 21 +-
libgfortran/generated/product_r10.c | 21 +-
libgfortran/generated/product_r16.c | 21 +-
libgfortran/generated/product_r17.c | 21 +-
libgfortran/generated/product_r4.c | 21 +-
libgfortran/generated/product_r8.c | 21 +-
libgfortran/generated/sum_c10.c | 21 +-
libgfortran/generated/sum_c16.c | 21 +-
libgfortran/generated/sum_c17.c | 21 +-
libgfortran/generated/sum_c4.c | 21 +-
libgfortran/generated/sum_c8.c | 21 +-
libgfortran/generated/sum_i1.c | 21 +-
libgfortran/generated/sum_i16.c | 21 +-
libgfortran/generated/sum_i2.c | 21 +-
libgfortran/generated/sum_i4.c | 21 +-
libgfortran/generated/sum_i8.c | 21 +-
libgfortran/generated/sum_r10.c | 21 +-
libgfortran/generated/sum_r16.c | 21 +-
libgfortran/generated/sum_r17.c | 21 +-
libgfortran/generated/sum_r4.c | 21 +-
libgfortran/generated/sum_r8.c | 21 +-
libgfortran/m4/ifindloc1.m4 | 18 +-
libgfortran/m4/ifunction-s.m4 | 21 +-
libgfortran/m4/ifunction-s2.m4 | 21 +-
libgfortran/m4/ifunction.m4 | 21 +-
libgfortran/m4/ifunction_logical.m4 | 6 +-
190 files changed, 1307 insertions(+), 3002 deletions(-)
create mode 100644 gcc/testsuite/gfortran.dg/bound_10.f90
create mode 100644 gcc/testsuite/gfortran.dg/bound_11.f90
--
2.42.0
^ permalink raw reply [flat|nested] 8+ messages in thread
* [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371]
2023-11-06 11:43 [PATCH 0/2] libgfortran: empty array fixes [PR112371] Mikael Morin
@ 2023-11-06 11:43 ` Mikael Morin
2023-11-06 18:12 ` Harald Anlauf
2023-11-06 11:43 ` [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371] Mikael Morin
1 sibling, 1 reply; 8+ messages in thread
From: Mikael Morin @ 2023-11-06 11:43 UTC (permalink / raw)
To: gcc-patches, fortran
Remove the early return present in function templates for transformational
functions doing a (masked) reduction of an array along a dimension.
This early return, which triggered if the extent in the reduction dimension
was zero, was wrong because even if the reduction operation degenerates to
a constant value in that case, one has to loop anyway along the other
dimensions to initialize every element of the resulting array with that
constant value.
The offending piece of code was present in several places, and this removes
them all. Namely, the impacted m4 files are ifunction.m4 for regular
functions and types, ifunction-s.m4 for character minloc and maxloc, and
ifunction-s2.m4 for character minval and maxval.
PR fortran/112371
libgfortran/ChangeLog:
* m4/ifunction.m4 (START_MASKED_ARRAY_FUNCTION): Remove early return if
extent is zero.
* m4/ifunction-s.m4 (START_MASKED_ARRAY_FUNCTION): Ditto.
* m4/ifunction-s2.m4 (START_MASKED_ARRAY_FUNCTION): Ditto.
* generated/iall_i1.c: Regenerate.
* generated/iall_i16.c: Regenerate.
* generated/iall_i2.c: Regenerate.
* generated/iall_i4.c: Regenerate.
* generated/iall_i8.c: Regenerate.
* generated/iany_i1.c: Regenerate.
* generated/iany_i16.c: Regenerate.
* generated/iany_i2.c: Regenerate.
* generated/iany_i4.c: Regenerate.
* generated/iany_i8.c: Regenerate.
* generated/iparity_i1.c: Regenerate.
* generated/iparity_i16.c: Regenerate.
* generated/iparity_i2.c: Regenerate.
* generated/iparity_i4.c: Regenerate.
* generated/iparity_i8.c: Regenerate.
* generated/maxloc1_16_i1.c: Regenerate.
* generated/maxloc1_16_i16.c: Regenerate.
* generated/maxloc1_16_i2.c: Regenerate.
* generated/maxloc1_16_i4.c: Regenerate.
* generated/maxloc1_16_i8.c: Regenerate.
* generated/maxloc1_16_r10.c: Regenerate.
* generated/maxloc1_16_r16.c: Regenerate.
* generated/maxloc1_16_r17.c: Regenerate.
* generated/maxloc1_16_r4.c: Regenerate.
* generated/maxloc1_16_r8.c: Regenerate.
* generated/maxloc1_16_s1.c: Regenerate.
* generated/maxloc1_16_s4.c: Regenerate.
* generated/maxloc1_4_i1.c: Regenerate.
* generated/maxloc1_4_i16.c: Regenerate.
* generated/maxloc1_4_i2.c: Regenerate.
* generated/maxloc1_4_i4.c: Regenerate.
* generated/maxloc1_4_i8.c: Regenerate.
* generated/maxloc1_4_r10.c: Regenerate.
* generated/maxloc1_4_r16.c: Regenerate.
* generated/maxloc1_4_r17.c: Regenerate.
* generated/maxloc1_4_r4.c: Regenerate.
* generated/maxloc1_4_r8.c: Regenerate.
* generated/maxloc1_4_s1.c: Regenerate.
* generated/maxloc1_4_s4.c: Regenerate.
* generated/maxloc1_8_i1.c: Regenerate.
* generated/maxloc1_8_i16.c: Regenerate.
* generated/maxloc1_8_i2.c: Regenerate.
* generated/maxloc1_8_i4.c: Regenerate.
* generated/maxloc1_8_i8.c: Regenerate.
* generated/maxloc1_8_r10.c: Regenerate.
* generated/maxloc1_8_r16.c: Regenerate.
* generated/maxloc1_8_r17.c: Regenerate.
* generated/maxloc1_8_r4.c: Regenerate.
* generated/maxloc1_8_r8.c: Regenerate.
* generated/maxloc1_8_s1.c: Regenerate.
* generated/maxloc1_8_s4.c: Regenerate.
* generated/maxval1_s1.c: Regenerate.
* generated/maxval1_s4.c: Regenerate.
* generated/maxval_i1.c: Regenerate.
* generated/maxval_i16.c: Regenerate.
* generated/maxval_i2.c: Regenerate.
* generated/maxval_i4.c: Regenerate.
* generated/maxval_i8.c: Regenerate.
* generated/maxval_r10.c: Regenerate.
* generated/maxval_r16.c: Regenerate.
* generated/maxval_r17.c: Regenerate.
* generated/maxval_r4.c: Regenerate.
* generated/maxval_r8.c: Regenerate.
* generated/minloc1_16_i1.c: Regenerate.
* generated/minloc1_16_i16.c: Regenerate.
* generated/minloc1_16_i2.c: Regenerate.
* generated/minloc1_16_i4.c: Regenerate.
* generated/minloc1_16_i8.c: Regenerate.
* generated/minloc1_16_r10.c: Regenerate.
* generated/minloc1_16_r16.c: Regenerate.
* generated/minloc1_16_r17.c: Regenerate.
* generated/minloc1_16_r4.c: Regenerate.
* generated/minloc1_16_r8.c: Regenerate.
* generated/minloc1_16_s1.c: Regenerate.
* generated/minloc1_16_s4.c: Regenerate.
* generated/minloc1_4_i1.c: Regenerate.
* generated/minloc1_4_i16.c: Regenerate.
* generated/minloc1_4_i2.c: Regenerate.
* generated/minloc1_4_i4.c: Regenerate.
* generated/minloc1_4_i8.c: Regenerate.
* generated/minloc1_4_r10.c: Regenerate.
* generated/minloc1_4_r16.c: Regenerate.
* generated/minloc1_4_r17.c: Regenerate.
* generated/minloc1_4_r4.c: Regenerate.
* generated/minloc1_4_r8.c: Regenerate.
* generated/minloc1_4_s1.c: Regenerate.
* generated/minloc1_4_s4.c: Regenerate.
* generated/minloc1_8_i1.c: Regenerate.
* generated/minloc1_8_i16.c: Regenerate.
* generated/minloc1_8_i2.c: Regenerate.
* generated/minloc1_8_i4.c: Regenerate.
* generated/minloc1_8_i8.c: Regenerate.
* generated/minloc1_8_r10.c: Regenerate.
* generated/minloc1_8_r16.c: Regenerate.
* generated/minloc1_8_r17.c: Regenerate.
* generated/minloc1_8_r4.c: Regenerate.
* generated/minloc1_8_r8.c: Regenerate.
* generated/minloc1_8_s1.c: Regenerate.
* generated/minloc1_8_s4.c: Regenerate.
* generated/minval1_s1.c: Regenerate.
* generated/minval1_s4.c: Regenerate.
* generated/minval_i1.c: Regenerate.
* generated/minval_i16.c: Regenerate.
* generated/minval_i2.c: Regenerate.
* generated/minval_i4.c: Regenerate.
* generated/minval_i8.c: Regenerate.
* generated/minval_r10.c: Regenerate.
* generated/minval_r16.c: Regenerate.
* generated/minval_r17.c: Regenerate.
* generated/minval_r4.c: Regenerate.
* generated/minval_r8.c: Regenerate.
* generated/product_c10.c: Regenerate.
* generated/product_c16.c: Regenerate.
* generated/product_c17.c: Regenerate.
* generated/product_c4.c: Regenerate.
* generated/product_c8.c: Regenerate.
* generated/product_i1.c: Regenerate.
* generated/product_i16.c: Regenerate.
* generated/product_i2.c: Regenerate.
* generated/product_i4.c: Regenerate.
* generated/product_i8.c: Regenerate.
* generated/product_r10.c: Regenerate.
* generated/product_r16.c: Regenerate.
* generated/product_r17.c: Regenerate.
* generated/product_r4.c: Regenerate.
* generated/product_r8.c: Regenerate.
* generated/sum_c10.c: Regenerate.
* generated/sum_c16.c: Regenerate.
* generated/sum_c17.c: Regenerate.
* generated/sum_c4.c: Regenerate.
* generated/sum_c8.c: Regenerate.
* generated/sum_i1.c: Regenerate.
* generated/sum_i16.c: Regenerate.
* generated/sum_i2.c: Regenerate.
* generated/sum_i4.c: Regenerate.
* generated/sum_i8.c: Regenerate.
* generated/sum_r10.c: Regenerate.
* generated/sum_r16.c: Regenerate.
* generated/sum_r17.c: Regenerate.
* generated/sum_r4.c: Regenerate.
* generated/sum_r8.c: Regenerate.
gcc/testsuite/ChangeLog:
* gfortran.dg/bound_10.f90: New test.
---
gcc/testsuite/gfortran.dg/bound_10.f90 | 207 +++++++++++++++++++++++++
libgfortran/generated/iall_i1.c | 2 -
libgfortran/generated/iall_i16.c | 2 -
libgfortran/generated/iall_i2.c | 2 -
libgfortran/generated/iall_i4.c | 2 -
libgfortran/generated/iall_i8.c | 2 -
libgfortran/generated/iany_i1.c | 2 -
libgfortran/generated/iany_i16.c | 2 -
libgfortran/generated/iany_i2.c | 2 -
libgfortran/generated/iany_i4.c | 2 -
libgfortran/generated/iany_i8.c | 2 -
libgfortran/generated/iparity_i1.c | 2 -
libgfortran/generated/iparity_i16.c | 2 -
libgfortran/generated/iparity_i2.c | 2 -
libgfortran/generated/iparity_i4.c | 2 -
libgfortran/generated/iparity_i8.c | 2 -
libgfortran/generated/maxloc1_16_i1.c | 2 -
libgfortran/generated/maxloc1_16_i16.c | 2 -
libgfortran/generated/maxloc1_16_i2.c | 2 -
libgfortran/generated/maxloc1_16_i4.c | 2 -
libgfortran/generated/maxloc1_16_i8.c | 2 -
libgfortran/generated/maxloc1_16_r10.c | 2 -
libgfortran/generated/maxloc1_16_r16.c | 2 -
libgfortran/generated/maxloc1_16_r17.c | 2 -
libgfortran/generated/maxloc1_16_r4.c | 2 -
libgfortran/generated/maxloc1_16_r8.c | 2 -
libgfortran/generated/maxloc1_16_s1.c | 2 -
libgfortran/generated/maxloc1_16_s4.c | 2 -
libgfortran/generated/maxloc1_4_i1.c | 2 -
libgfortran/generated/maxloc1_4_i16.c | 2 -
libgfortran/generated/maxloc1_4_i2.c | 2 -
libgfortran/generated/maxloc1_4_i4.c | 2 -
libgfortran/generated/maxloc1_4_i8.c | 2 -
libgfortran/generated/maxloc1_4_r10.c | 2 -
libgfortran/generated/maxloc1_4_r16.c | 2 -
libgfortran/generated/maxloc1_4_r17.c | 2 -
libgfortran/generated/maxloc1_4_r4.c | 2 -
libgfortran/generated/maxloc1_4_r8.c | 2 -
libgfortran/generated/maxloc1_4_s1.c | 2 -
libgfortran/generated/maxloc1_4_s4.c | 2 -
libgfortran/generated/maxloc1_8_i1.c | 2 -
libgfortran/generated/maxloc1_8_i16.c | 2 -
libgfortran/generated/maxloc1_8_i2.c | 2 -
libgfortran/generated/maxloc1_8_i4.c | 2 -
libgfortran/generated/maxloc1_8_i8.c | 2 -
libgfortran/generated/maxloc1_8_r10.c | 2 -
libgfortran/generated/maxloc1_8_r16.c | 2 -
libgfortran/generated/maxloc1_8_r17.c | 2 -
libgfortran/generated/maxloc1_8_r4.c | 2 -
libgfortran/generated/maxloc1_8_r8.c | 2 -
libgfortran/generated/maxloc1_8_s1.c | 2 -
libgfortran/generated/maxloc1_8_s4.c | 2 -
libgfortran/generated/maxval1_s1.c | 2 -
libgfortran/generated/maxval1_s4.c | 2 -
libgfortran/generated/maxval_i1.c | 2 -
libgfortran/generated/maxval_i16.c | 2 -
libgfortran/generated/maxval_i2.c | 2 -
libgfortran/generated/maxval_i4.c | 2 -
libgfortran/generated/maxval_i8.c | 2 -
libgfortran/generated/maxval_r10.c | 2 -
libgfortran/generated/maxval_r16.c | 2 -
libgfortran/generated/maxval_r17.c | 2 -
libgfortran/generated/maxval_r4.c | 2 -
libgfortran/generated/maxval_r8.c | 2 -
libgfortran/generated/minloc1_16_i1.c | 2 -
libgfortran/generated/minloc1_16_i16.c | 2 -
libgfortran/generated/minloc1_16_i2.c | 2 -
libgfortran/generated/minloc1_16_i4.c | 2 -
libgfortran/generated/minloc1_16_i8.c | 2 -
libgfortran/generated/minloc1_16_r10.c | 2 -
libgfortran/generated/minloc1_16_r16.c | 2 -
libgfortran/generated/minloc1_16_r17.c | 2 -
libgfortran/generated/minloc1_16_r4.c | 2 -
libgfortran/generated/minloc1_16_r8.c | 2 -
libgfortran/generated/minloc1_16_s1.c | 2 -
libgfortran/generated/minloc1_16_s4.c | 2 -
libgfortran/generated/minloc1_4_i1.c | 2 -
libgfortran/generated/minloc1_4_i16.c | 2 -
libgfortran/generated/minloc1_4_i2.c | 2 -
libgfortran/generated/minloc1_4_i4.c | 2 -
libgfortran/generated/minloc1_4_i8.c | 2 -
libgfortran/generated/minloc1_4_r10.c | 2 -
libgfortran/generated/minloc1_4_r16.c | 2 -
libgfortran/generated/minloc1_4_r17.c | 2 -
libgfortran/generated/minloc1_4_r4.c | 2 -
libgfortran/generated/minloc1_4_r8.c | 2 -
libgfortran/generated/minloc1_4_s1.c | 2 -
libgfortran/generated/minloc1_4_s4.c | 2 -
libgfortran/generated/minloc1_8_i1.c | 2 -
libgfortran/generated/minloc1_8_i16.c | 2 -
libgfortran/generated/minloc1_8_i2.c | 2 -
libgfortran/generated/minloc1_8_i4.c | 2 -
libgfortran/generated/minloc1_8_i8.c | 2 -
libgfortran/generated/minloc1_8_r10.c | 2 -
libgfortran/generated/minloc1_8_r16.c | 2 -
libgfortran/generated/minloc1_8_r17.c | 2 -
libgfortran/generated/minloc1_8_r4.c | 2 -
libgfortran/generated/minloc1_8_r8.c | 2 -
libgfortran/generated/minloc1_8_s1.c | 2 -
libgfortran/generated/minloc1_8_s4.c | 2 -
libgfortran/generated/minval1_s1.c | 2 -
libgfortran/generated/minval1_s4.c | 2 -
libgfortran/generated/minval_i1.c | 2 -
libgfortran/generated/minval_i16.c | 2 -
libgfortran/generated/minval_i2.c | 2 -
libgfortran/generated/minval_i4.c | 2 -
libgfortran/generated/minval_i8.c | 2 -
libgfortran/generated/minval_r10.c | 2 -
libgfortran/generated/minval_r16.c | 2 -
libgfortran/generated/minval_r17.c | 2 -
libgfortran/generated/minval_r4.c | 2 -
libgfortran/generated/minval_r8.c | 2 -
libgfortran/generated/product_c10.c | 2 -
libgfortran/generated/product_c16.c | 2 -
libgfortran/generated/product_c17.c | 2 -
libgfortran/generated/product_c4.c | 2 -
libgfortran/generated/product_c8.c | 2 -
libgfortran/generated/product_i1.c | 2 -
libgfortran/generated/product_i16.c | 2 -
libgfortran/generated/product_i2.c | 2 -
libgfortran/generated/product_i4.c | 2 -
libgfortran/generated/product_i8.c | 2 -
libgfortran/generated/product_r10.c | 2 -
libgfortran/generated/product_r16.c | 2 -
libgfortran/generated/product_r17.c | 2 -
libgfortran/generated/product_r4.c | 2 -
libgfortran/generated/product_r8.c | 2 -
libgfortran/generated/sum_c10.c | 2 -
libgfortran/generated/sum_c16.c | 2 -
libgfortran/generated/sum_c17.c | 2 -
libgfortran/generated/sum_c4.c | 2 -
libgfortran/generated/sum_c8.c | 2 -
libgfortran/generated/sum_i1.c | 2 -
libgfortran/generated/sum_i16.c | 2 -
libgfortran/generated/sum_i2.c | 2 -
libgfortran/generated/sum_i4.c | 2 -
libgfortran/generated/sum_i8.c | 2 -
libgfortran/generated/sum_r10.c | 2 -
libgfortran/generated/sum_r16.c | 2 -
libgfortran/generated/sum_r17.c | 2 -
libgfortran/generated/sum_r4.c | 2 -
libgfortran/generated/sum_r8.c | 2 -
libgfortran/m4/ifunction-s.m4 | 2 -
libgfortran/m4/ifunction-s2.m4 | 2 -
libgfortran/m4/ifunction.m4 | 2 -
145 files changed, 207 insertions(+), 288 deletions(-)
create mode 100644 gcc/testsuite/gfortran.dg/bound_10.f90
diff --git a/gcc/testsuite/gfortran.dg/bound_10.f90 b/gcc/testsuite/gfortran.dg/bound_10.f90
new file mode 100644
index 00000000000..cbe065cf2b6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/bound_10.f90
@@ -0,0 +1,207 @@
+! { dg-do run }
+!
+! PR fortran/112371
+! The library used to not set the bounds and content of the resulting array
+! of a reduction function if the input array had zero extent along the
+! reduction dimension.
+
+program p
+ implicit none
+ call check_iall
+ call check_iany
+ call check_iparity
+ call check_minloc_int
+ call check_minloc_char
+ call check_maxloc_real
+ call check_maxloc_char
+ call check_minval_int
+ call check_minval_char
+ call check_maxval_real
+ call check_maxval_char
+ call check_sum
+ call check_product
+contains
+ subroutine check_iall
+ integer :: a(3,0,2)
+ logical(kind=1) :: m(3,0,2)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 2
+ r = iall(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 11
+ if (any(ubound(r) /= (/ 3, 2 /))) stop 12
+ if (any(shape(r) /= (/ 3, 2 /))) stop 13
+ if (any(r /= int(z'FFFFFFFF'))) stop 14
+ end subroutine
+ subroutine check_iany
+ integer(kind=8) :: a(2,3,0)
+ logical(kind=1) :: m(2,3,0)
+ integer :: i
+ integer(kind=8), allocatable :: r(:,:)
+ a = reshape((/ integer(kind=8):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 3
+ r = iany(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 21
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 22
+ if (any(shape(r) /= (/ 2, 3 /))) stop 23
+ if (any(r /= 0)) stop 24
+ end subroutine
+ subroutine check_iparity
+ integer(kind=2) :: a(0,2,3)
+ logical(kind=1) :: m(0,2,3)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ integer(kind=2):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 1
+ r = iparity(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 31
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 32
+ if (any(shape(r) /= (/ 2, 3 /))) stop 33
+ if (any(r /= 0)) stop 34
+ end subroutine
+ subroutine check_minloc_int
+ integer :: a(3,0,2)
+ logical(kind=1) :: m(3,0,2)
+ integer :: i, j
+ integer, allocatable :: r(:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 2
+ r = minloc(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 41
+ if (any(ubound(r) /= (/ 3, 2 /))) stop 42
+ if (any(shape(r) /= (/ 3, 2 /))) stop 43
+ if (any(r /= 0)) stop 44
+ end subroutine
+ subroutine check_minloc_char
+ character :: a(2,3,0)
+ logical(kind=1) :: m(2,3,0)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ character:: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 3
+ r = minloc(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 51
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 52
+ if (any(shape(r) /= (/ 2, 3 /))) stop 53
+ if (any(r /= 0)) stop 54
+ end subroutine
+ subroutine check_maxloc_real
+ real :: a(0,2,3)
+ logical(kind=1) :: m(0,2,3)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ real:: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 1
+ r = maxloc(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 61
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 62
+ if (any(shape(r) /= (/ 2, 3 /))) stop 63
+ if (any(r /= 0)) stop 64
+ end subroutine
+ subroutine check_maxloc_char
+ character(len=2) :: a(3,0,2)
+ logical(kind=1) :: m(3,0,2)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ character(len=2):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 2
+ r = maxloc(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 71
+ if (any(ubound(r) /= (/ 3, 2 /))) stop 72
+ if (any(shape(r) /= (/ 3, 2 /))) stop 73
+ if (any(r /= 0)) stop 74
+ end subroutine
+ subroutine check_minval_int
+ integer(kind=2) :: a(3,2,0)
+ logical(kind=1) :: m(3,2,0)
+ integer :: i, j
+ integer, allocatable :: r(:,:)
+ a = reshape((/ integer(kind=2):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 3
+ r = minval(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 81
+ if (any(ubound(r) /= (/ 3, 2 /))) stop 82
+ if (any(shape(r) /= (/ 3, 2 /))) stop 83
+ if (any(r /= huge(1_2))) stop 84
+ end subroutine
+ subroutine check_minval_char
+ character(kind=4) :: a(0,3,2)
+ logical(kind=1) :: m(0,3,2)
+ integer :: i
+ character(kind=4), allocatable :: r(:,:)
+ a = reshape((/ character(kind=4):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 1
+ r = minval(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 91
+ if (any(ubound(r) /= (/ 3, 2 /))) stop 92
+ if (any(shape(r) /= (/ 3, 2 /))) stop 93
+ if (any(r /= char(int(z'FFFFFFFF', kind=8), kind=4))) stop 94
+ end subroutine
+ subroutine check_maxval_real
+ real(kind=8) :: a(0,2,3)
+ logical(kind=1) :: m(0,2,3)
+ integer :: i
+ real(kind=8), allocatable :: r(:,:)
+ a = reshape((/ real(kind=8):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 1
+ r = maxval(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 101
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 102
+ if (any(shape(r) /= (/ 2, 3 /))) stop 103
+ if (any(r /= -huge(1._8))) stop 104
+ end subroutine
+ subroutine check_maxval_char
+ character(kind=4,len=2) :: a(3,0,2), e
+ logical(kind=1) :: m(3,0,2)
+ integer :: i
+ character(len=2,kind=4), allocatable :: r(:,:)
+ a = reshape((/ character(kind=4,len=2):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 2
+ r = maxval(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 111
+ if (any(ubound(r) /= (/ 3, 2 /))) stop 112
+ if (any(shape(r) /= (/ 3, 2 /))) stop 113
+ e = repeat(char(0, kind=4), len(a))
+ if (any(r /= e)) stop 114
+ end subroutine
+ subroutine check_sum
+ integer(kind=1) :: a(2,3,0)
+ logical(kind=1) :: m(2,3,0)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 3
+ r = sum(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 121
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 122
+ if (any(shape(r) /= (/ 2, 3 /))) stop 123
+ if (any(r /= 0)) stop 124
+ end subroutine
+ subroutine check_product
+ real(kind=8) :: a(0,2,3)
+ logical(kind=1) :: m(0,2,3)
+ integer :: i
+ integer, allocatable :: r(:,:)
+ a = reshape((/ real(kind=8):: /), shape(a))
+ m = reshape((/ logical(kind=1):: /), shape(m))
+ i = 1
+ r = product(a, dim=i, mask=m)
+ if (any(lbound(r) /= 1)) stop 131
+ if (any(ubound(r) /= (/ 2, 3 /))) stop 132
+ if (any(shape(r) /= (/ 2, 3 /))) stop 133
+ if (any(r /= 1.0_8)) stop 134
+ end subroutine
+end program
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c
index 4af96269308..44ccbce270a 100644
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -242,8 +242,6 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c
index e678d06d1b8..98deeed4a4a 100644
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -242,8 +242,6 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c
index fbe52663f16..9ed8079c2ef 100644
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -242,8 +242,6 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c
index 3d6b6deba3d..6e5c4a80ae5 100644
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -242,8 +242,6 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c
index 072f6837029..7eddce7f211 100644
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -242,8 +242,6 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c
index 6f03df6efd2..43ec43ee89b 100644
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -242,8 +242,6 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c
index 72a7add660b..d5a30607d99 100644
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -242,8 +242,6 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c
index 26858b42916..4086bd1dbd2 100644
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -242,8 +242,6 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c
index ca315d1223c..7076f0c4c3b 100644
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -242,8 +242,6 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c
index dc9081e5149..a648fe8c45f 100644
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -242,8 +242,6 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c
index cfb2e481831..26144505efe 100644
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -242,8 +242,6 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c
index 3b1f3232327..165a1a81418 100644
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -242,8 +242,6 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c
index 60575bdcb15..e2ba668a562 100644
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -242,8 +242,6 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c
index 49f65145e15..c5c74c2e1d4 100644
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -242,8 +242,6 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c
index ec68d514a48..aebc4f05833 100644
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -242,8 +242,6 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c
index dd86eb22d95..66ac5f3cbf4 100644
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -270,8 +270,6 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c
index f40ade40214..445a4c4e53b 100644
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -270,8 +270,6 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c
index d857d4fe768..ebae5ad552a 100644
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -270,8 +270,6 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c
index c67878b0f48..5e1019c119a 100644
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -270,8 +270,6 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c
index 6e040811301..8c1a34bc213 100644
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -270,8 +270,6 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c
index 47d8f7ba619..602347a2db7 100644
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -270,8 +270,6 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c
index f5bd965205c..56b3130d698 100644
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -270,8 +270,6 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c
index 8d59c196236..771c595c166 100644
--- a/libgfortran/generated/maxloc1_16_r17.c
+++ b/libgfortran/generated/maxloc1_16_r17.c
@@ -270,8 +270,6 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c
index 91299bdcc01..ba3273f84fa 100644
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -270,8 +270,6 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c
index 91e89b02a68..916c6bbb0da 100644
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -270,8 +270,6 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c
index 313ee1cf440..8032ed0c545 100644
--- a/libgfortran/generated/maxloc1_16_s1.c
+++ b/libgfortran/generated/maxloc1_16_s1.c
@@ -263,8 +263,6 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c
index d8da8569e15..15b6af6032e 100644
--- a/libgfortran/generated/maxloc1_16_s4.c
+++ b/libgfortran/generated/maxloc1_16_s4.c
@@ -263,8 +263,6 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c
index 333b08cec96..3e90849cbe3 100644
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -270,8 +270,6 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c
index 62dadf6b66f..d41e3567468 100644
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -270,8 +270,6 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c
index 6bc6e500b52..5a931197e0b 100644
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -270,8 +270,6 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c
index d38fd367443..5eba4baa0f1 100644
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -270,8 +270,6 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c
index 30314f0f6dd..f1293580afa 100644
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -270,8 +270,6 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c
index 693f52aef78..163b306ba70 100644
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -270,8 +270,6 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c
index c24dece73f6..cbde21450bc 100644
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -270,8 +270,6 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c
index a8efa10557e..24477055a4a 100644
--- a/libgfortran/generated/maxloc1_4_r17.c
+++ b/libgfortran/generated/maxloc1_4_r17.c
@@ -270,8 +270,6 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c
index 6957da417ab..1ca7d7a8f09 100644
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -270,8 +270,6 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index b7e6cf34774..41b42fcae51 100644
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -270,8 +270,6 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c
index 904c5d4a8fa..c7a967fe440 100644
--- a/libgfortran/generated/maxloc1_4_s1.c
+++ b/libgfortran/generated/maxloc1_4_s1.c
@@ -263,8 +263,6 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c
index 5b1f7b0938d..68311d27d1e 100644
--- a/libgfortran/generated/maxloc1_4_s4.c
+++ b/libgfortran/generated/maxloc1_4_s4.c
@@ -263,8 +263,6 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c
index ee478907548..229bb97c357 100644
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -270,8 +270,6 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c
index 2c788a26d53..61b2c2c2ace 100644
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -270,8 +270,6 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c
index 13474427323..79386822e23 100644
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -270,8 +270,6 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c
index 57a001fefc6..6c92bde7499 100644
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -270,8 +270,6 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c
index ff837e6872f..25efec05793 100644
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -270,8 +270,6 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c
index 9046b279c12..5de342dc9c0 100644
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -270,8 +270,6 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c
index 93e83307da4..57e53d43225 100644
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -270,8 +270,6 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c
index ab14e3a7ebe..0e108aa37d9 100644
--- a/libgfortran/generated/maxloc1_8_r17.c
+++ b/libgfortran/generated/maxloc1_8_r17.c
@@ -270,8 +270,6 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c
index 556357b46a1..f8d3305b898 100644
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -270,8 +270,6 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c
index aceebcf7cf4..74119b89aea 100644
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -270,8 +270,6 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c
index 9659f7f74a6..6b905eb5995 100644
--- a/libgfortran/generated/maxloc1_8_s1.c
+++ b/libgfortran/generated/maxloc1_8_s1.c
@@ -263,8 +263,6 @@ mmaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c
index 10302b95ade..5bc8ce4ffbd 100644
--- a/libgfortran/generated/maxloc1_8_s4.c
+++ b/libgfortran/generated/maxloc1_8_s4.c
@@ -263,8 +263,6 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval1_s1.c b/libgfortran/generated/maxval1_s1.c
index 605e04b4e2e..d9094913e86 100644
--- a/libgfortran/generated/maxval1_s1.c
+++ b/libgfortran/generated/maxval1_s1.c
@@ -258,8 +258,6 @@ mmaxval1_s1 (gfc_array_s1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval1_s4.c b/libgfortran/generated/maxval1_s4.c
index 829cdf213c1..ab1b33ad4a3 100644
--- a/libgfortran/generated/maxval1_s4.c
+++ b/libgfortran/generated/maxval1_s4.c
@@ -258,8 +258,6 @@ mmaxval1_s4 (gfc_array_s4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c
index 04faea82a9e..11c75d21616 100644
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -256,8 +256,6 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c
index eaaaf7f55b3..8608393cd0d 100644
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -256,8 +256,6 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c
index 440226d2fff..e722773120c 100644
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -256,8 +256,6 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c
index 99248447c31..0d5401153c8 100644
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -256,8 +256,6 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c
index cb14e74486f..5a15f768b9d 100644
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -256,8 +256,6 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c
index 9fb9b0297c9..aa781b9a4b0 100644
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -256,8 +256,6 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c
index b06ea6653db..1dfc0514907 100644
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -256,8 +256,6 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c
index 1ec11fff1f2..50e4614a9d1 100644
--- a/libgfortran/generated/maxval_r17.c
+++ b/libgfortran/generated/maxval_r17.c
@@ -256,8 +256,6 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c
index 8dfde41fa0c..c3f03038b6a 100644
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -256,8 +256,6 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index 179a4227179..9954a3f8c66 100644
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -256,8 +256,6 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c
index 7bca02e91de..ab16257db2f 100644
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -280,8 +280,6 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c
index 1876871f7ca..98bd80a0978 100644
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -280,8 +280,6 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c
index 061a7928912..0351f284cff 100644
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -280,8 +280,6 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c
index 297d7c53605..469d9a544a6 100644
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -280,8 +280,6 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c
index d0bfb654596..f027f240ccf 100644
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -280,8 +280,6 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c
index 8fc8399ad43..fa019e8518a 100644
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -280,8 +280,6 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c
index 3efb7fbb9cd..b588aebd07d 100644
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -280,8 +280,6 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c
index bcffa58b2a0..c3df2151e43 100644
--- a/libgfortran/generated/minloc1_16_r17.c
+++ b/libgfortran/generated/minloc1_16_r17.c
@@ -280,8 +280,6 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c
index 6b25af9743f..4ba9e19d6cc 100644
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -280,8 +280,6 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c
index f3f88c35cf0..9dcd143b1e4 100644
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -280,8 +280,6 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c
index 3419055dc70..d7bbecf0bbd 100644
--- a/libgfortran/generated/minloc1_16_s1.c
+++ b/libgfortran/generated/minloc1_16_s1.c
@@ -263,8 +263,6 @@ mminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c
index aad2f87386f..860abd58a8d 100644
--- a/libgfortran/generated/minloc1_16_s4.c
+++ b/libgfortran/generated/minloc1_16_s4.c
@@ -263,8 +263,6 @@ mminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c
index 8e2ccace944..a970851c773 100644
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -280,8 +280,6 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c
index 3236418f64e..9df9e185f3f 100644
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -280,8 +280,6 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c
index f039cc2df88..ad74b523c37 100644
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -280,8 +280,6 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c
index 0eac1a8de9e..a8a63fb0a8b 100644
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -280,8 +280,6 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c
index b6fc26765c2..fbecd43fa1a 100644
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -280,8 +280,6 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c
index 3245be44d42..154cc016d0b 100644
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -280,8 +280,6 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c
index a0ca94a653f..6ee86021840 100644
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -280,8 +280,6 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c
index 56b438aea7d..c2cdfbc88c6 100644
--- a/libgfortran/generated/minloc1_4_r17.c
+++ b/libgfortran/generated/minloc1_4_r17.c
@@ -280,8 +280,6 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c
index 922cca690e0..f0a805fdf75 100644
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -280,8 +280,6 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c
index 7316d6e2663..97dbb15e824 100644
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -280,8 +280,6 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c
index da8e49a8029..1d3bfbdef15 100644
--- a/libgfortran/generated/minloc1_4_s1.c
+++ b/libgfortran/generated/minloc1_4_s1.c
@@ -263,8 +263,6 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c
index ca708992ede..cfdff545f32 100644
--- a/libgfortran/generated/minloc1_4_s4.c
+++ b/libgfortran/generated/minloc1_4_s4.c
@@ -263,8 +263,6 @@ mminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c
index de8603cc1f2..0cccb4f8186 100644
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -280,8 +280,6 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c
index 01a4e37869a..6c66f84d68e 100644
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -280,8 +280,6 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c
index e020bfe3b49..ea24ead4b4a 100644
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -280,8 +280,6 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c
index f5093f13bc0..b55bc480bf5 100644
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -280,8 +280,6 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c
index 5b3a327abc5..44b6107cc26 100644
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -280,8 +280,6 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c
index 280840f33e6..b093b3f6ad0 100644
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -280,8 +280,6 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c
index fd0ee3e6c7b..7c660c828ac 100644
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -280,8 +280,6 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c
index dcb3f929842..f9c95330b32 100644
--- a/libgfortran/generated/minloc1_8_r17.c
+++ b/libgfortran/generated/minloc1_8_r17.c
@@ -280,8 +280,6 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c
index e6025482211..b0956bdd81a 100644
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -280,8 +280,6 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index e18185fc6fe..da96e942f2d 100644
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -280,8 +280,6 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c
index 6e26878fc02..1f091780339 100644
--- a/libgfortran/generated/minloc1_8_s1.c
+++ b/libgfortran/generated/minloc1_8_s1.c
@@ -263,8 +263,6 @@ mminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c
index 14e5c9e7395..5a04345e0a9 100644
--- a/libgfortran/generated/minloc1_8_s4.c
+++ b/libgfortran/generated/minloc1_8_s4.c
@@ -263,8 +263,6 @@ mminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval1_s1.c b/libgfortran/generated/minval1_s1.c
index 3a1cde20f93..60f65fd9439 100644
--- a/libgfortran/generated/minval1_s1.c
+++ b/libgfortran/generated/minval1_s1.c
@@ -258,8 +258,6 @@ mminval1_s1 (gfc_array_s1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval1_s4.c b/libgfortran/generated/minval1_s4.c
index 83987fd1f25..e8252991a18 100644
--- a/libgfortran/generated/minval1_s4.c
+++ b/libgfortran/generated/minval1_s4.c
@@ -258,8 +258,6 @@ mminval1_s4 (gfc_array_s4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c
index 4b3d19e15f2..352380d8a12 100644
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -256,8 +256,6 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c
index de746524499..a9bd75070fd 100644
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -256,8 +256,6 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c
index 8bcaeb7b866..990b47adafe 100644
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -256,8 +256,6 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c
index a45aaae0bc6..237242cbf1c 100644
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -256,8 +256,6 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index 481b5d093d2..61f26acf2b5 100644
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -256,8 +256,6 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c
index e0f7c78a2af..63f21e966d4 100644
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -256,8 +256,6 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c
index 41feafb17db..ae9b1223b8e 100644
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -256,8 +256,6 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c
index d928240bf1a..fc1b6ba4e9b 100644
--- a/libgfortran/generated/minval_r17.c
+++ b/libgfortran/generated/minval_r17.c
@@ -256,8 +256,6 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c
index 7d16b6f5c93..010fb9e5a09 100644
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -256,8 +256,6 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c
index 7a2cb031115..c9a6b0d9da8 100644
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -256,8 +256,6 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c
index 992313feabe..7b97f6b5161 100644
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -242,8 +242,6 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c
index 468c6aa86de..202b90ac288 100644
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -242,8 +242,6 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_c17.c b/libgfortran/generated/product_c17.c
index e7221738b59..49e87391315 100644
--- a/libgfortran/generated/product_c17.c
+++ b/libgfortran/generated/product_c17.c
@@ -242,8 +242,6 @@ mproduct_c17 (gfc_array_c17 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c
index 57875ad2984..513557c740e 100644
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -242,8 +242,6 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c
index fb8a2574542..5de40c6e43c 100644
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -242,8 +242,6 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c
index ed13fcf37e4..0502bdfa845 100644
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -242,8 +242,6 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c
index 53544bea8f0..41f7cb5fde0 100644
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -242,8 +242,6 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c
index aef0fc47d4f..cfd5291634d 100644
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -242,8 +242,6 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c
index 16c6f6e10ae..9482e3fd64e 100644
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -242,8 +242,6 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c
index 66f581f4b2d..38ae86199be 100644
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -242,8 +242,6 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c
index 8c79ff88a6f..63fb76dfd30 100644
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -242,8 +242,6 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c
index 0f5027be42f..d6a67c8c68c 100644
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -242,8 +242,6 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_r17.c b/libgfortran/generated/product_r17.c
index 37134cbb089..c927057225a 100644
--- a/libgfortran/generated/product_r17.c
+++ b/libgfortran/generated/product_r17.c
@@ -242,8 +242,6 @@ mproduct_r17 (gfc_array_r17 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c
index 9a8eefb5124..8167b8215f1 100644
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -242,8 +242,6 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c
index 5112b90f5f2..2c0a231c3f7 100644
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -242,8 +242,6 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c
index d6a5db64fca..b3c8b790c9d 100644
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -242,8 +242,6 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c
index 156382d2f33..aa912e7d659 100644
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -242,8 +242,6 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c
index c00b0b84d5d..ea6514ae08e 100644
--- a/libgfortran/generated/sum_c17.c
+++ b/libgfortran/generated/sum_c17.c
@@ -242,8 +242,6 @@ msum_c17 (gfc_array_c17 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c
index b750a91f940..6c02d6381f2 100644
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -242,8 +242,6 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c
index 19b03c07504..eb4641d447f 100644
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -242,8 +242,6 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c
index 2df0ec11a87..27d80284296 100644
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -242,8 +242,6 @@ msum_i1 (gfc_array_i1 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c
index 0b7179b595d..592ae925493 100644
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -242,8 +242,6 @@ msum_i16 (gfc_array_i16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c
index 3149e5fe5e5..54d91ab1a43 100644
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -242,8 +242,6 @@ msum_i2 (gfc_array_i2 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c
index 5cf5f95bf0f..aa27839110d 100644
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -242,8 +242,6 @@ msum_i4 (gfc_array_i4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c
index a020ba63349..a7836ed99f4 100644
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -242,8 +242,6 @@ msum_i8 (gfc_array_i8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c
index f02f9816b7d..5efe6a2bce4 100644
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -242,8 +242,6 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c
index 43439ef385c..feedb4a5139 100644
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -242,8 +242,6 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_r17.c b/libgfortran/generated/sum_r17.c
index 97af0d73a77..fdbf84783a9 100644
--- a/libgfortran/generated/sum_r17.c
+++ b/libgfortran/generated/sum_r17.c
@@ -242,8 +242,6 @@ msum_r17 (gfc_array_r17 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c
index 5a4e06a5545..4a7ab4a6c1a 100644
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -242,8 +242,6 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c
index 00f7cdba540..a83dd93348f 100644
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -242,8 +242,6 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4
index 16615aa290f..19f665f50ad 100644
--- a/libgfortran/m4/ifunction-s.m4
+++ b/libgfortran/m4/ifunction-s.m4
@@ -244,8 +244,6 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4
index 4d31c208e05..5d9870e8640 100644
--- a/libgfortran/m4/ifunction-s2.m4
+++ b/libgfortran/m4/ifunction-s2.m4
@@ -244,8 +244,6 @@ void
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
index c64217ec5db..480649cf691 100644
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -232,8 +232,6 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
}
len = GFC_DESCRIPTOR_EXTENT(array,dim);
- if (len <= 0)
- return;
mbase = mask->base_addr;
--
2.42.0
^ permalink raw reply [flat|nested] 8+ messages in thread
* [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371]
2023-11-06 11:43 [PATCH 0/2] libgfortran: empty array fixes [PR112371] Mikael Morin
2023-11-06 11:43 ` [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371] Mikael Morin
@ 2023-11-06 11:43 ` Mikael Morin
2023-11-06 18:20 ` Harald Anlauf
1 sibling, 1 reply; 8+ messages in thread
From: Mikael Morin @ 2023-11-06 11:43 UTC (permalink / raw)
To: gcc-patches, fortran
Remove the forced overwrite of the first dimension of the result array
descriptor to set it to zero extent, in the function templates for
transformational functions doing an array reduction along a dimension. This
overwrite, which happened before early returning in case the result array
was empty, was wrong because an array may have a non-zero extent in the
first dimension and still be empty if it has a zero extent in a higher
dimension. Overwriting the dimension was resulting in wrong array result
upper bound for the first dimension in that case.
The offending piece of code was present in several places, and this removes
them all. More precisely, there is only one case to fix for logical
reduction functions, and there are three cases for other reduction
functions, corresponding to non-masked reduction, reduction with array mask,
and reduction with scalar mask. The impacted m4 files are
ifunction_logical.m4 for logical reduction functions, ifunction.m4 for
regular functions and types, ifunction-s.m4 for character minloc and maxloc,
ifunction-s2.m4 for character minval and maxval, and ifindloc1.m4 for
findloc.
PR fortran/112371
libgfortran/ChangeLog:
* m4/ifunction.m4 (START_ARRAY_FUNCTION, START_MASKED_ARRAY_FUNCTION,
SCALAR_ARRAY_FUNCTION): Remove overwrite of the first dimension of the
array descriptor.
* m4/ifunction-s.m4 (START_ARRAY_FUNCTION, START_MASKED_ARRAY_FUNCTION,
SCALAR_ARRAY_FUNCTION): Ditto.
* m4/ifunction-s2.m4 (START_ARRAY_FUNCTION,
START_MASKED_ARRAY_FUNCTION, SCALAR_ARRAY_FUNCTION): Ditto.
* m4/ifunction_logical.m4 (START_ARRAY_FUNCTION): Ditto.
* m4/ifindloc1.m4: Ditto.
* generated/all_l1.c: Regenerate.
* generated/all_l16.c: Regenerate.
* generated/all_l2.c: Regenerate.
* generated/all_l4.c: Regenerate.
* generated/all_l8.c: Regenerate.
* generated/any_l1.c: Regenerate.
* generated/any_l16.c: Regenerate.
* generated/any_l2.c: Regenerate.
* generated/any_l4.c: Regenerate.
* generated/any_l8.c: Regenerate.
* generated/count_16_l.c: Regenerate.
* generated/count_1_l.c: Regenerate.
* generated/count_2_l.c: Regenerate.
* generated/count_4_l.c: Regenerate.
* generated/count_8_l.c: Regenerate.
* generated/findloc1_c10.c: Regenerate.
* generated/findloc1_c16.c: Regenerate.
* generated/findloc1_c17.c: Regenerate.
* generated/findloc1_c4.c: Regenerate.
* generated/findloc1_c8.c: Regenerate.
* generated/findloc1_i1.c: Regenerate.
* generated/findloc1_i16.c: Regenerate.
* generated/findloc1_i2.c: Regenerate.
* generated/findloc1_i4.c: Regenerate.
* generated/findloc1_i8.c: Regenerate.
* generated/findloc1_r10.c: Regenerate.
* generated/findloc1_r16.c: Regenerate.
* generated/findloc1_r17.c: Regenerate.
* generated/findloc1_r4.c: Regenerate.
* generated/findloc1_r8.c: Regenerate.
* generated/findloc1_s1.c: Regenerate.
* generated/findloc1_s4.c: Regenerate.
* generated/iall_i1.c: Regenerate.
* generated/iall_i16.c: Regenerate.
* generated/iall_i2.c: Regenerate.
* generated/iall_i4.c: Regenerate.
* generated/iall_i8.c: Regenerate.
* generated/iany_i1.c: Regenerate.
* generated/iany_i16.c: Regenerate.
* generated/iany_i2.c: Regenerate.
* generated/iany_i4.c: Regenerate.
* generated/iany_i8.c: Regenerate.
* generated/iparity_i1.c: Regenerate.
* generated/iparity_i16.c: Regenerate.
* generated/iparity_i2.c: Regenerate.
* generated/iparity_i4.c: Regenerate.
* generated/iparity_i8.c: Regenerate.
* generated/maxloc1_16_i1.c: Regenerate.
* generated/maxloc1_16_i16.c: Regenerate.
* generated/maxloc1_16_i2.c: Regenerate.
* generated/maxloc1_16_i4.c: Regenerate.
* generated/maxloc1_16_i8.c: Regenerate.
* generated/maxloc1_16_r10.c: Regenerate.
* generated/maxloc1_16_r16.c: Regenerate.
* generated/maxloc1_16_r17.c: Regenerate.
* generated/maxloc1_16_r4.c: Regenerate.
* generated/maxloc1_16_r8.c: Regenerate.
* generated/maxloc1_16_s1.c: Regenerate.
* generated/maxloc1_16_s4.c: Regenerate.
* generated/maxloc1_4_i1.c: Regenerate.
* generated/maxloc1_4_i16.c: Regenerate.
* generated/maxloc1_4_i2.c: Regenerate.
* generated/maxloc1_4_i4.c: Regenerate.
* generated/maxloc1_4_i8.c: Regenerate.
* generated/maxloc1_4_r10.c: Regenerate.
* generated/maxloc1_4_r16.c: Regenerate.
* generated/maxloc1_4_r17.c: Regenerate.
* generated/maxloc1_4_r4.c: Regenerate.
* generated/maxloc1_4_r8.c: Regenerate.
* generated/maxloc1_4_s1.c: Regenerate.
* generated/maxloc1_4_s4.c: Regenerate.
* generated/maxloc1_8_i1.c: Regenerate.
* generated/maxloc1_8_i16.c: Regenerate.
* generated/maxloc1_8_i2.c: Regenerate.
* generated/maxloc1_8_i4.c: Regenerate.
* generated/maxloc1_8_i8.c: Regenerate.
* generated/maxloc1_8_r10.c: Regenerate.
* generated/maxloc1_8_r16.c: Regenerate.
* generated/maxloc1_8_r17.c: Regenerate.
* generated/maxloc1_8_r4.c: Regenerate.
* generated/maxloc1_8_r8.c: Regenerate.
* generated/maxloc1_8_s1.c: Regenerate.
* generated/maxloc1_8_s4.c: Regenerate.
* generated/maxval1_s1.c: Regenerate.
* generated/maxval1_s4.c: Regenerate.
* generated/maxval_i1.c: Regenerate.
* generated/maxval_i16.c: Regenerate.
* generated/maxval_i2.c: Regenerate.
* generated/maxval_i4.c: Regenerate.
* generated/maxval_i8.c: Regenerate.
* generated/maxval_r10.c: Regenerate.
* generated/maxval_r16.c: Regenerate.
* generated/maxval_r17.c: Regenerate.
* generated/maxval_r4.c: Regenerate.
* generated/maxval_r8.c: Regenerate.
* generated/minloc1_16_i1.c: Regenerate.
* generated/minloc1_16_i16.c: Regenerate.
* generated/minloc1_16_i2.c: Regenerate.
* generated/minloc1_16_i4.c: Regenerate.
* generated/minloc1_16_i8.c: Regenerate.
* generated/minloc1_16_r10.c: Regenerate.
* generated/minloc1_16_r16.c: Regenerate.
* generated/minloc1_16_r17.c: Regenerate.
* generated/minloc1_16_r4.c: Regenerate.
* generated/minloc1_16_r8.c: Regenerate.
* generated/minloc1_16_s1.c: Regenerate.
* generated/minloc1_16_s4.c: Regenerate.
* generated/minloc1_4_i1.c: Regenerate.
* generated/minloc1_4_i16.c: Regenerate.
* generated/minloc1_4_i2.c: Regenerate.
* generated/minloc1_4_i4.c: Regenerate.
* generated/minloc1_4_i8.c: Regenerate.
* generated/minloc1_4_r10.c: Regenerate.
* generated/minloc1_4_r16.c: Regenerate.
* generated/minloc1_4_r17.c: Regenerate.
* generated/minloc1_4_r4.c: Regenerate.
* generated/minloc1_4_r8.c: Regenerate.
* generated/minloc1_4_s1.c: Regenerate.
* generated/minloc1_4_s4.c: Regenerate.
* generated/minloc1_8_i1.c: Regenerate.
* generated/minloc1_8_i16.c: Regenerate.
* generated/minloc1_8_i2.c: Regenerate.
* generated/minloc1_8_i4.c: Regenerate.
* generated/minloc1_8_i8.c: Regenerate.
* generated/minloc1_8_r10.c: Regenerate.
* generated/minloc1_8_r16.c: Regenerate.
* generated/minloc1_8_r17.c: Regenerate.
* generated/minloc1_8_r4.c: Regenerate.
* generated/minloc1_8_r8.c: Regenerate.
* generated/minloc1_8_s1.c: Regenerate.
* generated/minloc1_8_s4.c: Regenerate.
* generated/minval1_s1.c: Regenerate.
* generated/minval1_s4.c: Regenerate.
* generated/minval_i1.c: Regenerate.
* generated/minval_i16.c: Regenerate.
* generated/minval_i2.c: Regenerate.
* generated/minval_i4.c: Regenerate.
* generated/minval_i8.c: Regenerate.
* generated/minval_r10.c: Regenerate.
* generated/minval_r16.c: Regenerate.
* generated/minval_r17.c: Regenerate.
* generated/minval_r4.c: Regenerate.
* generated/minval_r8.c: Regenerate.
* generated/norm2_r10.c: Regenerate.
* generated/norm2_r16.c: Regenerate.
* generated/norm2_r17.c: Regenerate.
* generated/norm2_r4.c: Regenerate.
* generated/norm2_r8.c: Regenerate.
* generated/parity_l1.c: Regenerate.
* generated/parity_l16.c: Regenerate.
* generated/parity_l2.c: Regenerate.
* generated/parity_l4.c: Regenerate.
* generated/parity_l8.c: Regenerate.
* generated/product_c10.c: Regenerate.
* generated/product_c16.c: Regenerate.
* generated/product_c17.c: Regenerate.
* generated/product_c4.c: Regenerate.
* generated/product_c8.c: Regenerate.
* generated/product_i1.c: Regenerate.
* generated/product_i16.c: Regenerate.
* generated/product_i2.c: Regenerate.
* generated/product_i4.c: Regenerate.
* generated/product_i8.c: Regenerate.
* generated/product_r10.c: Regenerate.
* generated/product_r16.c: Regenerate.
* generated/product_r17.c: Regenerate.
* generated/product_r4.c: Regenerate.
* generated/product_r8.c: Regenerate.
* generated/sum_c10.c: Regenerate.
* generated/sum_c16.c: Regenerate.
* generated/sum_c17.c: Regenerate.
* generated/sum_c4.c: Regenerate.
* generated/sum_c8.c: Regenerate.
* generated/sum_i1.c: Regenerate.
* generated/sum_i16.c: Regenerate.
* generated/sum_i2.c: Regenerate.
* generated/sum_i4.c: Regenerate.
* generated/sum_i8.c: Regenerate.
* generated/sum_r10.c: Regenerate.
* generated/sum_r16.c: Regenerate.
* generated/sum_r17.c: Regenerate.
* generated/sum_r4.c: Regenerate.
* generated/sum_r8.c: Regenerate.
gcc/testsuite/ChangeLog:
* gfortran.dg/bound_11.f90: New test.
---
gcc/testsuite/gfortran.dg/bound_11.f90 | 588 +++++++++++++++++++++++++
libgfortran/generated/all_l1.c | 6 +-
libgfortran/generated/all_l16.c | 6 +-
libgfortran/generated/all_l2.c | 6 +-
libgfortran/generated/all_l4.c | 6 +-
libgfortran/generated/all_l8.c | 6 +-
libgfortran/generated/any_l1.c | 6 +-
libgfortran/generated/any_l16.c | 6 +-
libgfortran/generated/any_l2.c | 6 +-
libgfortran/generated/any_l4.c | 6 +-
libgfortran/generated/any_l8.c | 6 +-
libgfortran/generated/count_16_l.c | 6 +-
libgfortran/generated/count_1_l.c | 6 +-
libgfortran/generated/count_2_l.c | 6 +-
libgfortran/generated/count_4_l.c | 6 +-
libgfortran/generated/count_8_l.c | 6 +-
libgfortran/generated/findloc1_c10.c | 18 +-
libgfortran/generated/findloc1_c16.c | 18 +-
libgfortran/generated/findloc1_c17.c | 18 +-
libgfortran/generated/findloc1_c4.c | 18 +-
libgfortran/generated/findloc1_c8.c | 18 +-
libgfortran/generated/findloc1_i1.c | 18 +-
libgfortran/generated/findloc1_i16.c | 18 +-
libgfortran/generated/findloc1_i2.c | 18 +-
libgfortran/generated/findloc1_i4.c | 18 +-
libgfortran/generated/findloc1_i8.c | 18 +-
libgfortran/generated/findloc1_r10.c | 18 +-
libgfortran/generated/findloc1_r16.c | 18 +-
libgfortran/generated/findloc1_r17.c | 18 +-
libgfortran/generated/findloc1_r4.c | 18 +-
libgfortran/generated/findloc1_r8.c | 18 +-
libgfortran/generated/findloc1_s1.c | 18 +-
libgfortran/generated/findloc1_s4.c | 18 +-
libgfortran/generated/iall_i1.c | 19 +-
libgfortran/generated/iall_i16.c | 19 +-
libgfortran/generated/iall_i2.c | 19 +-
libgfortran/generated/iall_i4.c | 19 +-
libgfortran/generated/iall_i8.c | 19 +-
libgfortran/generated/iany_i1.c | 19 +-
libgfortran/generated/iany_i16.c | 19 +-
libgfortran/generated/iany_i2.c | 19 +-
libgfortran/generated/iany_i4.c | 19 +-
libgfortran/generated/iany_i8.c | 19 +-
libgfortran/generated/iparity_i1.c | 19 +-
libgfortran/generated/iparity_i16.c | 19 +-
libgfortran/generated/iparity_i2.c | 19 +-
libgfortran/generated/iparity_i4.c | 19 +-
libgfortran/generated/iparity_i8.c | 19 +-
libgfortran/generated/maxloc1_16_i1.c | 19 +-
libgfortran/generated/maxloc1_16_i16.c | 19 +-
libgfortran/generated/maxloc1_16_i2.c | 19 +-
libgfortran/generated/maxloc1_16_i4.c | 19 +-
libgfortran/generated/maxloc1_16_i8.c | 19 +-
libgfortran/generated/maxloc1_16_r10.c | 19 +-
libgfortran/generated/maxloc1_16_r16.c | 19 +-
libgfortran/generated/maxloc1_16_r17.c | 19 +-
libgfortran/generated/maxloc1_16_r4.c | 19 +-
libgfortran/generated/maxloc1_16_r8.c | 19 +-
libgfortran/generated/maxloc1_16_s1.c | 19 +-
libgfortran/generated/maxloc1_16_s4.c | 19 +-
libgfortran/generated/maxloc1_4_i1.c | 19 +-
libgfortran/generated/maxloc1_4_i16.c | 19 +-
libgfortran/generated/maxloc1_4_i2.c | 19 +-
libgfortran/generated/maxloc1_4_i4.c | 19 +-
libgfortran/generated/maxloc1_4_i8.c | 19 +-
libgfortran/generated/maxloc1_4_r10.c | 19 +-
libgfortran/generated/maxloc1_4_r16.c | 19 +-
libgfortran/generated/maxloc1_4_r17.c | 19 +-
libgfortran/generated/maxloc1_4_r4.c | 19 +-
libgfortran/generated/maxloc1_4_r8.c | 19 +-
libgfortran/generated/maxloc1_4_s1.c | 19 +-
libgfortran/generated/maxloc1_4_s4.c | 19 +-
libgfortran/generated/maxloc1_8_i1.c | 19 +-
libgfortran/generated/maxloc1_8_i16.c | 19 +-
libgfortran/generated/maxloc1_8_i2.c | 19 +-
libgfortran/generated/maxloc1_8_i4.c | 19 +-
libgfortran/generated/maxloc1_8_i8.c | 19 +-
libgfortran/generated/maxloc1_8_r10.c | 19 +-
libgfortran/generated/maxloc1_8_r16.c | 19 +-
libgfortran/generated/maxloc1_8_r17.c | 19 +-
libgfortran/generated/maxloc1_8_r4.c | 19 +-
libgfortran/generated/maxloc1_8_r8.c | 19 +-
libgfortran/generated/maxloc1_8_s1.c | 19 +-
libgfortran/generated/maxloc1_8_s4.c | 19 +-
libgfortran/generated/maxval1_s1.c | 19 +-
libgfortran/generated/maxval1_s4.c | 19 +-
libgfortran/generated/maxval_i1.c | 19 +-
libgfortran/generated/maxval_i16.c | 19 +-
libgfortran/generated/maxval_i2.c | 19 +-
libgfortran/generated/maxval_i4.c | 19 +-
libgfortran/generated/maxval_i8.c | 19 +-
libgfortran/generated/maxval_r10.c | 19 +-
libgfortran/generated/maxval_r16.c | 19 +-
libgfortran/generated/maxval_r17.c | 19 +-
libgfortran/generated/maxval_r4.c | 19 +-
libgfortran/generated/maxval_r8.c | 19 +-
libgfortran/generated/minloc1_16_i1.c | 19 +-
libgfortran/generated/minloc1_16_i16.c | 19 +-
libgfortran/generated/minloc1_16_i2.c | 19 +-
libgfortran/generated/minloc1_16_i4.c | 19 +-
libgfortran/generated/minloc1_16_i8.c | 19 +-
libgfortran/generated/minloc1_16_r10.c | 19 +-
libgfortran/generated/minloc1_16_r16.c | 19 +-
libgfortran/generated/minloc1_16_r17.c | 19 +-
libgfortran/generated/minloc1_16_r4.c | 19 +-
libgfortran/generated/minloc1_16_r8.c | 19 +-
libgfortran/generated/minloc1_16_s1.c | 19 +-
libgfortran/generated/minloc1_16_s4.c | 19 +-
libgfortran/generated/minloc1_4_i1.c | 19 +-
libgfortran/generated/minloc1_4_i16.c | 19 +-
libgfortran/generated/minloc1_4_i2.c | 19 +-
libgfortran/generated/minloc1_4_i4.c | 19 +-
libgfortran/generated/minloc1_4_i8.c | 19 +-
libgfortran/generated/minloc1_4_r10.c | 19 +-
libgfortran/generated/minloc1_4_r16.c | 19 +-
libgfortran/generated/minloc1_4_r17.c | 19 +-
libgfortran/generated/minloc1_4_r4.c | 19 +-
libgfortran/generated/minloc1_4_r8.c | 19 +-
libgfortran/generated/minloc1_4_s1.c | 19 +-
libgfortran/generated/minloc1_4_s4.c | 19 +-
libgfortran/generated/minloc1_8_i1.c | 19 +-
libgfortran/generated/minloc1_8_i16.c | 19 +-
libgfortran/generated/minloc1_8_i2.c | 19 +-
libgfortran/generated/minloc1_8_i4.c | 19 +-
libgfortran/generated/minloc1_8_i8.c | 19 +-
libgfortran/generated/minloc1_8_r10.c | 19 +-
libgfortran/generated/minloc1_8_r16.c | 19 +-
libgfortran/generated/minloc1_8_r17.c | 19 +-
libgfortran/generated/minloc1_8_r4.c | 19 +-
libgfortran/generated/minloc1_8_r8.c | 19 +-
libgfortran/generated/minloc1_8_s1.c | 19 +-
libgfortran/generated/minloc1_8_s4.c | 19 +-
libgfortran/generated/minval1_s1.c | 19 +-
libgfortran/generated/minval1_s4.c | 19 +-
libgfortran/generated/minval_i1.c | 19 +-
libgfortran/generated/minval_i16.c | 19 +-
libgfortran/generated/minval_i2.c | 19 +-
libgfortran/generated/minval_i4.c | 19 +-
libgfortran/generated/minval_i8.c | 19 +-
libgfortran/generated/minval_r10.c | 19 +-
libgfortran/generated/minval_r16.c | 19 +-
libgfortran/generated/minval_r17.c | 19 +-
libgfortran/generated/minval_r4.c | 19 +-
libgfortran/generated/minval_r8.c | 19 +-
libgfortran/generated/norm2_r10.c | 7 +-
libgfortran/generated/norm2_r16.c | 7 +-
libgfortran/generated/norm2_r17.c | 7 +-
libgfortran/generated/norm2_r4.c | 7 +-
libgfortran/generated/norm2_r8.c | 7 +-
libgfortran/generated/parity_l1.c | 7 +-
libgfortran/generated/parity_l16.c | 7 +-
libgfortran/generated/parity_l2.c | 7 +-
libgfortran/generated/parity_l4.c | 7 +-
libgfortran/generated/parity_l8.c | 7 +-
libgfortran/generated/product_c10.c | 19 +-
libgfortran/generated/product_c16.c | 19 +-
libgfortran/generated/product_c17.c | 19 +-
libgfortran/generated/product_c4.c | 19 +-
libgfortran/generated/product_c8.c | 19 +-
libgfortran/generated/product_i1.c | 19 +-
libgfortran/generated/product_i16.c | 19 +-
libgfortran/generated/product_i2.c | 19 +-
libgfortran/generated/product_i4.c | 19 +-
libgfortran/generated/product_i8.c | 19 +-
libgfortran/generated/product_r10.c | 19 +-
libgfortran/generated/product_r16.c | 19 +-
libgfortran/generated/product_r17.c | 19 +-
libgfortran/generated/product_r4.c | 19 +-
libgfortran/generated/product_r8.c | 19 +-
libgfortran/generated/sum_c10.c | 19 +-
libgfortran/generated/sum_c16.c | 19 +-
libgfortran/generated/sum_c17.c | 19 +-
libgfortran/generated/sum_c4.c | 19 +-
libgfortran/generated/sum_c8.c | 19 +-
libgfortran/generated/sum_i1.c | 19 +-
libgfortran/generated/sum_i16.c | 19 +-
libgfortran/generated/sum_i2.c | 19 +-
libgfortran/generated/sum_i4.c | 19 +-
libgfortran/generated/sum_i8.c | 19 +-
libgfortran/generated/sum_r10.c | 19 +-
libgfortran/generated/sum_r16.c | 19 +-
libgfortran/generated/sum_r17.c | 19 +-
libgfortran/generated/sum_r4.c | 19 +-
libgfortran/generated/sum_r8.c | 19 +-
libgfortran/m4/ifindloc1.m4 | 18 +-
libgfortran/m4/ifunction-s.m4 | 19 +-
libgfortran/m4/ifunction-s2.m4 | 19 +-
libgfortran/m4/ifunction.m4 | 19 +-
libgfortran/m4/ifunction_logical.m4 | 6 +-
189 files changed, 1100 insertions(+), 2714 deletions(-)
create mode 100644 gcc/testsuite/gfortran.dg/bound_11.f90
diff --git a/gcc/testsuite/gfortran.dg/bound_11.f90 b/gcc/testsuite/gfortran.dg/bound_11.f90
new file mode 100644
index 00000000000..170eba4ddfd
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/bound_11.f90
@@ -0,0 +1,588 @@
+! { dg-do run }
+!
+! PR fortran/112371
+! The library used to incorrectly set an extent of zero for the first
+! dimension of the resulting array of a reduction function if that array was
+! empty.
+
+program p
+ implicit none
+ call check_iparity
+ call check_sum
+ call check_minloc_int
+ call check_minloc_char
+ call check_maxloc_char4
+ call check_minval_char
+ call check_maxval_char4
+ call check_any
+ call check_count4
+ call check_findloc_int
+ call check_findloc_char
+contains
+ subroutine check_iparity
+ integer :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = iparity(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 111
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 112
+ i = 2
+ r = iparity(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 113
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 114
+ i = 3
+ r = iparity(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 115
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 116
+ i = 4
+ r = iparity(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 117
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 118
+ i = 1
+ r = iparity(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 121
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 122
+ i = 2
+ r = iparity(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 123
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 124
+ i = 3
+ r = iparity(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 125
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 126
+ i = 4
+ r = iparity(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 127
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 128
+ i = 1
+ r = iparity(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 131
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 132
+ i = 2
+ r = iparity(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 133
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 134
+ i = 3
+ r = iparity(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 135
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 136
+ i = 4
+ r = iparity(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 137
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 138
+ end subroutine
+ subroutine check_sum
+ integer :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = sum(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 211
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 212
+ i = 2
+ r = sum(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 213
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 214
+ i = 3
+ r = sum(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 215
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 216
+ i = 4
+ r = sum(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 217
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 218
+ i = 1
+ r = sum(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 221
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 222
+ i = 2
+ r = sum(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 223
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 224
+ i = 3
+ r = sum(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 225
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 226
+ i = 4
+ r = sum(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 227
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 228
+ i = 1
+ r = sum(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 231
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 232
+ i = 2
+ r = sum(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 233
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 234
+ i = 3
+ r = sum(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 235
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 236
+ i = 4
+ r = sum(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 237
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 238
+ end subroutine
+ subroutine check_minloc_int
+ integer :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 311
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 312
+ i = 2
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 313
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 314
+ i = 3
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 315
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 316
+ i = 4
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 317
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 318
+ i = 1
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 321
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 322
+ i = 2
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 323
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 324
+ i = 3
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 325
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 326
+ i = 4
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 327
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 328
+ i = 1
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 331
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 332
+ i = 2
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 333
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 334
+ i = 3
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 335
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 336
+ i = 4
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 337
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 338
+ end subroutine
+ subroutine check_minloc_char
+ character :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ character:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 411
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 412
+ i = 2
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 413
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 414
+ i = 3
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 415
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 416
+ i = 4
+ r = minloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 417
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 418
+ i = 1
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 421
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 422
+ i = 2
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 423
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 424
+ i = 3
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 425
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 426
+ i = 4
+ r = minloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 427
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 428
+ i = 1
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 431
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 432
+ i = 2
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 433
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 434
+ i = 3
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 435
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 436
+ i = 4
+ r = minloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 437
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 438
+ end subroutine
+ subroutine check_maxloc_char4
+ character(kind=4) :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ character(kind=4):: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = maxloc(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 511
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 512
+ i = 2
+ r = maxloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 513
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 514
+ i = 3
+ r = maxloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 515
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 516
+ i = 4
+ r = maxloc(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 517
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 518
+ i = 1
+ r = maxloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 521
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 522
+ i = 2
+ r = maxloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 523
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 524
+ i = 3
+ r = maxloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 525
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 526
+ i = 4
+ r = maxloc(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 527
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 528
+ i = 1
+ r = maxloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 531
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 532
+ i = 2
+ r = maxloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 533
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 534
+ i = 3
+ r = maxloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 535
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 536
+ i = 4
+ r = maxloc(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 537
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 538
+ end subroutine
+ subroutine check_minval_char
+ character :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ character, allocatable :: r(:,:,:)
+ a = reshape((/ character:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = minval(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 611
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 612
+ i = 2
+ r = minval(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 613
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 614
+ i = 3
+ r = minval(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 615
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 616
+ i = 4
+ r = minval(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 617
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 618
+ i = 1
+ r = minval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 621
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 622
+ i = 2
+ r = minval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 623
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 624
+ i = 3
+ r = minval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 625
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 626
+ i = 4
+ r = minval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 627
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 628
+ i = 1
+ r = minval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 631
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 632
+ i = 2
+ r = minval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 633
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 634
+ i = 3
+ r = minval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 635
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 636
+ i = 4
+ r = minval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 637
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 638
+ end subroutine
+ subroutine check_maxval_char4
+ character(kind=4) :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ character(kind=4), allocatable :: r(:,:,:)
+ a = reshape((/ character(kind=4):: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = maxval(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 711
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 712
+ i = 2
+ r = maxval(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 713
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 714
+ i = 3
+ r = maxval(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 715
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 716
+ i = 4
+ r = maxval(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 717
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 718
+ i = 1
+ r = maxval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 721
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 722
+ i = 2
+ r = maxval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 723
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 724
+ i = 3
+ r = maxval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 725
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 726
+ i = 4
+ r = maxval(a, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 727
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 728
+ i = 1
+ r = maxval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 731
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 732
+ i = 2
+ r = maxval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 733
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 734
+ i = 3
+ r = maxval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 735
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 736
+ i = 4
+ r = maxval(a, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 737
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 738
+ end subroutine
+ subroutine check_any
+ logical :: a(9,3,0,7)
+ integer :: i
+ logical, allocatable :: r(:,:,:)
+ a = reshape((/ logical:: /), shape(a))
+ i = 1
+ r = any(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 811
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 812
+ i = 2
+ r = any(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 813
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 814
+ i = 3
+ r = any(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 815
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 816
+ i = 4
+ r = any(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 817
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 818
+ end subroutine
+ subroutine check_count4
+ logical(kind=4) :: a(9,3,0,7)
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ logical(kind=4):: /), shape(a))
+ i = 1
+ r = count(a, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 911
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 912
+ i = 2
+ r = count(a, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 913
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 914
+ i = 3
+ r = count(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 915
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 916
+ i = 4
+ r = count(a, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 917
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 918
+ end subroutine
+ subroutine check_findloc_int
+ integer :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ integer:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = findloc(a, 10, dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1011
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1012
+ i = 2
+ r = findloc(a, 10, dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1013
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1014
+ i = 3
+ r = findloc(a, 10, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1015
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1016
+ i = 4
+ r = findloc(a, 10, dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1017
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1018
+ i = 1
+ r = findloc(a, 10, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1021
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1022
+ i = 2
+ r = findloc(a, 10, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1023
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1024
+ i = 3
+ r = findloc(a, 10, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1025
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1026
+ i = 4
+ r = findloc(a, 10, dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1027
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1028
+ i = 1
+ r = findloc(a, 10, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1031
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1032
+ i = 2
+ r = findloc(a, 10, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1033
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1034
+ i = 3
+ r = findloc(a, 10, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1035
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1036
+ i = 4
+ r = findloc(a, 10, dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1037
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1038
+ end subroutine
+ subroutine check_findloc_char
+ character :: a(9,3,0,7)
+ logical :: m1(9,3,0,7)
+ logical(kind=4) :: m4
+ integer :: i
+ integer, allocatable :: r(:,:,:)
+ a = reshape((/ character:: /), shape(a))
+ m1 = reshape((/ logical:: /), shape(m1))
+ m4 = .false.
+ i = 1
+ r = findloc(a, "a", dim=i)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1111
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1112
+ i = 2
+ r = findloc(a, "a", dim=i)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1113
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1114
+ i = 3
+ r = findloc(a, "a", dim=i)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1115
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1116
+ i = 4
+ r = findloc(a, "a", dim=i)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1117
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1118
+ i = 1
+ r = findloc(a, "a", dim=i, mask=m1)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1121
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1122
+ i = 2
+ r = findloc(a, "a", dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1123
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1124
+ i = 3
+ r = findloc(a, "a", dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1125
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1126
+ i = 4
+ r = findloc(a, "a", dim=i, mask=m1)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1127
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1128
+ i = 1
+ r = findloc(a, "a", dim=i, mask=m4)
+ if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1131
+ if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1132
+ i = 2
+ r = findloc(a, "a", dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1133
+ if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1134
+ i = 3
+ r = findloc(a, "a", dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1135
+ if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1136
+ i = 4
+ r = findloc(a, "a", dim=i, mask=m4)
+ if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1137
+ if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1138
+ end subroutine
+end program
diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c
index afe94491b42..dee2d643d7a 100644
--- a/libgfortran/generated/all_l1.c
+++ b/libgfortran/generated/all_l1.c
@@ -102,11 +102,7 @@ all_l1 (gfc_array_l1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
}
diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c
index 3b04889f920..4898899a621 100644
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -102,11 +102,7 @@ all_l16 (gfc_array_l16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
}
diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c
index 5ce9027d6f5..9bf0c2a74e9 100644
--- a/libgfortran/generated/all_l2.c
+++ b/libgfortran/generated/all_l2.c
@@ -102,11 +102,7 @@ all_l2 (gfc_array_l2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
}
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c
index e004d1f6783..bef696f6ef4 100644
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -102,11 +102,7 @@ all_l4 (gfc_array_l4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
}
diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c
index 7ae7392d4bf..dac8ee71392 100644
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -102,11 +102,7 @@ all_l8 (gfc_array_l8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
}
diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c
index f3269c6c920..ea26225cce2 100644
--- a/libgfortran/generated/any_l1.c
+++ b/libgfortran/generated/any_l1.c
@@ -102,11 +102,7 @@ any_l1 (gfc_array_l1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
}
diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c
index d27f496e93c..a8c5d71f341 100644
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -102,11 +102,7 @@ any_l16 (gfc_array_l16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
}
diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c
index bac6837f515..2e0a123c5e4 100644
--- a/libgfortran/generated/any_l2.c
+++ b/libgfortran/generated/any_l2.c
@@ -102,11 +102,7 @@ any_l2 (gfc_array_l2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
}
diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c
index f489091774d..25b6f17c6ab 100644
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -102,11 +102,7 @@ any_l4 (gfc_array_l4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
}
diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c
index a22923c0c61..1c2838e110f 100644
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -102,11 +102,7 @@ any_l8 (gfc_array_l8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
}
diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c
index 545ce6537bf..ddcca9d7385 100644
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -102,11 +102,7 @@ count_16_l (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c
index fd95964534f..046e91dfa5c 100644
--- a/libgfortran/generated/count_1_l.c
+++ b/libgfortran/generated/count_1_l.c
@@ -102,11 +102,7 @@ count_1_l (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c
index 63512580e61..78a4fbf776c 100644
--- a/libgfortran/generated/count_2_l.c
+++ b/libgfortran/generated/count_2_l.c
@@ -102,11 +102,7 @@ count_2_l (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c
index 44e7d68b2a4..a5aef43b3a6 100644
--- a/libgfortran/generated/count_4_l.c
+++ b/libgfortran/generated/count_4_l.c
@@ -102,11 +102,7 @@ count_4_l (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c
index 4f4d82b5d62..a4533b62440 100644
--- a/libgfortran/generated/count_8_l.c
+++ b/libgfortran/generated/count_8_l.c
@@ -102,11 +102,7 @@ count_8_l (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/findloc1_c10.c b/libgfortran/generated/findloc1_c10.c
index 0b7905a101c..fa68971ff38 100644
--- a/libgfortran/generated/findloc1_c10.c
+++ b/libgfortran/generated/findloc1_c10.c
@@ -105,11 +105,7 @@ findloc1_c10 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_c10 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_c10 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_c16.c b/libgfortran/generated/findloc1_c16.c
index 1cbe1fc5b26..13e2209dc32 100644
--- a/libgfortran/generated/findloc1_c16.c
+++ b/libgfortran/generated/findloc1_c16.c
@@ -105,11 +105,7 @@ findloc1_c16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_c16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_c16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_c17.c b/libgfortran/generated/findloc1_c17.c
index fea16286bf8..03c651e9c19 100644
--- a/libgfortran/generated/findloc1_c17.c
+++ b/libgfortran/generated/findloc1_c17.c
@@ -105,11 +105,7 @@ findloc1_c17 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_c17 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_c17 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_c4.c b/libgfortran/generated/findloc1_c4.c
index 2c800aa4a77..6c3fe7cd537 100644
--- a/libgfortran/generated/findloc1_c4.c
+++ b/libgfortran/generated/findloc1_c4.c
@@ -105,11 +105,7 @@ findloc1_c4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_c4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_c4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_c8.c b/libgfortran/generated/findloc1_c8.c
index 9f14e631c9e..2b4b84b522c 100644
--- a/libgfortran/generated/findloc1_c8.c
+++ b/libgfortran/generated/findloc1_c8.c
@@ -105,11 +105,7 @@ findloc1_c8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_c8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_c8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_i1.c b/libgfortran/generated/findloc1_i1.c
index 90896ac92a6..5175198a295 100644
--- a/libgfortran/generated/findloc1_i1.c
+++ b/libgfortran/generated/findloc1_i1.c
@@ -105,11 +105,7 @@ findloc1_i1 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_i1 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_i1 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_i16.c b/libgfortran/generated/findloc1_i16.c
index 699320dffcd..c3fcf8b5a2c 100644
--- a/libgfortran/generated/findloc1_i16.c
+++ b/libgfortran/generated/findloc1_i16.c
@@ -105,11 +105,7 @@ findloc1_i16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_i16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_i16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_i2.c b/libgfortran/generated/findloc1_i2.c
index d3ebdab8f23..c00f7b5c244 100644
--- a/libgfortran/generated/findloc1_i2.c
+++ b/libgfortran/generated/findloc1_i2.c
@@ -105,11 +105,7 @@ findloc1_i2 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_i2 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_i2 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_i4.c b/libgfortran/generated/findloc1_i4.c
index e030e6bee60..d1d0247b656 100644
--- a/libgfortran/generated/findloc1_i4.c
+++ b/libgfortran/generated/findloc1_i4.c
@@ -105,11 +105,7 @@ findloc1_i4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_i4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_i4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_i8.c b/libgfortran/generated/findloc1_i8.c
index 678e6516105..02f219bcc1e 100644
--- a/libgfortran/generated/findloc1_i8.c
+++ b/libgfortran/generated/findloc1_i8.c
@@ -105,11 +105,7 @@ findloc1_i8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_i8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_i8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_r10.c b/libgfortran/generated/findloc1_r10.c
index b416fdd0e00..1b824c7d78b 100644
--- a/libgfortran/generated/findloc1_r10.c
+++ b/libgfortran/generated/findloc1_r10.c
@@ -105,11 +105,7 @@ findloc1_r10 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_r10 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_r10 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_r16.c b/libgfortran/generated/findloc1_r16.c
index d03b34fbc0b..9a42849c989 100644
--- a/libgfortran/generated/findloc1_r16.c
+++ b/libgfortran/generated/findloc1_r16.c
@@ -105,11 +105,7 @@ findloc1_r16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_r16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_r16 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_r17.c b/libgfortran/generated/findloc1_r17.c
index 2b72e90506a..7b95da2b6e7 100644
--- a/libgfortran/generated/findloc1_r17.c
+++ b/libgfortran/generated/findloc1_r17.c
@@ -105,11 +105,7 @@ findloc1_r17 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_r17 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_r17 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_r4.c b/libgfortran/generated/findloc1_r4.c
index fa216cca481..8b527728cb0 100644
--- a/libgfortran/generated/findloc1_r4.c
+++ b/libgfortran/generated/findloc1_r4.c
@@ -105,11 +105,7 @@ findloc1_r4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_r4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_r4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_r8.c b/libgfortran/generated/findloc1_r8.c
index 7f1e044f8e1..0ac3fd6e73a 100644
--- a/libgfortran/generated/findloc1_r8.c
+++ b/libgfortran/generated/findloc1_r8.c
@@ -105,11 +105,7 @@ findloc1_r8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -293,11 +289,7 @@ mfindloc1_r8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -466,11 +458,7 @@ sfindloc1_r8 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_s1.c b/libgfortran/generated/findloc1_s1.c
index 2fb81c414af..85b13bd7c5f 100644
--- a/libgfortran/generated/findloc1_s1.c
+++ b/libgfortran/generated/findloc1_s1.c
@@ -107,11 +107,7 @@ findloc1_s1 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -295,11 +291,7 @@ mfindloc1_s1 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -468,11 +460,7 @@ sfindloc1_s1 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/findloc1_s4.c b/libgfortran/generated/findloc1_s4.c
index 641ca7fa58a..7b5a020d314 100644
--- a/libgfortran/generated/findloc1_s4.c
+++ b/libgfortran/generated/findloc1_s4.c
@@ -107,11 +107,7 @@ findloc1_s4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -295,11 +291,7 @@ mfindloc1_s4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -468,11 +460,7 @@ sfindloc1_s4 (gfc_array_index_type * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c
index 44ccbce270a..335eec824bc 100644
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -106,12 +106,7 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -465,11 +456,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c
index 98deeed4a4a..663ebfde0d1 100644
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -106,12 +106,7 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -465,11 +456,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c
index 9ed8079c2ef..e78b408ad9c 100644
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -106,12 +106,7 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -465,11 +456,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c
index 6e5c4a80ae5..aff64195d39 100644
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -106,12 +106,7 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -465,11 +456,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c
index 7eddce7f211..4b3681321a6 100644
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -106,12 +106,7 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -465,11 +456,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c
index 43ec43ee89b..d3723314fdf 100644
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -106,12 +106,7 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -465,11 +456,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c
index d5a30607d99..68509b72e3b 100644
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -106,12 +106,7 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -465,11 +456,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c
index 4086bd1dbd2..542879a2caf 100644
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -106,12 +106,7 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -465,11 +456,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c
index 7076f0c4c3b..e131066e1fa 100644
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -106,12 +106,7 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -465,11 +456,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c
index a648fe8c45f..9dcfe0d8a4f 100644
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -106,12 +106,7 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -465,11 +456,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c
index 26144505efe..27343ba8490 100644
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -106,12 +106,7 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -465,11 +456,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c
index 165a1a81418..507032637fb 100644
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -106,12 +106,7 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -465,11 +456,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c
index e2ba668a562..87f511e702b 100644
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -106,12 +106,7 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -465,11 +456,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c
index c5c74c2e1d4..c157743cc7c 100644
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -106,12 +106,7 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -465,11 +456,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c
index aebc4f05833..ce3134208f7 100644
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -106,12 +106,7 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -465,11 +456,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c
index 66ac5f3cbf4..0705f5b6aa9 100644
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -109,12 +109,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c
index 445a4c4e53b..029244da289 100644
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -109,12 +109,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c
index ebae5ad552a..bf5ce1f1e64 100644
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -109,12 +109,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c
index 5e1019c119a..ec6532dba3a 100644
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -109,12 +109,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c
index 8c1a34bc213..1d54a8fab9b 100644
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -109,12 +109,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c
index 602347a2db7..8c84667270d 100644
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -109,12 +109,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c
index 56b3130d698..19d8a238996 100644
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -109,12 +109,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c
index 771c595c166..250a78cdde9 100644
--- a/libgfortran/generated/maxloc1_16_r17.c
+++ b/libgfortran/generated/maxloc1_16_r17.c
@@ -109,12 +109,7 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c
index ba3273f84fa..d8f51853c3d 100644
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -109,12 +109,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c
index 916c6bbb0da..b86491d6a32 100644
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -109,12 +109,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -536,11 +527,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c
index 8032ed0c545..fc162d9e9aa 100644
--- a/libgfortran/generated/maxloc1_16_s1.c
+++ b/libgfortran/generated/maxloc1_16_s1.c
@@ -121,12 +121,7 @@ maxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -502,11 +493,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c
index 15b6af6032e..5cb2500cc32 100644
--- a/libgfortran/generated/maxloc1_16_s4.c
+++ b/libgfortran/generated/maxloc1_16_s4.c
@@ -121,12 +121,7 @@ maxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -502,11 +493,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c
index 3e90849cbe3..127ab7e650d 100644
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -109,12 +109,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c
index d41e3567468..58c6868b141 100644
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -109,12 +109,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c
index 5a931197e0b..efafb979825 100644
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -109,12 +109,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c
index 5eba4baa0f1..ef69e696ca0 100644
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -109,12 +109,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c
index f1293580afa..c80e23c3e28 100644
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -109,12 +109,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c
index 163b306ba70..01648273521 100644
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -109,12 +109,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c
index cbde21450bc..ba37d0a9843 100644
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -109,12 +109,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c
index 24477055a4a..bae0b1c67cc 100644
--- a/libgfortran/generated/maxloc1_4_r17.c
+++ b/libgfortran/generated/maxloc1_4_r17.c
@@ -109,12 +109,7 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c
index 1ca7d7a8f09..5083b0d5051 100644
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -109,12 +109,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index 41b42fcae51..0034e0e3b05 100644
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -109,12 +109,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -536,11 +527,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c
index c7a967fe440..43862b9f482 100644
--- a/libgfortran/generated/maxloc1_4_s1.c
+++ b/libgfortran/generated/maxloc1_4_s1.c
@@ -121,12 +121,7 @@ maxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -502,11 +493,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c
index 68311d27d1e..7ffdb4beb57 100644
--- a/libgfortran/generated/maxloc1_4_s4.c
+++ b/libgfortran/generated/maxloc1_4_s4.c
@@ -121,12 +121,7 @@ maxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -502,11 +493,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c
index 229bb97c357..fb1c03ea5ca 100644
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -109,12 +109,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c
index 61b2c2c2ace..eafa7758ba3 100644
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -109,12 +109,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c
index 79386822e23..ce2f4cbb216 100644
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -109,12 +109,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c
index 6c92bde7499..287c57fd54e 100644
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -109,12 +109,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c
index 25efec05793..491df03e9a8 100644
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -109,12 +109,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c
index 5de342dc9c0..a2dea45d80a 100644
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -109,12 +109,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c
index 57e53d43225..50401952769 100644
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -109,12 +109,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c
index 0e108aa37d9..fa81227459d 100644
--- a/libgfortran/generated/maxloc1_8_r17.c
+++ b/libgfortran/generated/maxloc1_8_r17.c
@@ -109,12 +109,7 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c
index f8d3305b898..417056ae8f2 100644
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -109,12 +109,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c
index 74119b89aea..c7f71b56630 100644
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -109,12 +109,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -328,11 +323,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -536,11 +527,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c
index 6b905eb5995..a3f841a5486 100644
--- a/libgfortran/generated/maxloc1_8_s1.c
+++ b/libgfortran/generated/maxloc1_8_s1.c
@@ -121,12 +121,7 @@ maxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mmaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -502,11 +493,7 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c
index 5bc8ce4ffbd..1de13f4e2f1 100644
--- a/libgfortran/generated/maxloc1_8_s4.c
+++ b/libgfortran/generated/maxloc1_8_s4.c
@@ -121,12 +121,7 @@ maxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -502,11 +493,7 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxval1_s1.c b/libgfortran/generated/maxval1_s1.c
index d9094913e86..3ec3e22cb93 100644
--- a/libgfortran/generated/maxval1_s1.c
+++ b/libgfortran/generated/maxval1_s1.c
@@ -121,12 +121,7 @@ maxval1_s1 (gfc_array_s1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -317,11 +312,7 @@ mmaxval1_s1 (gfc_array_s1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
@@ -495,11 +486,7 @@ smaxval1_s1 (gfc_array_s1 * const restrict retarray,
* string_len;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
}
diff --git a/libgfortran/generated/maxval1_s4.c b/libgfortran/generated/maxval1_s4.c
index ab1b33ad4a3..be84fd476fb 100644
--- a/libgfortran/generated/maxval1_s4.c
+++ b/libgfortran/generated/maxval1_s4.c
@@ -121,12 +121,7 @@ maxval1_s4 (gfc_array_s4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -317,11 +312,7 @@ mmaxval1_s4 (gfc_array_s4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
@@ -495,11 +486,7 @@ smaxval1_s4 (gfc_array_s4 * const restrict retarray,
* string_len;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
}
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c
index 11c75d21616..d7d35c8bf2d 100644
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -106,12 +106,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -507,11 +498,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c
index 8608393cd0d..6999f015b36 100644
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -106,12 +106,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -507,11 +498,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c
index e722773120c..97f0088f185 100644
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -106,12 +106,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -507,11 +498,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c
index 0d5401153c8..5bbaffbe383 100644
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -106,12 +106,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -507,11 +498,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c
index 5a15f768b9d..2996c40c5d7 100644
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -106,12 +106,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -507,11 +498,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c
index aa781b9a4b0..a2701a81f97 100644
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -106,12 +106,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
@@ -507,11 +498,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
}
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c
index 1dfc0514907..02db24e4956 100644
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -106,12 +106,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
@@ -507,11 +498,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
}
diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c
index 50e4614a9d1..c79154aa7bb 100644
--- a/libgfortran/generated/maxval_r17.c
+++ b/libgfortran/generated/maxval_r17.c
@@ -106,12 +106,7 @@ maxval_r17 (gfc_array_r17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
@@ -507,11 +498,7 @@ smaxval_r17 (gfc_array_r17 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
}
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c
index c3f03038b6a..19353d2db65 100644
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -106,12 +106,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
@@ -507,11 +498,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
}
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index 9954a3f8c66..27dbbf3d84b 100644
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -106,12 +106,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
@@ -507,11 +498,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
}
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c
index ab16257db2f..d0b516fa4de 100644
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -109,12 +109,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c
index 98bd80a0978..93826df33ce 100644
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -109,12 +109,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c
index 0351f284cff..89e6b0406a7 100644
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -109,12 +109,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c
index 469d9a544a6..439ae14e269 100644
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -109,12 +109,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c
index f027f240ccf..5971f5af6ae 100644
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -109,12 +109,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c
index fa019e8518a..12e5c64e94d 100644
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -109,12 +109,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c
index b588aebd07d..716992e58e9 100644
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -109,12 +109,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c
index c3df2151e43..3b27ba55f52 100644
--- a/libgfortran/generated/minloc1_16_r17.c
+++ b/libgfortran/generated/minloc1_16_r17.c
@@ -109,12 +109,7 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c
index 4ba9e19d6cc..f35f5906dc6 100644
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -109,12 +109,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c
index 9dcd143b1e4..e1433e7e94e 100644
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -109,12 +109,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -546,11 +537,7 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c
index d7bbecf0bbd..2211b905cd1 100644
--- a/libgfortran/generated/minloc1_16_s1.c
+++ b/libgfortran/generated/minloc1_16_s1.c
@@ -121,12 +121,7 @@ minloc1_16_s1 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -502,11 +493,7 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c
index 860abd58a8d..ab77ceb8323 100644
--- a/libgfortran/generated/minloc1_16_s4.c
+++ b/libgfortran/generated/minloc1_16_s4.c
@@ -121,12 +121,7 @@ minloc1_16_s4 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -502,11 +493,7 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c
index a970851c773..d5868f50136 100644
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -109,12 +109,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c
index 9df9e185f3f..152918f8f4a 100644
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -109,12 +109,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c
index ad74b523c37..5271f1edcab 100644
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -109,12 +109,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c
index a8a63fb0a8b..a9cdad7a1d1 100644
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -109,12 +109,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c
index fbecd43fa1a..8f02fefe82c 100644
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -109,12 +109,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c
index 154cc016d0b..4e2f8b75c2f 100644
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -109,12 +109,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c
index 6ee86021840..0cd5a1d07f3 100644
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -109,12 +109,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c
index c2cdfbc88c6..46e816ae172 100644
--- a/libgfortran/generated/minloc1_4_r17.c
+++ b/libgfortran/generated/minloc1_4_r17.c
@@ -109,12 +109,7 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c
index f0a805fdf75..421937dd85a 100644
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -109,12 +109,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c
index 97dbb15e824..304495ae215 100644
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -109,12 +109,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -546,11 +537,7 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c
index 1d3bfbdef15..2d30d7d39bf 100644
--- a/libgfortran/generated/minloc1_4_s1.c
+++ b/libgfortran/generated/minloc1_4_s1.c
@@ -121,12 +121,7 @@ minloc1_4_s1 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -502,11 +493,7 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c
index cfdff545f32..4cf8571c8d3 100644
--- a/libgfortran/generated/minloc1_4_s4.c
+++ b/libgfortran/generated/minloc1_4_s4.c
@@ -121,12 +121,7 @@ minloc1_4_s4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -502,11 +493,7 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c
index 0cccb4f8186..4e642d09875 100644
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -109,12 +109,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c
index 6c66f84d68e..0875435c4d6 100644
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -109,12 +109,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c
index ea24ead4b4a..e5d3d5a91bd 100644
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -109,12 +109,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c
index b55bc480bf5..cbde677864f 100644
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -109,12 +109,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c
index 44b6107cc26..141f0c1d441 100644
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -109,12 +109,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c
index b093b3f6ad0..d617408f420 100644
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -109,12 +109,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c
index 7c660c828ac..95158f99c3c 100644
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -109,12 +109,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c
index f9c95330b32..6a27faa9e82 100644
--- a/libgfortran/generated/minloc1_8_r17.c
+++ b/libgfortran/generated/minloc1_8_r17.c
@@ -109,12 +109,7 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c
index b0956bdd81a..0ccecd369e4 100644
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -109,12 +109,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index da96e942f2d..f9c8fc57743 100644
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -109,12 +109,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -338,11 +333,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -546,11 +537,7 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c
index 1f091780339..f9e5f9ec05f 100644
--- a/libgfortran/generated/minloc1_8_s1.c
+++ b/libgfortran/generated/minloc1_8_s1.c
@@ -121,12 +121,7 @@ minloc1_8_s1 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -502,11 +493,7 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c
index 5a04345e0a9..15c98988307 100644
--- a/libgfortran/generated/minloc1_8_s4.c
+++ b/libgfortran/generated/minloc1_8_s4.c
@@ -121,12 +121,7 @@ minloc1_8_s4 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -321,11 +316,7 @@ mminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -502,11 +493,7 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minval1_s1.c b/libgfortran/generated/minval1_s1.c
index 60f65fd9439..a6397a83bdc 100644
--- a/libgfortran/generated/minval1_s1.c
+++ b/libgfortran/generated/minval1_s1.c
@@ -121,12 +121,7 @@ minval1_s1 (gfc_array_s1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -317,11 +312,7 @@ mminval1_s1 (gfc_array_s1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
@@ -495,11 +486,7 @@ sminval1_s1 (gfc_array_s1 * const restrict retarray,
* string_len;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
}
diff --git a/libgfortran/generated/minval1_s4.c b/libgfortran/generated/minval1_s4.c
index e8252991a18..247446d6398 100644
--- a/libgfortran/generated/minval1_s4.c
+++ b/libgfortran/generated/minval1_s4.c
@@ -121,12 +121,7 @@ minval1_s4 (gfc_array_s4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -317,11 +312,7 @@ mminval1_s4 (gfc_array_s4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
@@ -495,11 +486,7 @@ sminval1_s4 (gfc_array_s4 * const restrict retarray,
* string_len;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
}
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c
index 352380d8a12..326a72aee80 100644
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -106,12 +106,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -507,11 +498,7 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c
index a9bd75070fd..744d4a31577 100644
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -106,12 +106,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -507,11 +498,7 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c
index 990b47adafe..65c425a3170 100644
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -106,12 +106,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -507,11 +498,7 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c
index 237242cbf1c..03c32a533d0 100644
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -106,12 +106,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -507,11 +498,7 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index 61f26acf2b5..6405fe72877 100644
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -106,12 +106,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -507,11 +498,7 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c
index 63f21e966d4..624dd34b56c 100644
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -106,12 +106,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
@@ -507,11 +498,7 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
}
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c
index ae9b1223b8e..9e0c078b3d8 100644
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -106,12 +106,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
@@ -507,11 +498,7 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
}
diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c
index fc1b6ba4e9b..bc611e3fe9e 100644
--- a/libgfortran/generated/minval_r17.c
+++ b/libgfortran/generated/minval_r17.c
@@ -106,12 +106,7 @@ minval_r17 (gfc_array_r17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
@@ -507,11 +498,7 @@ sminval_r17 (gfc_array_r17 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
}
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c
index 010fb9e5a09..d7569589081 100644
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -106,12 +106,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
@@ -507,11 +498,7 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
}
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c
index c9a6b0d9da8..222f9480001 100644
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -106,12 +106,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -314,11 +309,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
@@ -507,11 +498,7 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
}
diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c
index c844ade8b21..8afad2fe16e 100644
--- a/libgfortran/generated/norm2_r10.c
+++ b/libgfortran/generated/norm2_r10.c
@@ -109,12 +109,7 @@ norm2_r10 (gfc_array_r10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c
index 0d4f8deb15d..88ed972d75f 100644
--- a/libgfortran/generated/norm2_r16.c
+++ b/libgfortran/generated/norm2_r16.c
@@ -117,12 +117,7 @@ norm2_r16 (gfc_array_r16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/norm2_r17.c b/libgfortran/generated/norm2_r17.c
index 5a69e52bcd0..9cef5cb3cc0 100644
--- a/libgfortran/generated/norm2_r17.c
+++ b/libgfortran/generated/norm2_r17.c
@@ -115,12 +115,7 @@ norm2_r17 (gfc_array_r17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c
index 2e023f08668..16e0e962f74 100644
--- a/libgfortran/generated/norm2_r4.c
+++ b/libgfortran/generated/norm2_r4.c
@@ -109,12 +109,7 @@ norm2_r4 (gfc_array_r4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c
index 5494eaef284..5462f6186d2 100644
--- a/libgfortran/generated/norm2_r8.c
+++ b/libgfortran/generated/norm2_r8.c
@@ -109,12 +109,7 @@ norm2_r8 (gfc_array_r8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c
index e8ee6bd3bac..731b862091a 100644
--- a/libgfortran/generated/parity_l1.c
+++ b/libgfortran/generated/parity_l1.c
@@ -106,12 +106,7 @@ parity_l1 (gfc_array_l1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c
index 03707a234ad..3dd883e328b 100644
--- a/libgfortran/generated/parity_l16.c
+++ b/libgfortran/generated/parity_l16.c
@@ -106,12 +106,7 @@ parity_l16 (gfc_array_l16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c
index 00aa0245ed0..90cc272ffe0 100644
--- a/libgfortran/generated/parity_l2.c
+++ b/libgfortran/generated/parity_l2.c
@@ -106,12 +106,7 @@ parity_l2 (gfc_array_l2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c
index 08a1e433ad9..108755982bf 100644
--- a/libgfortran/generated/parity_l4.c
+++ b/libgfortran/generated/parity_l4.c
@@ -106,12 +106,7 @@ parity_l4 (gfc_array_l4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c
index a55e221c72c..8e3ddaae666 100644
--- a/libgfortran/generated/parity_l8.c
+++ b/libgfortran/generated/parity_l8.c
@@ -106,12 +106,7 @@ parity_l8 (gfc_array_l8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c
index 7b97f6b5161..6d7a5b2fb4e 100644
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -106,12 +106,7 @@ product_c10 (gfc_array_c10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
@@ -465,11 +456,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
}
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c
index 202b90ac288..fbdb26ad353 100644
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -106,12 +106,7 @@ product_c16 (gfc_array_c16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
@@ -465,11 +456,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
}
diff --git a/libgfortran/generated/product_c17.c b/libgfortran/generated/product_c17.c
index 49e87391315..8382d5d3735 100644
--- a/libgfortran/generated/product_c17.c
+++ b/libgfortran/generated/product_c17.c
@@ -106,12 +106,7 @@ product_c17 (gfc_array_c17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_c17 (gfc_array_c17 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
@@ -465,11 +456,7 @@ sproduct_c17 (gfc_array_c17 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
}
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c
index 513557c740e..1d255c04b74 100644
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -106,12 +106,7 @@ product_c4 (gfc_array_c4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
@@ -465,11 +456,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
}
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c
index 5de40c6e43c..50e2ca720a0 100644
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -106,12 +106,7 @@ product_c8 (gfc_array_c8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
@@ -465,11 +456,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
}
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c
index 0502bdfa845..0a2d5a5643e 100644
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -106,12 +106,7 @@ product_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -465,11 +456,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c
index 41f7cb5fde0..7bcf1c06ead 100644
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -106,12 +106,7 @@ product_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -465,11 +456,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c
index cfd5291634d..9dc4ce6dbfd 100644
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -106,12 +106,7 @@ product_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -465,11 +456,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c
index 9482e3fd64e..db623ed2150 100644
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -106,12 +106,7 @@ product_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -465,11 +456,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c
index 38ae86199be..9c5db3028d2 100644
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -106,12 +106,7 @@ product_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -465,11 +456,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c
index 63fb76dfd30..800d71b213c 100644
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -106,12 +106,7 @@ product_r10 (gfc_array_r10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
@@ -465,11 +456,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
}
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c
index d6a67c8c68c..22712fb156a 100644
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -106,12 +106,7 @@ product_r16 (gfc_array_r16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
@@ -465,11 +456,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
}
diff --git a/libgfortran/generated/product_r17.c b/libgfortran/generated/product_r17.c
index c927057225a..d9ed706f114 100644
--- a/libgfortran/generated/product_r17.c
+++ b/libgfortran/generated/product_r17.c
@@ -106,12 +106,7 @@ product_r17 (gfc_array_r17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_r17 (gfc_array_r17 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
@@ -465,11 +456,7 @@ sproduct_r17 (gfc_array_r17 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
}
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c
index 8167b8215f1..0daf85026a9 100644
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -106,12 +106,7 @@ product_r4 (gfc_array_r4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
@@ -465,11 +456,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
}
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c
index 2c0a231c3f7..755e4fe177a 100644
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -106,12 +106,7 @@ product_r8 (gfc_array_r8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
@@ -465,11 +456,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
}
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c
index b3c8b790c9d..bb72b053fcb 100644
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -106,12 +106,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
@@ -465,11 +456,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
}
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c
index aa912e7d659..ecce9b37dfd 100644
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -106,12 +106,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
@@ -465,11 +456,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
}
diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c
index ea6514ae08e..13cb6430490 100644
--- a/libgfortran/generated/sum_c17.c
+++ b/libgfortran/generated/sum_c17.c
@@ -106,12 +106,7 @@ sum_c17 (gfc_array_c17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_c17 (gfc_array_c17 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
@@ -465,11 +456,7 @@ ssum_c17 (gfc_array_c17 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
}
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c
index 6c02d6381f2..e3f4de7b282 100644
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -106,12 +106,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
@@ -465,11 +456,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
}
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c
index eb4641d447f..ab868fac6eb 100644
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -106,12 +106,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
@@ -465,11 +456,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
}
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c
index 27d80284296..f8d4e890e9a 100644
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -106,12 +106,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_i1 (gfc_array_i1 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
@@ -465,11 +456,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
}
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c
index 592ae925493..96896e710b1 100644
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -106,12 +106,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_i16 (gfc_array_i16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
@@ -465,11 +456,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
}
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c
index 54d91ab1a43..a9d3643e579 100644
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -106,12 +106,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_i2 (gfc_array_i2 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
@@ -465,11 +456,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
}
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c
index aa27839110d..74a2b5ce3e2 100644
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -106,12 +106,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_i4 (gfc_array_i4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
@@ -465,11 +456,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
}
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c
index a7836ed99f4..4fc6af67706 100644
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -106,12 +106,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_i8 (gfc_array_i8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
@@ -465,11 +456,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
}
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c
index 5efe6a2bce4..cc03d0a7cc1 100644
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -106,12 +106,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
@@ -465,11 +456,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
}
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c
index feedb4a5139..75fe19f2b33 100644
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -106,12 +106,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
@@ -465,11 +456,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
}
diff --git a/libgfortran/generated/sum_r17.c b/libgfortran/generated/sum_r17.c
index fdbf84783a9..a245b843472 100644
--- a/libgfortran/generated/sum_r17.c
+++ b/libgfortran/generated/sum_r17.c
@@ -106,12 +106,7 @@ sum_r17 (gfc_array_r17 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_r17 (gfc_array_r17 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
@@ -465,11 +456,7 @@ ssum_r17 (gfc_array_r17 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
}
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c
index 4a7ab4a6c1a..105ba0fccc2 100644
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -106,12 +106,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
@@ -465,11 +456,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
}
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c
index a83dd93348f..e5e71d94d94 100644
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -106,12 +106,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -300,11 +295,7 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
@@ -465,11 +456,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
}
diff --git a/libgfortran/m4/ifindloc1.m4 b/libgfortran/m4/ifindloc1.m4
index a1c5be6848d..68a39f326d4 100644
--- a/libgfortran/m4/ifindloc1.m4
+++ b/libgfortran/m4/ifindloc1.m4
@@ -97,11 +97,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -275,11 +271,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
@@ -438,11 +430,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
}
else
{
diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4
index 19f665f50ad..9307b900d91 100644
--- a/libgfortran/m4/ifunction-s.m4
+++ b/libgfortran/m4/ifunction-s.m4
@@ -109,12 +109,7 @@ void
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -302,11 +297,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
@@ -466,11 +457,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
}
diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4
index 5d9870e8640..8cb5d1172cc 100644
--- a/libgfortran/m4/ifunction-s2.m4
+++ b/libgfortran/m4/ifunction-s2.m4
@@ -111,12 +111,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -303,11 +298,7 @@ void
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
@@ -467,11 +458,7 @@ void
* string_len;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
}
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
index 480649cf691..abc15b430ab 100644
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -96,12 +96,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
-
- }
+ return;
}
else
{
@@ -290,11 +285,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
retarray->dtype.rank = rank;
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
@@ -454,11 +445,7 @@ void
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
}
diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4
index 0568387e343..d33eb44e373 100644
--- a/libgfortran/m4/ifunction_logical.m4
+++ b/libgfortran/m4/ifunction_logical.m4
@@ -92,11 +92,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
if (alloc_size == 0)
- {
- /* Make sure we have a zero-sized array. */
- GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
- return;
- }
+ return;
else
retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
}
--
2.42.0
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371]
2023-11-06 11:43 ` [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371] Mikael Morin
@ 2023-11-06 18:12 ` Harald Anlauf
2023-11-06 18:57 ` Mikael Morin
0 siblings, 1 reply; 8+ messages in thread
From: Harald Anlauf @ 2023-11-06 18:12 UTC (permalink / raw)
To: Mikael Morin, gcc-patches, fortran
Hi Mikael,
Am 06.11.23 um 12:43 schrieb Mikael Morin:
> Remove the early return present in function templates for transformational
> functions doing a (masked) reduction of an array along a dimension.
> This early return, which triggered if the extent in the reduction dimension
> was zero, was wrong because even if the reduction operation degenerates to
> a constant value in that case, one has to loop anyway along the other
> dimensions to initialize every element of the resulting array with that
> constant value.
>
> The offending piece of code was present in several places, and this removes
> them all. Namely, the impacted m4 files are ifunction.m4 for regular
> functions and types, ifunction-s.m4 for character minloc and maxloc, and
> ifunction-s2.m4 for character minval and maxval.
I wonder if the correct fix would be to replace (instead of deleting)
> diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
> index c64217ec5db..480649cf691 100644
> --- a/libgfortran/m4/ifunction.m4
> +++ b/libgfortran/m4/ifunction.m4
> @@ -232,8 +232,6 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
> }
>
> len = GFC_DESCRIPTOR_EXTENT(array,dim);
> - if (len <= 0)
> - return;
>
> mbase = mask->base_addr;
>
by the following:
if (len < 0)
len = 0;
See ifunction.m4, lines 56ff, which check if the result of
len = GFC_DESCRIPTOR_EXTENT(array,dim);
is negative. I haven't tried to create a testcase, though.
Similarly for the other templates.
Thanks,
Harald
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371]
2023-11-06 11:43 ` [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371] Mikael Morin
@ 2023-11-06 18:20 ` Harald Anlauf
2023-11-06 19:19 ` Mikael Morin
0 siblings, 1 reply; 8+ messages in thread
From: Harald Anlauf @ 2023-11-06 18:20 UTC (permalink / raw)
To: Mikael Morin, gcc-patches, fortran
Hi Mikael,
Am 06.11.23 um 12:43 schrieb Mikael Morin:
> Remove the forced overwrite of the first dimension of the result array
> descriptor to set it to zero extent, in the function templates for
> transformational functions doing an array reduction along a dimension. This
> overwrite, which happened before early returning in case the result array
> was empty, was wrong because an array may have a non-zero extent in the
> first dimension and still be empty if it has a zero extent in a higher
> dimension. Overwriting the dimension was resulting in wrong array result
> upper bound for the first dimension in that case.
>
> The offending piece of code was present in several places, and this removes
> them all. More precisely, there is only one case to fix for logical
> reduction functions, and there are three cases for other reduction
> functions, corresponding to non-masked reduction, reduction with array mask,
> and reduction with scalar mask. The impacted m4 files are
> ifunction_logical.m4 for logical reduction functions, ifunction.m4 for
> regular functions and types, ifunction-s.m4 for character minloc and maxloc,
> ifunction-s2.m4 for character minval and maxval, and ifindloc1.m4 for
> findloc.
while your fix seems mechanical and correct, I wonder if you looked
at the following pre-existing irregularity which can be seen in
this snippet:
> diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
> index 480649cf691..abc15b430ab 100644
> --- a/libgfortran/m4/ifunction.m4
> +++ b/libgfortran/m4/ifunction.m4
> @@ -96,12 +96,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
>
> retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
> if (alloc_size == 0)
> - {
> - /* Make sure we have a zero-sized array. */
> - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
> - return;
> -
> - }
> + return;
> }
> else
> {
This is all enclosed in a block which has
if (retarray->base_addr == NULL)
but allocates and sets retarray->base_addr, while
> @@ -290,11 +285,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
> retarray->dtype.rank = rank;
>
> if (alloc_size == 0)
> - {
> - /* Make sure we have a zero-sized array. */
> - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
> - return;
> - }
> + return;
> else
> retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
>
and
> @@ -454,11 +445,7 @@ void
> alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
>
> if (alloc_size == 0)
> - {
> - /* Make sure we have a zero-sized array. */
> - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
> - return;
> - }
> + return;
> else
> retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
> }
do not set retarray->base_addr to non-NULL for alloc_size == 0.
Do you know if the first snippet can be safely rewritten to avoid
the (hopefully pointless) xmallocarray for alloc_size == 0?
Thanks,
Harald
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371]
2023-11-06 18:12 ` Harald Anlauf
@ 2023-11-06 18:57 ` Mikael Morin
0 siblings, 0 replies; 8+ messages in thread
From: Mikael Morin @ 2023-11-06 18:57 UTC (permalink / raw)
To: Harald Anlauf, Mikael Morin, gcc-patches, fortran
Le 06/11/2023 à 19:12, Harald Anlauf a écrit :
> Hi Mikael,
>
> Am 06.11.23 um 12:43 schrieb Mikael Morin:
>> Remove the early return present in function templates for
>> transformational
>> functions doing a (masked) reduction of an array along a dimension.
>> This early return, which triggered if the extent in the reduction
>> dimension
>> was zero, was wrong because even if the reduction operation
>> degenerates to
>> a constant value in that case, one has to loop anyway along the other
>> dimensions to initialize every element of the resulting array with that
>> constant value.
>>
>> The offending piece of code was present in several places, and this
>> removes
>> them all. Namely, the impacted m4 files are ifunction.m4 for regular
>> functions and types, ifunction-s.m4 for character minloc and maxloc, and
>> ifunction-s2.m4 for character minval and maxval.
>
> I wonder if the correct fix would be to replace (instead of deleting)
>
>> diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
>> index c64217ec5db..480649cf691 100644
>> --- a/libgfortran/m4/ifunction.m4
>> +++ b/libgfortran/m4/ifunction.m4
>> @@ -232,8 +232,6 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const
>> restrict retarray,
>> }
>>
>> len = GFC_DESCRIPTOR_EXTENT(array,dim);
>> - if (len <= 0)
>> - return;
>>
>> mbase = mask->base_addr;
>>
>
> by the following:
>
> if (len < 0)
> len = 0;
>
> See ifunction.m4, lines 56ff, which check if the result of
>
> len = GFC_DESCRIPTOR_EXTENT(array,dim);
>
> is negative. I haven't tried to create a testcase, though.
>
> Similarly for the other templates.
>
Yes, you're right. I think I won't try to create a testcase and will
just pick your suggestion which seems safer.
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371]
2023-11-06 18:20 ` Harald Anlauf
@ 2023-11-06 19:19 ` Mikael Morin
2023-11-06 20:03 ` Harald Anlauf
0 siblings, 1 reply; 8+ messages in thread
From: Mikael Morin @ 2023-11-06 19:19 UTC (permalink / raw)
To: Harald Anlauf, Mikael Morin, gcc-patches, fortran
Le 06/11/2023 à 19:20, Harald Anlauf a écrit :
> Hi Mikael,
>
> Am 06.11.23 um 12:43 schrieb Mikael Morin:
>> Remove the forced overwrite of the first dimension of the result array
>> descriptor to set it to zero extent, in the function templates for
>> transformational functions doing an array reduction along a
>> dimension. This
>> overwrite, which happened before early returning in case the result array
>> was empty, was wrong because an array may have a non-zero extent in the
>> first dimension and still be empty if it has a zero extent in a higher
>> dimension. Overwriting the dimension was resulting in wrong array result
>> upper bound for the first dimension in that case.
>>
>> The offending piece of code was present in several places, and this
>> removes
>> them all. More precisely, there is only one case to fix for logical
>> reduction functions, and there are three cases for other reduction
>> functions, corresponding to non-masked reduction, reduction with array
>> mask,
>> and reduction with scalar mask. The impacted m4 files are
>> ifunction_logical.m4 for logical reduction functions, ifunction.m4 for
>> regular functions and types, ifunction-s.m4 for character minloc and
>> maxloc,
>> ifunction-s2.m4 for character minval and maxval, and ifindloc1.m4 for
>> findloc.
>
> while your fix seems mechanical and correct, I wonder if you looked
> at the following pre-existing irregularity which can be seen in
> this snippet:
>
>> diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
>> index 480649cf691..abc15b430ab 100644
>> --- a/libgfortran/m4/ifunction.m4
>> +++ b/libgfortran/m4/ifunction.m4
>> @@ -96,12 +96,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const
>> restrict retarray,
>>
>> retarray->base_addr = xmallocarray (alloc_size, sizeof
>> (rtype_name));
>> if (alloc_size == 0)
>> - {
>> - /* Make sure we have a zero-sized array. */
>> - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
>> - return;
>> -
>> - }
>> + return;
>> }
>> else
>> {
>
> This is all enclosed in a block which has
> if (retarray->base_addr == NULL)
> but allocates and sets retarray->base_addr, while
>
>> @@ -290,11 +285,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const
>> restrict retarray,
>> retarray->dtype.rank = rank;
>>
>> if (alloc_size == 0)
>> - {
>> - /* Make sure we have a zero-sized array. */
>> - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
>> - return;
>> - }
>> + return;
>> else
>> retarray->base_addr = xmallocarray (alloc_size, sizeof
>> (rtype_name));
>>
>
> and
>
>> @@ -454,11 +445,7 @@ void
>> alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) *
>> extent[rank-1];
>>
>> if (alloc_size == 0)
>> - {
>> - /* Make sure we have a zero-sized array. */
>> - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
>> - return;
>> - }
>> + return;
>> else
>> retarray->base_addr = xmallocarray (alloc_size, sizeof
>> (rtype_name));
>> }
>
> do not set retarray->base_addr to non-NULL for alloc_size == 0.
>
> Do you know if the first snippet can be safely rewritten to avoid
> the (hopefully pointless) xmallocarray for alloc_size == 0?
>
This change to the testcase:
diff --git a/gcc/testsuite/gfortran.dg/bound_11.f90
b/gcc/testsuite/gfortran.dg/bound_11.f90
index 170eba4ddfd..2e96f843476 100644
--- a/gcc/testsuite/gfortran.dg/bound_11.f90
+++ b/gcc/testsuite/gfortran.dg/bound_11.f90
@@ -88,6 +88,7 @@ contains
m4 = .false.
i = 1
r = sum(a, dim=i)
+ if (.not. allocated(r)) stop 210
if (any(shape(r) /= (/ 3, 0, 7 /))) stop 211
if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 212
i = 2
@@ -104,6 +105,7 @@ contains
if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 218
i = 1
r = sum(a, dim=i, mask=m1)
+ if (.not. allocated(r)) stop 220
if (any(shape(r) /= (/ 3, 0, 7 /))) stop 221
if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 222
i = 2
@@ -120,6 +122,7 @@ contains
if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 228
i = 1
r = sum(a, dim=i, mask=m4)
+ if (.not. allocated(r)) stop 230
if (any(shape(r) /= (/ 3, 0, 7 /))) stop 231
if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 232
i = 2
gives me a FAIL with STOP 220 (or STOP 230 if the STOP 220 line is
commented); the first one with STOP 210 passes.
So it is the first snippet with the xmallocarray (which supports zero
values see memory.c) call that is the correct one.
Good catch, I will open a separate PR.
Mikael
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371]
2023-11-06 19:19 ` Mikael Morin
@ 2023-11-06 20:03 ` Harald Anlauf
0 siblings, 0 replies; 8+ messages in thread
From: Harald Anlauf @ 2023-11-06 20:03 UTC (permalink / raw)
To: Mikael Morin, Mikael Morin, gcc-patches, fortran
Hi Mikael,
Am 06.11.23 um 20:19 schrieb Mikael Morin:
>
> This change to the testcase:
>
> diff --git a/gcc/testsuite/gfortran.dg/bound_11.f90
> b/gcc/testsuite/gfortran.dg/bound_11.f90
> index 170eba4ddfd..2e96f843476 100644
> --- a/gcc/testsuite/gfortran.dg/bound_11.f90
> +++ b/gcc/testsuite/gfortran.dg/bound_11.f90
> @@ -88,6 +88,7 @@ contains
> m4 = .false.
> i = 1
> r = sum(a, dim=i)
> + if (.not. allocated(r)) stop 210
> if (any(shape(r) /= (/ 3, 0, 7 /))) stop 211
> if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 212
> i = 2
> @@ -104,6 +105,7 @@ contains
> if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 218
> i = 1
> r = sum(a, dim=i, mask=m1)
> + if (.not. allocated(r)) stop 220
> if (any(shape(r) /= (/ 3, 0, 7 /))) stop 221
> if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 222
> i = 2
> @@ -120,6 +122,7 @@ contains
> if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 228
> i = 1
> r = sum(a, dim=i, mask=m4)
> + if (.not. allocated(r)) stop 230
> if (any(shape(r) /= (/ 3, 0, 7 /))) stop 231
> if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 232
> i = 2
>
> gives me a FAIL with STOP 220 (or STOP 230 if the STOP 220 line is
> commented); the first one with STOP 210 passes.
> So it is the first snippet with the xmallocarray (which supports zero
> values see memory.c) call that is the correct one.
> Good catch, I will open a separate PR.
ah, now I see that the case of allocation of zero elements
always allocates one byte, which is needed for r.data to be
non-null.
Go ahead!
Harald
> Mikael
>
^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2023-11-06 20:03 UTC | newest]
Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-11-06 11:43 [PATCH 0/2] libgfortran: empty array fixes [PR112371] Mikael Morin
2023-11-06 11:43 ` [PATCH 1/2] libgfortran: Remove early return if extent is zero [PR112371] Mikael Morin
2023-11-06 18:12 ` Harald Anlauf
2023-11-06 18:57 ` Mikael Morin
2023-11-06 11:43 ` [PATCH 2/2] libgfortran: Remove empty array descriptor first dimension overwrite [PR112371] Mikael Morin
2023-11-06 18:20 ` Harald Anlauf
2023-11-06 19:19 ` Mikael Morin
2023-11-06 20:03 ` Harald Anlauf
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).