From: kargl Date: Fri, 1 Jun 2018 20:20:35 +0000 (+0000) Subject: 2018-06-01 Steven G. Kargl X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0bb0be204d3ac26ee9c4142a3be181569b3e79b7;p=thirdparty%2Fgcc.git 2018-06-01 Steven G. Kargl PR fortran/85816 PR fortran/85975 * libgfortran.h: Remove the GFC_DTYPE_COPY_SETRANK macro. * intrinsics/reshape_generic.c: Directly assign rank. * intrinsics/spread_generic.c: Ditto. * m4/iforeach-s.m4: Ditto. * m4/iforeach.m4: Ditto. * m4/ifunction-s.m4: Ditto. * m4/ifunction-s2.m4: Ditto. * m4/ifunction.m4: Ditto. * m4/ifunction_logical.m4: Ditto. * m4/reshape.m4: Ditto. * m4/spread.m4: Ditto. * generated/all_l1.c: Regenerated from m4 files. * generated/all_l16.c: Ditto. * generated/all_l2.c: Ditto. * generated/all_l4.c: Ditto. * generated/all_l8.c: Ditto. * generated/any_l1.c: Ditto. * generated/any_l16.c: Ditto. * generated/any_l2.c: Ditto. * generated/any_l4.c: Ditto. * generated/any_l8.c: Ditto. * generated/count_16_l.c: Ditto. * generated/count_1_l.c: Ditto. * generated/count_2_l.c: Ditto. * generated/count_4_l.c: Ditto. * generated/count_8_l.c: Ditto. * generated/iall_i1.c: Ditto. * generated/iall_i16.c: Ditto. * generated/iall_i2.c: Ditto. * generated/iall_i4.c: Ditto. * generated/iall_i8.c: Ditto. * generated/iany_i1.c: Ditto. * generated/iany_i16.c: Ditto. * generated/iany_i2.c: Ditto. * generated/iany_i4.c: Ditto. * generated/iany_i8.c: Ditto. * generated/iparity_i1.c: Ditto. * generated/iparity_i16.c: Ditto. * generated/iparity_i2.c: Ditto. * generated/iparity_i4.c: Ditto. * generated/iparity_i8.c: Ditto. * generated/maxloc0_16_i1.c: Ditto. * generated/maxloc0_16_i16.c: Ditto. * generated/maxloc0_16_i2.c: Ditto. * generated/maxloc0_16_i4.c: Ditto. * generated/maxloc0_16_i8.c: Ditto. * generated/maxloc0_16_r10.c: Ditto. * generated/maxloc0_16_r16.c: Ditto. * generated/maxloc0_16_r4.c: Ditto. * generated/maxloc0_16_r8.c: Ditto. * generated/maxloc0_16_s1.c: Ditto. * generated/maxloc0_16_s4.c: Ditto. * generated/maxloc0_4_i1.c: Ditto. * generated/maxloc0_4_i16.c: Ditto. * generated/maxloc0_4_i2.c: Ditto. * generated/maxloc0_4_i4.c: Ditto. * generated/maxloc0_4_i8.c: Ditto. * generated/maxloc0_4_r10.c: Ditto. * generated/maxloc0_4_r16.c: Ditto. * generated/maxloc0_4_r4.c: Ditto. * generated/maxloc0_4_r8.c: Ditto. * generated/maxloc0_4_s1.c: Ditto. * generated/maxloc0_4_s4.c: Ditto. * generated/maxloc0_8_i1.c: Ditto. * generated/maxloc0_8_i16.c: Ditto. * generated/maxloc0_8_i2.c: Ditto. * generated/maxloc0_8_i4.c: Ditto. * generated/maxloc0_8_i8.c: Ditto. * generated/maxloc0_8_r10.c: Ditto. * generated/maxloc0_8_r16.c: Ditto. * generated/maxloc0_8_r4.c: Ditto. * generated/maxloc0_8_r8.c: Ditto. * generated/maxloc0_8_s1.c: Ditto. * generated/maxloc0_8_s4.c: Ditto. * generated/maxloc1_16_i1.c: Ditto. * generated/maxloc1_16_i16.c: Ditto. * generated/maxloc1_16_i2.c: Ditto. * generated/maxloc1_16_i4.c: Ditto. * generated/maxloc1_16_i8.c: Ditto. * generated/maxloc1_16_r10.c: Ditto. * generated/maxloc1_16_r16.c: Ditto. * generated/maxloc1_16_r4.c: Ditto. * generated/maxloc1_16_r8.c: Ditto. * generated/maxloc1_16_s1.c: Ditto. * generated/maxloc1_16_s4.c: Ditto. * generated/maxloc1_4_i1.c: Ditto. * generated/maxloc1_4_i16.c: Ditto. * generated/maxloc1_4_i2.c: Ditto. * generated/maxloc1_4_i4.c: Ditto. * generated/maxloc1_4_i8.c: Ditto. * generated/maxloc1_4_r10.c: Ditto. * generated/maxloc1_4_r16.c: Ditto. * generated/maxloc1_4_r4.c: Ditto. * generated/maxloc1_4_r8.c: Ditto. * generated/maxloc1_4_s1.c: Ditto. * generated/maxloc1_4_s4.c: Ditto. * generated/maxloc1_8_i1.c: Ditto. * generated/maxloc1_8_i16.c: Ditto. * generated/maxloc1_8_i2.c: Ditto. * generated/maxloc1_8_i4.c: Ditto. * generated/maxloc1_8_i8.c: Ditto. * generated/maxloc1_8_r10.c: Ditto. * generated/maxloc1_8_r16.c: Ditto. * generated/maxloc1_8_r4.c: Ditto. * generated/maxloc1_8_r8.c: Ditto. * generated/maxloc1_8_s1.c: Ditto. * generated/maxloc1_8_s4.c: Ditto. * generated/maxval1_s1.c: Ditto. * generated/maxval1_s4.c: Ditto. * generated/maxval_i1.c: Ditto. * generated/maxval_i16.c: Ditto. * generated/maxval_i2.c: Ditto. * generated/maxval_i4.c: Ditto. * generated/maxval_i8.c: Ditto. * generated/maxval_r10.c: Ditto. * generated/maxval_r16.c: Ditto. * generated/maxval_r4.c: Ditto. * generated/maxval_r8.c: Ditto. * generated/minloc0_16_i1.c: Ditto. * generated/minloc0_16_i16.c: Ditto. * generated/minloc0_16_i2.c: Ditto. * generated/minloc0_16_i4.c: Ditto. * generated/minloc0_16_i8.c: Ditto. * generated/minloc0_16_r10.c: Ditto. * generated/minloc0_16_r16.c: Ditto. * generated/minloc0_16_r4.c: Ditto. * generated/minloc0_16_r8.c: Ditto. * generated/minloc0_16_s1.c: Ditto. * generated/minloc0_16_s4.c: Ditto. * generated/minloc0_4_i1.c: Ditto. * generated/minloc0_4_i16.c: Ditto. * generated/minloc0_4_i2.c: Ditto. * generated/minloc0_4_i4.c: Ditto. * generated/minloc0_4_i8.c: Ditto. * generated/minloc0_4_r10.c: Ditto. * generated/minloc0_4_r16.c: Ditto. * generated/minloc0_4_r4.c: Ditto. * generated/minloc0_4_r8.c: Ditto. * generated/minloc0_4_s1.c: Ditto. * generated/minloc0_4_s4.c: Ditto. * generated/minloc0_8_i1.c: Ditto. * generated/minloc0_8_i16.c: Ditto. * generated/minloc0_8_i2.c: Ditto. * generated/minloc0_8_i4.c: Ditto. * generated/minloc0_8_i8.c: Ditto. * generated/minloc0_8_r10.c: Ditto. * generated/minloc0_8_r16.c: Ditto. * generated/minloc0_8_r4.c: Ditto. * generated/minloc0_8_r8.c: Ditto. * generated/minloc0_8_s1.c: Ditto. * generated/minloc0_8_s4.c: Ditto. * generated/minloc1_16_i1.c: Ditto. * generated/minloc1_16_i16.c: Ditto. * generated/minloc1_16_i2.c: Ditto. * generated/minloc1_16_i4.c: Ditto. * generated/minloc1_16_i8.c: Ditto. * generated/minloc1_16_r10.c: Ditto. * generated/minloc1_16_r16.c: Ditto. * generated/minloc1_16_r4.c: Ditto. * generated/minloc1_16_r8.c: Ditto. * generated/minloc1_16_s1.c: Ditto. * generated/minloc1_16_s4.c: Ditto. * generated/minloc1_4_i1.c: Ditto. * generated/minloc1_4_i16.c: Ditto. * generated/minloc1_4_i2.c: Ditto. * generated/minloc1_4_i4.c: Ditto. * generated/minloc1_4_i8.c: Ditto. * generated/minloc1_4_r10.c: Ditto. * generated/minloc1_4_r16.c: Ditto. * generated/minloc1_4_r4.c: Ditto. * generated/minloc1_4_r8.c: Ditto. * generated/minloc1_4_s1.c: Ditto. * generated/minloc1_4_s4.c: Ditto. * generated/minloc1_8_i1.c: Ditto. * generated/minloc1_8_i16.c: Ditto. * generated/minloc1_8_i2.c: Ditto. * generated/minloc1_8_i4.c: Ditto. * generated/minloc1_8_i8.c: Ditto. * generated/minloc1_8_r10.c: Ditto. * generated/minloc1_8_r16.c: Ditto. * generated/minloc1_8_r4.c: Ditto. * generated/minloc1_8_r8.c: Ditto. * generated/minloc1_8_s1.c: Ditto. * generated/minloc1_8_s4.c: Ditto. * generated/minval1_s1.c: Ditto. * generated/minval1_s4.c: Ditto. * generated/minval_i1.c: Ditto. * generated/minval_i16.c: Ditto. * generated/minval_i2.c: Ditto. * generated/minval_i4.c: Ditto. * generated/minval_i8.c: Ditto. * generated/minval_r10.c: Ditto. * generated/minval_r16.c: Ditto. * generated/minval_r4.c: Ditto. * generated/minval_r8.c: Ditto. * generated/norm2_r10.c: Ditto. * generated/norm2_r16.c: Ditto. * generated/norm2_r4.c: Ditto. * generated/norm2_r8.c: Ditto. * generated/parity_l1.c: Ditto. * generated/parity_l16.c: Ditto. * generated/parity_l2.c: Ditto. * generated/parity_l4.c: Ditto. * generated/parity_l8.c: Ditto. * generated/product_c10.c: Ditto. * generated/product_c16.c: Ditto. * generated/product_c4.c: Ditto. * generated/product_c8.c: Ditto. * generated/product_i1.c: Ditto. * generated/product_i16.c: Ditto. * generated/product_i2.c: Ditto. * generated/product_i4.c: Ditto. * generated/product_i8.c: Ditto. * generated/product_r10.c: Ditto. * generated/product_r16.c: Ditto. * generated/product_r4.c: Ditto. * generated/product_r8.c: Ditto. * generated/reshape_c10.c: Ditto. * generated/reshape_c16.c: Ditto. * generated/reshape_c4.c: Ditto. * generated/reshape_c8.c: Ditto. * generated/reshape_i16.c: Ditto. * generated/reshape_i4.c: Ditto. * generated/reshape_i8.c: Ditto. * generated/reshape_r10.c: Ditto. * generated/reshape_r16.c: Ditto. * generated/reshape_r4.c: Ditto. * generated/reshape_r8.c: Ditto. * generated/spread_c10.c: Ditto. * generated/spread_c16.c: Ditto. * generated/spread_c4.c: Ditto. * generated/spread_c8.c: Ditto. * generated/spread_i1.c: Ditto. * generated/spread_i16.c: Ditto. * generated/spread_i2.c: Ditto. * generated/spread_i4.c: Ditto. * generated/spread_i8.c: Ditto. * generated/spread_r10.c: Ditto. * generated/spread_r16.c: Ditto. * generated/spread_r4.c: Ditto. * generated/spread_r8.c: Ditto. * generated/sum_c10.c: Ditto. * generated/sum_c16.c: Ditto. * generated/sum_c4.c: Ditto. * generated/sum_c8.c: Ditto. * generated/sum_i1.c: Ditto. * generated/sum_i16.c: Ditto. * generated/sum_i2.c: Ditto. * generated/sum_i4.c: Ditto. * generated/sum_i8.c: Ditto. * generated/sum_r10.c: Ditto. * generated/sum_r16.c: Ditto. * generated/sum_r4.c: Ditto. * generated/sum_r8.c: Ditto. 2018-06-01 Steven G. Kargl PR fortran/85816 PR fortran/85975 * gfortran.dg/pr85816.f90: New test. * gfortran.dg/pr85975.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@261081 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0ccd0ab2dd9e..af5f62cf6ddc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2018-06-01 Steven G. Kargl + + PR fortran/85816 + PR fortran/85975 + * gfortran.dg/pr85816.f90: New test. + * gfortran.dg/pr85975.f90: New test. + 2018-06-01 Steven G. Kargl PR fortran/63570 diff --git a/gcc/testsuite/gfortran.dg/pr85816.f90 b/gcc/testsuite/gfortran.dg/pr85816.f90 new file mode 100644 index 000000000000..e1fa97dd493f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85816.f90 @@ -0,0 +1,19 @@ +! { dg-do compile } +! PR fortran/85816 +! Original code from Martin Diehl +! +! Prior to fixing the problem with the array descriptor, gfortran died with +! Operating system error: Cannot allocate memory +! Integer overflow in xmallocarray +! +program test + implicit none + real(8) :: tensor(3,3) = 4 + integer :: grid(3) = 16 + ! ok + write(6,*) spread(spread(tensor,3,grid(1)),4,grid(1)) + ! ok (note the brackets) + write(6,*) spread((spread(spread(tensor,3,grid(1)),4,grid(2))),5,grid(3)) + ! not ok + write(6,*) spread(spread(spread(tensor,3,grid(1)),4,grid(2)),5,grid(3)) +end program diff --git a/gcc/testsuite/gfortran.dg/pr85975.f90 b/gcc/testsuite/gfortran.dg/pr85975.f90 new file mode 100644 index 000000000000..9e526c2c06b6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85975.f90 @@ -0,0 +1,24 @@ +! { dg-do run } +! PR fortran/85976 +! Original code from Stephan Kramer +program foo + + implicit none + + call bar(2, 3, 5, 7) + + contains + + subroutine bar(k, l, m, n) + + integer, intent(in) :: k, l, m, n + real :: a(k), b(k,l), c(k,l,m), d(k,l,m,n) + + if (size(spread(A, 1, 1)) /= k) stop 1 + if (size(spread(b, 1, 1)) /= k * l) stop 2 + if (size(spread(c, 1, 1)) /= k * l * m) stop 3 + if (size(spread(d, 1, 1)) /= k * l * m * n) stop 4 + + end subroutine + +end program diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index a220cc864b5c..4e9c5c7c7a46 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,262 @@ +2018-06-01 Steven G. Kargl + + PR fortran/85816 + PR fortran/85975 + * libgfortran.h: Remove the GFC_DTYPE_COPY_SETRANK macro. + * intrinsics/reshape_generic.c: Directly assign rank. + * intrinsics/spread_generic.c: Ditto. + * m4/iforeach-s.m4: Ditto. + * m4/iforeach.m4: Ditto. + * m4/ifunction-s.m4: Ditto. + * m4/ifunction-s2.m4: Ditto. + * m4/ifunction.m4: Ditto. + * m4/ifunction_logical.m4: Ditto. + * m4/reshape.m4: Ditto. + * m4/spread.m4: Ditto. + * generated/all_l1.c: Regenerated from m4 files. + * generated/all_l16.c: Ditto. + * generated/all_l2.c: Ditto. + * generated/all_l4.c: Ditto. + * generated/all_l8.c: Ditto. + * generated/any_l1.c: Ditto. + * generated/any_l16.c: Ditto. + * generated/any_l2.c: Ditto. + * generated/any_l4.c: Ditto. + * generated/any_l8.c: Ditto. + * generated/count_16_l.c: Ditto. + * generated/count_1_l.c: Ditto. + * generated/count_2_l.c: Ditto. + * generated/count_4_l.c: Ditto. + * generated/count_8_l.c: Ditto. + * generated/iall_i1.c: Ditto. + * generated/iall_i16.c: Ditto. + * generated/iall_i2.c: Ditto. + * generated/iall_i4.c: Ditto. + * generated/iall_i8.c: Ditto. + * generated/iany_i1.c: Ditto. + * generated/iany_i16.c: Ditto. + * generated/iany_i2.c: Ditto. + * generated/iany_i4.c: Ditto. + * generated/iany_i8.c: Ditto. + * generated/iparity_i1.c: Ditto. + * generated/iparity_i16.c: Ditto. + * generated/iparity_i2.c: Ditto. + * generated/iparity_i4.c: Ditto. + * generated/iparity_i8.c: Ditto. + * generated/maxloc0_16_i1.c: Ditto. + * generated/maxloc0_16_i16.c: Ditto. + * generated/maxloc0_16_i2.c: Ditto. + * generated/maxloc0_16_i4.c: Ditto. + * generated/maxloc0_16_i8.c: Ditto. + * generated/maxloc0_16_r10.c: Ditto. + * generated/maxloc0_16_r16.c: Ditto. + * generated/maxloc0_16_r4.c: Ditto. + * generated/maxloc0_16_r8.c: Ditto. + * generated/maxloc0_16_s1.c: Ditto. + * generated/maxloc0_16_s4.c: Ditto. + * generated/maxloc0_4_i1.c: Ditto. + * generated/maxloc0_4_i16.c: Ditto. + * generated/maxloc0_4_i2.c: Ditto. + * generated/maxloc0_4_i4.c: Ditto. + * generated/maxloc0_4_i8.c: Ditto. + * generated/maxloc0_4_r10.c: Ditto. + * generated/maxloc0_4_r16.c: Ditto. + * generated/maxloc0_4_r4.c: Ditto. + * generated/maxloc0_4_r8.c: Ditto. + * generated/maxloc0_4_s1.c: Ditto. + * generated/maxloc0_4_s4.c: Ditto. + * generated/maxloc0_8_i1.c: Ditto. + * generated/maxloc0_8_i16.c: Ditto. + * generated/maxloc0_8_i2.c: Ditto. + * generated/maxloc0_8_i4.c: Ditto. + * generated/maxloc0_8_i8.c: Ditto. + * generated/maxloc0_8_r10.c: Ditto. + * generated/maxloc0_8_r16.c: Ditto. + * generated/maxloc0_8_r4.c: Ditto. + * generated/maxloc0_8_r8.c: Ditto. + * generated/maxloc0_8_s1.c: Ditto. + * generated/maxloc0_8_s4.c: Ditto. + * generated/maxloc1_16_i1.c: Ditto. + * generated/maxloc1_16_i16.c: Ditto. + * generated/maxloc1_16_i2.c: Ditto. + * generated/maxloc1_16_i4.c: Ditto. + * generated/maxloc1_16_i8.c: Ditto. + * generated/maxloc1_16_r10.c: Ditto. + * generated/maxloc1_16_r16.c: Ditto. + * generated/maxloc1_16_r4.c: Ditto. + * generated/maxloc1_16_r8.c: Ditto. + * generated/maxloc1_16_s1.c: Ditto. + * generated/maxloc1_16_s4.c: Ditto. + * generated/maxloc1_4_i1.c: Ditto. + * generated/maxloc1_4_i16.c: Ditto. + * generated/maxloc1_4_i2.c: Ditto. + * generated/maxloc1_4_i4.c: Ditto. + * generated/maxloc1_4_i8.c: Ditto. + * generated/maxloc1_4_r10.c: Ditto. + * generated/maxloc1_4_r16.c: Ditto. + * generated/maxloc1_4_r4.c: Ditto. + * generated/maxloc1_4_r8.c: Ditto. + * generated/maxloc1_4_s1.c: Ditto. + * generated/maxloc1_4_s4.c: Ditto. + * generated/maxloc1_8_i1.c: Ditto. + * generated/maxloc1_8_i16.c: Ditto. + * generated/maxloc1_8_i2.c: Ditto. + * generated/maxloc1_8_i4.c: Ditto. + * generated/maxloc1_8_i8.c: Ditto. + * generated/maxloc1_8_r10.c: Ditto. + * generated/maxloc1_8_r16.c: Ditto. + * generated/maxloc1_8_r4.c: Ditto. + * generated/maxloc1_8_r8.c: Ditto. + * generated/maxloc1_8_s1.c: Ditto. + * generated/maxloc1_8_s4.c: Ditto. + * generated/maxval1_s1.c: Ditto. + * generated/maxval1_s4.c: Ditto. + * generated/maxval_i1.c: Ditto. + * generated/maxval_i16.c: Ditto. + * generated/maxval_i2.c: Ditto. + * generated/maxval_i4.c: Ditto. + * generated/maxval_i8.c: Ditto. + * generated/maxval_r10.c: Ditto. + * generated/maxval_r16.c: Ditto. + * generated/maxval_r4.c: Ditto. + * generated/maxval_r8.c: Ditto. + * generated/minloc0_16_i1.c: Ditto. + * generated/minloc0_16_i16.c: Ditto. + * generated/minloc0_16_i2.c: Ditto. + * generated/minloc0_16_i4.c: Ditto. + * generated/minloc0_16_i8.c: Ditto. + * generated/minloc0_16_r10.c: Ditto. + * generated/minloc0_16_r16.c: Ditto. + * generated/minloc0_16_r4.c: Ditto. + * generated/minloc0_16_r8.c: Ditto. + * generated/minloc0_16_s1.c: Ditto. + * generated/minloc0_16_s4.c: Ditto. + * generated/minloc0_4_i1.c: Ditto. + * generated/minloc0_4_i16.c: Ditto. + * generated/minloc0_4_i2.c: Ditto. + * generated/minloc0_4_i4.c: Ditto. + * generated/minloc0_4_i8.c: Ditto. + * generated/minloc0_4_r10.c: Ditto. + * generated/minloc0_4_r16.c: Ditto. + * generated/minloc0_4_r4.c: Ditto. + * generated/minloc0_4_r8.c: Ditto. + * generated/minloc0_4_s1.c: Ditto. + * generated/minloc0_4_s4.c: Ditto. + * generated/minloc0_8_i1.c: Ditto. + * generated/minloc0_8_i16.c: Ditto. + * generated/minloc0_8_i2.c: Ditto. + * generated/minloc0_8_i4.c: Ditto. + * generated/minloc0_8_i8.c: Ditto. + * generated/minloc0_8_r10.c: Ditto. + * generated/minloc0_8_r16.c: Ditto. + * generated/minloc0_8_r4.c: Ditto. + * generated/minloc0_8_r8.c: Ditto. + * generated/minloc0_8_s1.c: Ditto. + * generated/minloc0_8_s4.c: Ditto. + * generated/minloc1_16_i1.c: Ditto. + * generated/minloc1_16_i16.c: Ditto. + * generated/minloc1_16_i2.c: Ditto. + * generated/minloc1_16_i4.c: Ditto. + * generated/minloc1_16_i8.c: Ditto. + * generated/minloc1_16_r10.c: Ditto. + * generated/minloc1_16_r16.c: Ditto. + * generated/minloc1_16_r4.c: Ditto. + * generated/minloc1_16_r8.c: Ditto. + * generated/minloc1_16_s1.c: Ditto. + * generated/minloc1_16_s4.c: Ditto. + * generated/minloc1_4_i1.c: Ditto. + * generated/minloc1_4_i16.c: Ditto. + * generated/minloc1_4_i2.c: Ditto. + * generated/minloc1_4_i4.c: Ditto. + * generated/minloc1_4_i8.c: Ditto. + * generated/minloc1_4_r10.c: Ditto. + * generated/minloc1_4_r16.c: Ditto. + * generated/minloc1_4_r4.c: Ditto. + * generated/minloc1_4_r8.c: Ditto. + * generated/minloc1_4_s1.c: Ditto. + * generated/minloc1_4_s4.c: Ditto. + * generated/minloc1_8_i1.c: Ditto. + * generated/minloc1_8_i16.c: Ditto. + * generated/minloc1_8_i2.c: Ditto. + * generated/minloc1_8_i4.c: Ditto. + * generated/minloc1_8_i8.c: Ditto. + * generated/minloc1_8_r10.c: Ditto. + * generated/minloc1_8_r16.c: Ditto. + * generated/minloc1_8_r4.c: Ditto. + * generated/minloc1_8_r8.c: Ditto. + * generated/minloc1_8_s1.c: Ditto. + * generated/minloc1_8_s4.c: Ditto. + * generated/minval1_s1.c: Ditto. + * generated/minval1_s4.c: Ditto. + * generated/minval_i1.c: Ditto. + * generated/minval_i16.c: Ditto. + * generated/minval_i2.c: Ditto. + * generated/minval_i4.c: Ditto. + * generated/minval_i8.c: Ditto. + * generated/minval_r10.c: Ditto. + * generated/minval_r16.c: Ditto. + * generated/minval_r4.c: Ditto. + * generated/minval_r8.c: Ditto. + * generated/norm2_r10.c: Ditto. + * generated/norm2_r16.c: Ditto. + * generated/norm2_r4.c: Ditto. + * generated/norm2_r8.c: Ditto. + * generated/parity_l1.c: Ditto. + * generated/parity_l16.c: Ditto. + * generated/parity_l2.c: Ditto. + * generated/parity_l4.c: Ditto. + * generated/parity_l8.c: Ditto. + * generated/product_c10.c: Ditto. + * generated/product_c16.c: Ditto. + * generated/product_c4.c: Ditto. + * generated/product_c8.c: Ditto. + * generated/product_i1.c: Ditto. + * generated/product_i16.c: Ditto. + * generated/product_i2.c: Ditto. + * generated/product_i4.c: Ditto. + * generated/product_i8.c: Ditto. + * generated/product_r10.c: Ditto. + * generated/product_r16.c: Ditto. + * generated/product_r4.c: Ditto. + * generated/product_r8.c: Ditto. + * generated/reshape_c10.c: Ditto. + * generated/reshape_c16.c: Ditto. + * generated/reshape_c4.c: Ditto. + * generated/reshape_c8.c: Ditto. + * generated/reshape_i16.c: Ditto. + * generated/reshape_i4.c: Ditto. + * generated/reshape_i8.c: Ditto. + * generated/reshape_r10.c: Ditto. + * generated/reshape_r16.c: Ditto. + * generated/reshape_r4.c: Ditto. + * generated/reshape_r8.c: Ditto. + * generated/spread_c10.c: Ditto. + * generated/spread_c16.c: Ditto. + * generated/spread_c4.c: Ditto. + * generated/spread_c8.c: Ditto. + * generated/spread_i1.c: Ditto. + * generated/spread_i16.c: Ditto. + * generated/spread_i2.c: Ditto. + * generated/spread_i4.c: Ditto. + * generated/spread_i8.c: Ditto. + * generated/spread_r10.c: Ditto. + * generated/spread_r16.c: Ditto. + * generated/spread_r4.c: Ditto. + * generated/spread_r8.c: Ditto. + * generated/sum_c10.c: Ditto. + * generated/sum_c16.c: Ditto. + * generated/sum_c4.c: Ditto. + * generated/sum_c8.c: Ditto. + * generated/sum_i1.c: Ditto. + * generated/sum_i16.c: Ditto. + * generated/sum_i2.c: Ditto. + * generated/sum_i4.c: Ditto. + * generated/sum_i8.c: Ditto. + * generated/sum_r10.c: Ditto. + * generated/sum_r16.c: Ditto. + * generated/sum_r4.c: Ditto. + * generated/sum_r8.c: Ditto. + 2018-06-01 Steven G. Kargl PR fortran/63570 diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c index 8779367964f1..06555623c2c9 100644 --- a/libgfortran/generated/all_l1.c +++ b/libgfortran/generated/all_l1.c @@ -97,7 +97,7 @@ all_l1 (gfc_array_l1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c index ef3d12eea544..f2e5e62c3087 100644 --- a/libgfortran/generated/all_l16.c +++ b/libgfortran/generated/all_l16.c @@ -97,7 +97,7 @@ all_l16 (gfc_array_l16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c index 18a0ef6f76f3..f783f9e7ffe3 100644 --- a/libgfortran/generated/all_l2.c +++ b/libgfortran/generated/all_l2.c @@ -97,7 +97,7 @@ all_l2 (gfc_array_l2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 522c591314e0..9e1ae1687b32 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -97,7 +97,7 @@ all_l4 (gfc_array_l4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index a762ac01a090..31f5e0a358f4 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -97,7 +97,7 @@ all_l8 (gfc_array_l8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c index c2d3d54ecc10..be5fd14b85c4 100644 --- a/libgfortran/generated/any_l1.c +++ b/libgfortran/generated/any_l1.c @@ -97,7 +97,7 @@ any_l1 (gfc_array_l1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c index 181bb85c2a83..1cabd7e3f769 100644 --- a/libgfortran/generated/any_l16.c +++ b/libgfortran/generated/any_l16.c @@ -97,7 +97,7 @@ any_l16 (gfc_array_l16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c index b6b86e5a745b..2fd2c971634f 100644 --- a/libgfortran/generated/any_l2.c +++ b/libgfortran/generated/any_l2.c @@ -97,7 +97,7 @@ any_l2 (gfc_array_l2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index 3249b28e7866..6eed8dba7694 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -97,7 +97,7 @@ any_l4 (gfc_array_l4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index 6569cb597c46..88ad0daa5964 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -97,7 +97,7 @@ any_l8 (gfc_array_l8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c index d099eedc823d..bd4ab74b41cc 100644 --- a/libgfortran/generated/count_16_l.c +++ b/libgfortran/generated/count_16_l.c @@ -97,7 +97,7 @@ count_16_l (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c index b403d8398db6..b54cad845c23 100644 --- a/libgfortran/generated/count_1_l.c +++ b/libgfortran/generated/count_1_l.c @@ -97,7 +97,7 @@ count_1_l (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c index e316bbb93ee7..a507debf2693 100644 --- a/libgfortran/generated/count_2_l.c +++ b/libgfortran/generated/count_2_l.c @@ -97,7 +97,7 @@ count_2_l (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c index 1748e85ca19e..ab5615407a9f 100644 --- a/libgfortran/generated/count_4_l.c +++ b/libgfortran/generated/count_4_l.c @@ -97,7 +97,7 @@ count_4_l (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c index d1917865025e..a5879fdf2042 100644 --- a/libgfortran/generated/count_8_l.c +++ b/libgfortran/generated/count_8_l.c @@ -97,7 +97,7 @@ count_8_l (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c index f02f7afa4b08..481b2b0b2f76 100644 --- a/libgfortran/generated/iall_i1.c +++ b/libgfortran/generated/iall_i1.c @@ -100,7 +100,7 @@ iall_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miall_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c index e739fad7abd3..51e38a537250 100644 --- a/libgfortran/generated/iall_i16.c +++ b/libgfortran/generated/iall_i16.c @@ -100,7 +100,7 @@ iall_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miall_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c index ff958a9cd332..32300e32dabb 100644 --- a/libgfortran/generated/iall_i2.c +++ b/libgfortran/generated/iall_i2.c @@ -100,7 +100,7 @@ iall_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miall_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c index ece32e481d92..8083c5a0fab5 100644 --- a/libgfortran/generated/iall_i4.c +++ b/libgfortran/generated/iall_i4.c @@ -100,7 +100,7 @@ iall_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miall_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c index f181f153c741..a337cdbab187 100644 --- a/libgfortran/generated/iall_i8.c +++ b/libgfortran/generated/iall_i8.c @@ -100,7 +100,7 @@ iall_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miall_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c index 20088edee3a7..063d4b21b6ee 100644 --- a/libgfortran/generated/iany_i1.c +++ b/libgfortran/generated/iany_i1.c @@ -100,7 +100,7 @@ iany_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miany_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c index 90844e884f42..bac35d0af0f1 100644 --- a/libgfortran/generated/iany_i16.c +++ b/libgfortran/generated/iany_i16.c @@ -100,7 +100,7 @@ iany_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miany_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c index e73438953013..ea1ae2360588 100644 --- a/libgfortran/generated/iany_i2.c +++ b/libgfortran/generated/iany_i2.c @@ -100,7 +100,7 @@ iany_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miany_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c index 48043eefd2ab..9d9d4af6627a 100644 --- a/libgfortran/generated/iany_i4.c +++ b/libgfortran/generated/iany_i4.c @@ -100,7 +100,7 @@ iany_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miany_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c index 078160b24b73..e3f30816daa1 100644 --- a/libgfortran/generated/iany_i8.c +++ b/libgfortran/generated/iany_i8.c @@ -100,7 +100,7 @@ iany_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miany_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c index 911f9f5a6e54..cdcae29aae94 100644 --- a/libgfortran/generated/iparity_i1.c +++ b/libgfortran/generated/iparity_i1.c @@ -100,7 +100,7 @@ iparity_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miparity_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c index b434f01b4f14..7705648aa5fa 100644 --- a/libgfortran/generated/iparity_i16.c +++ b/libgfortran/generated/iparity_i16.c @@ -100,7 +100,7 @@ iparity_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miparity_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c index 998df01fd8d3..87422a7af840 100644 --- a/libgfortran/generated/iparity_i2.c +++ b/libgfortran/generated/iparity_i2.c @@ -100,7 +100,7 @@ iparity_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miparity_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c index a0c515c77173..a4384e1b9de3 100644 --- a/libgfortran/generated/iparity_i4.c +++ b/libgfortran/generated/iparity_i4.c @@ -100,7 +100,7 @@ iparity_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miparity_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c index 3225513273e6..2321bc3d3d52 100644 --- a/libgfortran/generated/iparity_i8.c +++ b/libgfortran/generated/iparity_i8.c @@ -100,7 +100,7 @@ iparity_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ miparity_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c index 3bb69059e554..ac09f1435414 100644 --- a/libgfortran/generated/maxloc0_16_i1.c +++ b/libgfortran/generated/maxloc0_16_i1.c @@ -54,7 +54,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c index 7c2967fedde5..f3cfd9deb929 100644 --- a/libgfortran/generated/maxloc0_16_i16.c +++ b/libgfortran/generated/maxloc0_16_i16.c @@ -54,7 +54,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_i16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c index 87edb85cdc63..f90744a2bb9f 100644 --- a/libgfortran/generated/maxloc0_16_i2.c +++ b/libgfortran/generated/maxloc0_16_i2.c @@ -54,7 +54,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_i2 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c index 38daf6d77a7d..39491036fd32 100644 --- a/libgfortran/generated/maxloc0_16_i4.c +++ b/libgfortran/generated/maxloc0_16_i4.c @@ -54,7 +54,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_i4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c index f48e943d9fce..5a569e8a226e 100644 --- a/libgfortran/generated/maxloc0_16_i8.c +++ b/libgfortran/generated/maxloc0_16_i8.c @@ -54,7 +54,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_i8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c index f1dc89be33e7..f8dc73700559 100644 --- a/libgfortran/generated/maxloc0_16_r10.c +++ b/libgfortran/generated/maxloc0_16_r10.c @@ -54,7 +54,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c index 7003a60ac688..8c78a6d7bb6a 100644 --- a/libgfortran/generated/maxloc0_16_r16.c +++ b/libgfortran/generated/maxloc0_16_r16.c @@ -54,7 +54,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c index 0ada2d1b2088..961f39c6c19e 100644 --- a/libgfortran/generated/maxloc0_16_r4.c +++ b/libgfortran/generated/maxloc0_16_r4.c @@ -54,7 +54,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_r4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c index 75b59841aaae..c5414b4b1177 100644 --- a/libgfortran/generated/maxloc0_16_r8.c +++ b/libgfortran/generated/maxloc0_16_r8.c @@ -54,7 +54,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -383,7 +383,7 @@ smaxloc0_16_r8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_s1.c b/libgfortran/generated/maxloc0_16_s1.c index 33f73e7d62ca..cc2b4f0ae016 100644 --- a/libgfortran/generated/maxloc0_16_s1.c +++ b/libgfortran/generated/maxloc0_16_s1.c @@ -68,7 +68,7 @@ maxloc0_16_s1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -181,7 +181,7 @@ mmaxloc0_16_s1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -322,7 +322,7 @@ smaxloc0_16_s1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_16_s4.c b/libgfortran/generated/maxloc0_16_s4.c index 8eec34160cb0..ff2c88583f4b 100644 --- a/libgfortran/generated/maxloc0_16_s4.c +++ b/libgfortran/generated/maxloc0_16_s4.c @@ -68,7 +68,7 @@ maxloc0_16_s4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -181,7 +181,7 @@ mmaxloc0_16_s4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -322,7 +322,7 @@ smaxloc0_16_s4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c index 63a5d544c72f..014bcb14d0c9 100644 --- a/libgfortran/generated/maxloc0_4_i1.c +++ b/libgfortran/generated/maxloc0_4_i1.c @@ -54,7 +54,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_i1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c index b515ee0c097e..42262d2e72db 100644 --- a/libgfortran/generated/maxloc0_4_i16.c +++ b/libgfortran/generated/maxloc0_4_i16.c @@ -54,7 +54,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c index 563aebe28b7f..dd9e67835588 100644 --- a/libgfortran/generated/maxloc0_4_i2.c +++ b/libgfortran/generated/maxloc0_4_i2.c @@ -54,7 +54,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_i2 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index 7760807bac28..ca389b8d0763 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -54,7 +54,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_i4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index e9113183aab9..1d24756e6f71 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -54,7 +54,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c index b335b2ed5eb0..1008bdf3acfd 100644 --- a/libgfortran/generated/maxloc0_4_r10.c +++ b/libgfortran/generated/maxloc0_4_r10.c @@ -54,7 +54,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_r10 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c index 6a27d69f0776..781bf84ce95d 100644 --- a/libgfortran/generated/maxloc0_4_r16.c +++ b/libgfortran/generated/maxloc0_4_r16.c @@ -54,7 +54,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_r16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index 76732d7f6bb9..c2796c6a6ee7 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -54,7 +54,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_r4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index 13e371030b79..38f3f6ffbb3d 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -54,7 +54,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -383,7 +383,7 @@ smaxloc0_4_r8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_s1.c b/libgfortran/generated/maxloc0_4_s1.c index ba8e63401187..1c1e6310348f 100644 --- a/libgfortran/generated/maxloc0_4_s1.c +++ b/libgfortran/generated/maxloc0_4_s1.c @@ -68,7 +68,7 @@ maxloc0_4_s1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -181,7 +181,7 @@ mmaxloc0_4_s1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -322,7 +322,7 @@ smaxloc0_4_s1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_4_s4.c b/libgfortran/generated/maxloc0_4_s4.c index 90a54b6aed8a..15bdb0bf7df2 100644 --- a/libgfortran/generated/maxloc0_4_s4.c +++ b/libgfortran/generated/maxloc0_4_s4.c @@ -68,7 +68,7 @@ maxloc0_4_s4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -181,7 +181,7 @@ mmaxloc0_4_s4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -322,7 +322,7 @@ smaxloc0_4_s4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c index c7852b5c8e78..a2ec27fb410a 100644 --- a/libgfortran/generated/maxloc0_8_i1.c +++ b/libgfortran/generated/maxloc0_8_i1.c @@ -54,7 +54,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_i1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c index 88d50d975189..30a12d1a87fd 100644 --- a/libgfortran/generated/maxloc0_8_i16.c +++ b/libgfortran/generated/maxloc0_8_i16.c @@ -54,7 +54,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_i16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c index b763e3b462e4..6592aec98327 100644 --- a/libgfortran/generated/maxloc0_8_i2.c +++ b/libgfortran/generated/maxloc0_8_i2.c @@ -54,7 +54,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_i2 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index e338364f9511..a32f5373e851 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -54,7 +54,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_i4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 11fd73de774f..ff9de7fa01ac 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -54,7 +54,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_i8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c index 315c8d7e613d..2aacaf935c77 100644 --- a/libgfortran/generated/maxloc0_8_r10.c +++ b/libgfortran/generated/maxloc0_8_r10.c @@ -54,7 +54,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_r10 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c index 6fcc69ec3942..9ffde9223769 100644 --- a/libgfortran/generated/maxloc0_8_r16.c +++ b/libgfortran/generated/maxloc0_8_r16.c @@ -54,7 +54,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_r16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index 3ecd60ed7ad4..755a513a03ea 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -54,7 +54,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_r4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index 299be1a5c0d3..1bd2bf04572c 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -54,7 +54,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -383,7 +383,7 @@ smaxloc0_8_r8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_s1.c b/libgfortran/generated/maxloc0_8_s1.c index 405162338c7e..81ed1bbb2def 100644 --- a/libgfortran/generated/maxloc0_8_s1.c +++ b/libgfortran/generated/maxloc0_8_s1.c @@ -68,7 +68,7 @@ maxloc0_8_s1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -181,7 +181,7 @@ mmaxloc0_8_s1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -322,7 +322,7 @@ smaxloc0_8_s1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc0_8_s4.c b/libgfortran/generated/maxloc0_8_s4.c index 40ea75d257ff..873c4dc14517 100644 --- a/libgfortran/generated/maxloc0_8_s4.c +++ b/libgfortran/generated/maxloc0_8_s4.c @@ -68,7 +68,7 @@ maxloc0_8_s4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -181,7 +181,7 @@ mmaxloc0_8_s4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -322,7 +322,7 @@ smaxloc0_8_s4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c index cb04e9417eea..70b0ba566c5e 100644 --- a/libgfortran/generated/maxloc1_16_i1.c +++ b/libgfortran/generated/maxloc1_16_i1.c @@ -103,7 +103,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c index 871bf028341d..99310e10a1b3 100644 --- a/libgfortran/generated/maxloc1_16_i16.c +++ b/libgfortran/generated/maxloc1_16_i16.c @@ -103,7 +103,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c index 3bba4bc92979..ac8b39154c96 100644 --- a/libgfortran/generated/maxloc1_16_i2.c +++ b/libgfortran/generated/maxloc1_16_i2.c @@ -103,7 +103,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c index 043a9874d720..12f2c875cf08 100644 --- a/libgfortran/generated/maxloc1_16_i4.c +++ b/libgfortran/generated/maxloc1_16_i4.c @@ -103,7 +103,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c index fe9704fa68be..e8fb57bd7b06 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_16_i8.c @@ -103,7 +103,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index 25b0449d5860..b610133bf6b3 100644 --- a/libgfortran/generated/maxloc1_16_r10.c +++ b/libgfortran/generated/maxloc1_16_r10.c @@ -103,7 +103,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c index 4b0bddc4104d..44aaf0f1f3fc 100644 --- a/libgfortran/generated/maxloc1_16_r16.c +++ b/libgfortran/generated/maxloc1_16_r16.c @@ -103,7 +103,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c index 9a021a05cfe5..aefba16f0182 100644 --- a/libgfortran/generated/maxloc1_16_r4.c +++ b/libgfortran/generated/maxloc1_16_r4.c @@ -103,7 +103,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c index 2cb8db38fb58..9c8b1939bace 100644 --- a/libgfortran/generated/maxloc1_16_r8.c +++ b/libgfortran/generated/maxloc1_16_r8.c @@ -103,7 +103,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c index ae17ccd788ed..a6cb47aebf76 100644 --- a/libgfortran/generated/maxloc1_16_s1.c +++ b/libgfortran/generated/maxloc1_16_s1.c @@ -115,7 +115,7 @@ maxloc1_16_s1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c index 6b436d64a698..a5b5e542c949 100644 --- a/libgfortran/generated/maxloc1_16_s4.c +++ b/libgfortran/generated/maxloc1_16_s4.c @@ -115,7 +115,7 @@ maxloc1_16_s4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c index 43d541e01f2d..7bcb5bbaa1cf 100644 --- a/libgfortran/generated/maxloc1_4_i1.c +++ b/libgfortran/generated/maxloc1_4_i1.c @@ -103,7 +103,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c index 7d006abbd142..8e1ba58faa2b 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_4_i16.c @@ -103,7 +103,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index 6f3751be0210..62175d2a5931 100644 --- a/libgfortran/generated/maxloc1_4_i2.c +++ b/libgfortran/generated/maxloc1_4_i2.c @@ -103,7 +103,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 47c5d825fe85..b507ab34507e 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -103,7 +103,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index e8380aa72069..752b23181541 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -103,7 +103,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index fe922ba3f2f4..851fd715f87d 100644 --- a/libgfortran/generated/maxloc1_4_r10.c +++ b/libgfortran/generated/maxloc1_4_r10.c @@ -103,7 +103,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c index eeab770df1c5..b23f7a58cca0 100644 --- a/libgfortran/generated/maxloc1_4_r16.c +++ b/libgfortran/generated/maxloc1_4_r16.c @@ -103,7 +103,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index c0b80b0817df..9cf13751cb32 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -103,7 +103,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 3560c3b74342..e6884f297a72 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -103,7 +103,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c index cdcd7fb26523..257ede21c05d 100644 --- a/libgfortran/generated/maxloc1_4_s1.c +++ b/libgfortran/generated/maxloc1_4_s1.c @@ -115,7 +115,7 @@ maxloc1_4_s1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c index f1e79cf90020..e8df7d072211 100644 --- a/libgfortran/generated/maxloc1_4_s4.c +++ b/libgfortran/generated/maxloc1_4_s4.c @@ -115,7 +115,7 @@ maxloc1_4_s4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c index 1ff5cd3c90c8..cd9bb6518746 100644 --- a/libgfortran/generated/maxloc1_8_i1.c +++ b/libgfortran/generated/maxloc1_8_i1.c @@ -103,7 +103,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c index 9341c2744df4..0c78ec8417eb 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_8_i16.c @@ -103,7 +103,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index 4d443ae595ea..41cf3b1758e0 100644 --- a/libgfortran/generated/maxloc1_8_i2.c +++ b/libgfortran/generated/maxloc1_8_i2.c @@ -103,7 +103,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index 2058ab2ad694..46ff5bb15efd 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -103,7 +103,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 9dc002f6c724..312467586f5a 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -103,7 +103,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index 1a963d18c56c..c8d025f37a1a 100644 --- a/libgfortran/generated/maxloc1_8_r10.c +++ b/libgfortran/generated/maxloc1_8_r10.c @@ -103,7 +103,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c index e04c70e50659..b1ef57c5b633 100644 --- a/libgfortran/generated/maxloc1_8_r16.c +++ b/libgfortran/generated/maxloc1_8_r16.c @@ -103,7 +103,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index b06820bce61c..b9b57bfdd869 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -103,7 +103,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index 1963746d4224..08fd7781801e 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -103,7 +103,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -317,7 +317,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -523,7 +523,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c index 2b16e0652456..6745adade3d7 100644 --- a/libgfortran/generated/maxloc1_8_s1.c +++ b/libgfortran/generated/maxloc1_8_s1.c @@ -115,7 +115,7 @@ maxloc1_8_s1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mmaxloc1_8_s1 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c index c4557e0e0019..25c711d2e2b3 100644 --- a/libgfortran/generated/maxloc1_8_s4.c +++ b/libgfortran/generated/maxloc1_8_s4.c @@ -115,7 +115,7 @@ maxloc1_8_s4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval1_s1.c b/libgfortran/generated/maxval1_s1.c index 094eecf1d074..e151b675a5de 100644 --- a/libgfortran/generated/maxval1_s1.c +++ b/libgfortran/generated/maxval1_s1.c @@ -114,7 +114,7 @@ maxval1_s1 (gfc_array_s1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; @@ -310,7 +310,7 @@ mmaxval1_s1 (gfc_array_s1 * const restrict retarray, * string_len; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -485,7 +485,7 @@ smaxval1_s1 (gfc_array_s1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; diff --git a/libgfortran/generated/maxval1_s4.c b/libgfortran/generated/maxval1_s4.c index e9260ce19b9d..dbde1bc5edd6 100644 --- a/libgfortran/generated/maxval1_s4.c +++ b/libgfortran/generated/maxval1_s4.c @@ -114,7 +114,7 @@ maxval1_s4 (gfc_array_s4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; @@ -310,7 +310,7 @@ mmaxval1_s4 (gfc_array_s4 * const restrict retarray, * string_len; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -485,7 +485,7 @@ smaxval1_s4 (gfc_array_s4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c index 86c9fb901896..defed80a4d78 100644 --- a/libgfortran/generated/maxval_i1.c +++ b/libgfortran/generated/maxval_i1.c @@ -100,7 +100,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c index 30a440e042a7..03526acd89d1 100644 --- a/libgfortran/generated/maxval_i16.c +++ b/libgfortran/generated/maxval_i16.c @@ -100,7 +100,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c index 2a329060c39f..84deb7ea0f74 100644 --- a/libgfortran/generated/maxval_i2.c +++ b/libgfortran/generated/maxval_i2.c @@ -100,7 +100,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 2954e8ada4a2..ae36fd4aa3ee 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -100,7 +100,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index fde234cfcbfb..abd8f99b5010 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -100,7 +100,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c index 9671fdfc98fe..dc640594b2a4 100644 --- a/libgfortran/generated/maxval_r10.c +++ b/libgfortran/generated/maxval_r10.c @@ -100,7 +100,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c index 14e6ce0d0911..ccd0f4b6b8a6 100644 --- a/libgfortran/generated/maxval_r16.c +++ b/libgfortran/generated/maxval_r16.c @@ -100,7 +100,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index 9b5dba098186..2c26b6ebaba0 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -100,7 +100,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 13f491114ab6..26efe0e4717d 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -100,7 +100,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c index 1e1cd6180a38..6a1a99a81515 100644 --- a/libgfortran/generated/minloc0_16_i1.c +++ b/libgfortran/generated/minloc0_16_i1.c @@ -54,7 +54,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_i1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c index b3663d6199d4..cde4b42482c1 100644 --- a/libgfortran/generated/minloc0_16_i16.c +++ b/libgfortran/generated/minloc0_16_i16.c @@ -54,7 +54,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_i16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c index 3a173ea6f37f..49fd91e665dd 100644 --- a/libgfortran/generated/minloc0_16_i2.c +++ b/libgfortran/generated/minloc0_16_i2.c @@ -54,7 +54,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_i2 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c index 4141fa1f22f1..1bfc0f7e7637 100644 --- a/libgfortran/generated/minloc0_16_i4.c +++ b/libgfortran/generated/minloc0_16_i4.c @@ -54,7 +54,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_i4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c index 0d2f35044084..b4d54ae6689f 100644 --- a/libgfortran/generated/minloc0_16_i8.c +++ b/libgfortran/generated/minloc0_16_i8.c @@ -54,7 +54,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_i8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c index 3fd940997986..351d808ada4d 100644 --- a/libgfortran/generated/minloc0_16_r10.c +++ b/libgfortran/generated/minloc0_16_r10.c @@ -54,7 +54,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c index d04fdda43c96..5a719f46ce31 100644 --- a/libgfortran/generated/minloc0_16_r16.c +++ b/libgfortran/generated/minloc0_16_r16.c @@ -54,7 +54,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_r16 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c index 8b029151031e..ddeac3d33791 100644 --- a/libgfortran/generated/minloc0_16_r4.c +++ b/libgfortran/generated/minloc0_16_r4.c @@ -54,7 +54,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_r4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c index 45ab7874177d..c09a1602d3db 100644 --- a/libgfortran/generated/minloc0_16_r8.c +++ b/libgfortran/generated/minloc0_16_r8.c @@ -54,7 +54,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -205,7 +205,7 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -382,7 +382,7 @@ sminloc0_16_r8 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_s1.c b/libgfortran/generated/minloc0_16_s1.c index 95a38a6b5d93..d4cad492acf2 100644 --- a/libgfortran/generated/minloc0_16_s1.c +++ b/libgfortran/generated/minloc0_16_s1.c @@ -68,7 +68,7 @@ minloc0_16_s1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -181,7 +181,7 @@ mminloc0_16_s1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -322,7 +322,7 @@ sminloc0_16_s1 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_16_s4.c b/libgfortran/generated/minloc0_16_s4.c index 091afb7a6e9a..7ccaf173856e 100644 --- a/libgfortran/generated/minloc0_16_s4.c +++ b/libgfortran/generated/minloc0_16_s4.c @@ -68,7 +68,7 @@ minloc0_16_s4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -181,7 +181,7 @@ mminloc0_16_s4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -322,7 +322,7 @@ sminloc0_16_s4 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c index 7120f000d89b..c0f89a80c798 100644 --- a/libgfortran/generated/minloc0_4_i1.c +++ b/libgfortran/generated/minloc0_4_i1.c @@ -54,7 +54,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_i1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c index c9debdbd457e..dbcaf839a874 100644 --- a/libgfortran/generated/minloc0_4_i16.c +++ b/libgfortran/generated/minloc0_4_i16.c @@ -54,7 +54,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_i16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c index 55fb58d40213..dbd3e4c7bd75 100644 --- a/libgfortran/generated/minloc0_4_i2.c +++ b/libgfortran/generated/minloc0_4_i2.c @@ -54,7 +54,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_i2 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index 351b4a1cc5c4..d2c6a91ec2cb 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -54,7 +54,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_i4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index a736c59a1056..4d38e2c7e473 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -54,7 +54,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_i8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c index f714417518b9..b9f68e4d0a41 100644 --- a/libgfortran/generated/minloc0_4_r10.c +++ b/libgfortran/generated/minloc0_4_r10.c @@ -54,7 +54,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_r10 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c index 7d7ece40a957..075ae445a3a8 100644 --- a/libgfortran/generated/minloc0_4_r16.c +++ b/libgfortran/generated/minloc0_4_r16.c @@ -54,7 +54,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_r16 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index 74757394d333..e94599b0dd0e 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -54,7 +54,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_r4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 0ac6e6b3264c..520889063e78 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -54,7 +54,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -205,7 +205,7 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -382,7 +382,7 @@ sminloc0_4_r8 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_s1.c b/libgfortran/generated/minloc0_4_s1.c index aeb0ae9f425f..f80a67fca9a0 100644 --- a/libgfortran/generated/minloc0_4_s1.c +++ b/libgfortran/generated/minloc0_4_s1.c @@ -68,7 +68,7 @@ minloc0_4_s1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -181,7 +181,7 @@ mminloc0_4_s1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -322,7 +322,7 @@ sminloc0_4_s1 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_4_s4.c b/libgfortran/generated/minloc0_4_s4.c index f5b590658635..c1527f71599c 100644 --- a/libgfortran/generated/minloc0_4_s4.c +++ b/libgfortran/generated/minloc0_4_s4.c @@ -68,7 +68,7 @@ minloc0_4_s4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -181,7 +181,7 @@ mminloc0_4_s4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } @@ -322,7 +322,7 @@ sminloc0_4_s4 (gfc_array_i4 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4)); } diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c index 46dfa7807fda..bd2f2838f358 100644 --- a/libgfortran/generated/minloc0_8_i1.c +++ b/libgfortran/generated/minloc0_8_i1.c @@ -54,7 +54,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_i1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c index c3da87d0e76c..cf364b6a298d 100644 --- a/libgfortran/generated/minloc0_8_i16.c +++ b/libgfortran/generated/minloc0_8_i16.c @@ -54,7 +54,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_i16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c index 8455b7d406dc..244b7ee5b935 100644 --- a/libgfortran/generated/minloc0_8_i2.c +++ b/libgfortran/generated/minloc0_8_i2.c @@ -54,7 +54,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_i2 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index 2b0221674827..9d703d8df3ae 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -54,7 +54,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_i4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_i4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index 55aafa4c6340..2307c87f4d3e 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -54,7 +54,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_i8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_i8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c index 14b8a62f5109..5fe99969924f 100644 --- a/libgfortran/generated/minloc0_8_r10.c +++ b/libgfortran/generated/minloc0_8_r10.c @@ -54,7 +54,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_r10 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_r10 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c index e5c48fa77d62..d6c7318409ea 100644 --- a/libgfortran/generated/minloc0_8_r16.c +++ b/libgfortran/generated/minloc0_8_r16.c @@ -54,7 +54,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_r16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_r16 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index caba6a7d49b0..4a7e163078fb 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -54,7 +54,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_r4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_r4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index 876e9cbae29e..fefd0e72ab74 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -54,7 +54,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -205,7 +205,7 @@ mminloc0_8_r8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -382,7 +382,7 @@ sminloc0_8_r8 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_s1.c b/libgfortran/generated/minloc0_8_s1.c index 68b1800b4a9b..fdeabd8b5fec 100644 --- a/libgfortran/generated/minloc0_8_s1.c +++ b/libgfortran/generated/minloc0_8_s1.c @@ -68,7 +68,7 @@ minloc0_8_s1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -181,7 +181,7 @@ mminloc0_8_s1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -322,7 +322,7 @@ sminloc0_8_s1 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc0_8_s4.c b/libgfortran/generated/minloc0_8_s4.c index 715e074312a7..15871ca324a3 100644 --- a/libgfortran/generated/minloc0_8_s4.c +++ b/libgfortran/generated/minloc0_8_s4.c @@ -68,7 +68,7 @@ minloc0_8_s4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -181,7 +181,7 @@ mminloc0_8_s4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -322,7 +322,7 @@ sminloc0_8_s4 (gfc_array_i8 * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c index 132b2f1abae3..5e6a604d9a6e 100644 --- a/libgfortran/generated/minloc1_16_i1.c +++ b/libgfortran/generated/minloc1_16_i1.c @@ -103,7 +103,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c index 83a8d5928c54..2ba76f8c0b5c 100644 --- a/libgfortran/generated/minloc1_16_i16.c +++ b/libgfortran/generated/minloc1_16_i16.c @@ -103,7 +103,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c index a22e2c71770e..fad47c2cff59 100644 --- a/libgfortran/generated/minloc1_16_i2.c +++ b/libgfortran/generated/minloc1_16_i2.c @@ -103,7 +103,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c index f384ff10f0ab..5be21143cd26 100644 --- a/libgfortran/generated/minloc1_16_i4.c +++ b/libgfortran/generated/minloc1_16_i4.c @@ -103,7 +103,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c index 72b75b0329d9..d1fa3ff97304 100644 --- a/libgfortran/generated/minloc1_16_i8.c +++ b/libgfortran/generated/minloc1_16_i8.c @@ -103,7 +103,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c index 53cf97dbd24b..d09b078bf70f 100644 --- a/libgfortran/generated/minloc1_16_r10.c +++ b/libgfortran/generated/minloc1_16_r10.c @@ -103,7 +103,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c index 93193cf92d6e..356d789398d2 100644 --- a/libgfortran/generated/minloc1_16_r16.c +++ b/libgfortran/generated/minloc1_16_r16.c @@ -103,7 +103,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c index 14369b697dce..2783b8020144 100644 --- a/libgfortran/generated/minloc1_16_r4.c +++ b/libgfortran/generated/minloc1_16_r4.c @@ -103,7 +103,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c index 8dfe8ec3effa..f9c46b04ba4c 100644 --- a/libgfortran/generated/minloc1_16_r8.c +++ b/libgfortran/generated/minloc1_16_r8.c @@ -103,7 +103,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c index 5fea33ae1f71..36dd6d50aaaa 100644 --- a/libgfortran/generated/minloc1_16_s1.c +++ b/libgfortran/generated/minloc1_16_s1.c @@ -115,7 +115,7 @@ minloc1_16_s1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mminloc1_16_s1 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c index 46411b113bb3..922fc83d305e 100644 --- a/libgfortran/generated/minloc1_16_s4.c +++ b/libgfortran/generated/minloc1_16_s4.c @@ -115,7 +115,7 @@ minloc1_16_s4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mminloc1_16_s4 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c index ce9b926f22d0..92496affb003 100644 --- a/libgfortran/generated/minloc1_4_i1.c +++ b/libgfortran/generated/minloc1_4_i1.c @@ -103,7 +103,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c index 871aa374a1a2..c0b91cf5f263 100644 --- a/libgfortran/generated/minloc1_4_i16.c +++ b/libgfortran/generated/minloc1_4_i16.c @@ -103,7 +103,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c index 16f7e5ef7b7d..4defa8d6a1d5 100644 --- a/libgfortran/generated/minloc1_4_i2.c +++ b/libgfortran/generated/minloc1_4_i2.c @@ -103,7 +103,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index 08d919aabd09..5bf3ec1e4447 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -103,7 +103,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 807f6fa016bf..c676fcc62c0d 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -103,7 +103,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c index b2430c4ea6e5..167f268436bd 100644 --- a/libgfortran/generated/minloc1_4_r10.c +++ b/libgfortran/generated/minloc1_4_r10.c @@ -103,7 +103,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c index e81a0a77e90a..df2fc90ab723 100644 --- a/libgfortran/generated/minloc1_4_r16.c +++ b/libgfortran/generated/minloc1_4_r16.c @@ -103,7 +103,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index b82aeeaf7307..4d2a0b0edf76 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -103,7 +103,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index 3476a5e5adb6..04fcfecab8b7 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -103,7 +103,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c index f0c583ffa52a..4be56681c43e 100644 --- a/libgfortran/generated/minloc1_4_s1.c +++ b/libgfortran/generated/minloc1_4_s1.c @@ -115,7 +115,7 @@ minloc1_4_s1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c index eaafec1018bd..27f87450a2c5 100644 --- a/libgfortran/generated/minloc1_4_s4.c +++ b/libgfortran/generated/minloc1_4_s4.c @@ -115,7 +115,7 @@ minloc1_4_s4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mminloc1_4_s4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c index f04fd8d72d82..3eec08fedd3a 100644 --- a/libgfortran/generated/minloc1_8_i1.c +++ b/libgfortran/generated/minloc1_8_i1.c @@ -103,7 +103,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c index d42c5feea2ea..dbe4d3281eb9 100644 --- a/libgfortran/generated/minloc1_8_i16.c +++ b/libgfortran/generated/minloc1_8_i16.c @@ -103,7 +103,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c index 134617d49f37..f20d1387523d 100644 --- a/libgfortran/generated/minloc1_8_i2.c +++ b/libgfortran/generated/minloc1_8_i2.c @@ -103,7 +103,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 20f0595ae1d1..9d83cc094645 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -103,7 +103,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index 653393c532eb..b5d0eac33e50 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -103,7 +103,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index a51a290db1ff..a990567be770 100644 --- a/libgfortran/generated/minloc1_8_r10.c +++ b/libgfortran/generated/minloc1_8_r10.c @@ -103,7 +103,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c index e8e1b7452ad5..7fd75339bd4f 100644 --- a/libgfortran/generated/minloc1_8_r16.c +++ b/libgfortran/generated/minloc1_8_r16.c @@ -103,7 +103,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index f4a27e1c50d6..eadf4e1a7a7f 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -103,7 +103,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 4cd0df1209f0..97c77967cd1e 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -103,7 +103,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -327,7 +327,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -533,7 +533,7 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c index ee2547bc406c..8e62188b8823 100644 --- a/libgfortran/generated/minloc1_8_s1.c +++ b/libgfortran/generated/minloc1_8_s1.c @@ -115,7 +115,7 @@ minloc1_8_s1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mminloc1_8_s1 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c index 605c5de3aefb..2345ad19e476 100644 --- a/libgfortran/generated/minloc1_8_s4.c +++ b/libgfortran/generated/minloc1_8_s4.c @@ -115,7 +115,7 @@ minloc1_8_s4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -310,7 +310,7 @@ mminloc1_8_s4 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -489,7 +489,7 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval1_s1.c b/libgfortran/generated/minval1_s1.c index 153ce0d2b5f3..ba876d398bed 100644 --- a/libgfortran/generated/minval1_s1.c +++ b/libgfortran/generated/minval1_s1.c @@ -114,7 +114,7 @@ minval1_s1 (gfc_array_s1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; @@ -310,7 +310,7 @@ mminval1_s1 (gfc_array_s1 * const restrict retarray, * string_len; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -485,7 +485,7 @@ sminval1_s1 (gfc_array_s1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; diff --git a/libgfortran/generated/minval1_s4.c b/libgfortran/generated/minval1_s4.c index 47c028337423..74915fb82996 100644 --- a/libgfortran/generated/minval1_s4.c +++ b/libgfortran/generated/minval1_s4.c @@ -114,7 +114,7 @@ minval1_s4 (gfc_array_s4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; @@ -310,7 +310,7 @@ mminval1_s4 (gfc_array_s4 * const restrict retarray, * string_len; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -485,7 +485,7 @@ sminval1_s4 (gfc_array_s4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c index d78c04603d03..36e126d1f81d 100644 --- a/libgfortran/generated/minval_i1.c +++ b/libgfortran/generated/minval_i1.c @@ -100,7 +100,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c index 1dc3cf57281c..def692704c5c 100644 --- a/libgfortran/generated/minval_i16.c +++ b/libgfortran/generated/minval_i16.c @@ -100,7 +100,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c index ca8f11028e12..d6f2a1e2d087 100644 --- a/libgfortran/generated/minval_i2.c +++ b/libgfortran/generated/minval_i2.c @@ -100,7 +100,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 59fc3b6a5be2..ae622098ff07 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -100,7 +100,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index 7f6e5de483d6..76edbd68a10b 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -100,7 +100,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c index 5a91dd23f4e1..caf1e27e93b9 100644 --- a/libgfortran/generated/minval_r10.c +++ b/libgfortran/generated/minval_r10.c @@ -100,7 +100,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c index 3580e3098353..fedbe68624c8 100644 --- a/libgfortran/generated/minval_r16.c +++ b/libgfortran/generated/minval_r16.c @@ -100,7 +100,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index d5c191e1b8cf..0fe7ba1df6e9 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -100,7 +100,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index b53093c53ec7..85503c3b2b23 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -100,7 +100,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -303,7 +303,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -494,7 +494,7 @@ sminval_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c index 7e24f36acb9e..d67d467edf50 100644 --- a/libgfortran/generated/norm2_r10.c +++ b/libgfortran/generated/norm2_r10.c @@ -103,7 +103,7 @@ norm2_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c index e796d642d97d..dcf80ed1882a 100644 --- a/libgfortran/generated/norm2_r16.c +++ b/libgfortran/generated/norm2_r16.c @@ -107,7 +107,7 @@ norm2_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c index 313bda300fab..79a15b0e59b7 100644 --- a/libgfortran/generated/norm2_r4.c +++ b/libgfortran/generated/norm2_r4.c @@ -103,7 +103,7 @@ norm2_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c index 140e93a52707..049f25825a9a 100644 --- a/libgfortran/generated/norm2_r8.c +++ b/libgfortran/generated/norm2_r8.c @@ -103,7 +103,7 @@ norm2_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c index 7f62a936181f..886d6404cccd 100644 --- a/libgfortran/generated/parity_l1.c +++ b/libgfortran/generated/parity_l1.c @@ -100,7 +100,7 @@ parity_l1 (gfc_array_l1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c index 5b2cb386d31d..aa361c6cbb2e 100644 --- a/libgfortran/generated/parity_l16.c +++ b/libgfortran/generated/parity_l16.c @@ -100,7 +100,7 @@ parity_l16 (gfc_array_l16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c index daf56b14aa1e..3eec3271fce0 100644 --- a/libgfortran/generated/parity_l2.c +++ b/libgfortran/generated/parity_l2.c @@ -100,7 +100,7 @@ parity_l2 (gfc_array_l2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c index 3ddb70e622f2..c6bf86b28b05 100644 --- a/libgfortran/generated/parity_l4.c +++ b/libgfortran/generated/parity_l4.c @@ -100,7 +100,7 @@ parity_l4 (gfc_array_l4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c index ac1ae43c8ae7..2e4a51db8159 100644 --- a/libgfortran/generated/parity_l8.c +++ b/libgfortran/generated/parity_l8.c @@ -100,7 +100,7 @@ parity_l8 (gfc_array_l8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c index bd41da8beed2..4cf81aca6af2 100644 --- a/libgfortran/generated/product_c10.c +++ b/libgfortran/generated/product_c10.c @@ -100,7 +100,7 @@ product_c10 (gfc_array_c10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c index 47f6dc016f20..5567379d88b8 100644 --- a/libgfortran/generated/product_c16.c +++ b/libgfortran/generated/product_c16.c @@ -100,7 +100,7 @@ product_c16 (gfc_array_c16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index d3d705b36b9e..c9439c847f10 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -100,7 +100,7 @@ product_c4 (gfc_array_c4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 2ff0e8ca9e9d..94017ac5c65a 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -100,7 +100,7 @@ product_c8 (gfc_array_c8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c index 73cbbeb13064..62fe44cdd227 100644 --- a/libgfortran/generated/product_i1.c +++ b/libgfortran/generated/product_i1.c @@ -100,7 +100,7 @@ product_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c index cefa13f20278..487a8f2679f2 100644 --- a/libgfortran/generated/product_i16.c +++ b/libgfortran/generated/product_i16.c @@ -100,7 +100,7 @@ product_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c index b135023b2615..1a7cf7ea6952 100644 --- a/libgfortran/generated/product_i2.c +++ b/libgfortran/generated/product_i2.c @@ -100,7 +100,7 @@ product_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 78a513bfbc80..e70209bfe141 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -100,7 +100,7 @@ product_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 044c50663615..0af1d0a01cd9 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -100,7 +100,7 @@ product_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c index 067890ebfa76..df92b05d770b 100644 --- a/libgfortran/generated/product_r10.c +++ b/libgfortran/generated/product_r10.c @@ -100,7 +100,7 @@ product_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c index 2641379f02f7..45f3419d8511 100644 --- a/libgfortran/generated/product_r16.c +++ b/libgfortran/generated/product_r16.c @@ -100,7 +100,7 @@ product_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index 6f104b2ebbaa..3aaff50e4a66 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -100,7 +100,7 @@ product_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index d70f88c41e9c..ba407bf27f90 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -100,7 +100,7 @@ product_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/reshape_c10.c b/libgfortran/generated/reshape_c10.c index a6077551e1b3..f0b07abf90a2 100644 --- a/libgfortran/generated/reshape_c10.c +++ b/libgfortran/generated/reshape_c10.c @@ -116,7 +116,7 @@ reshape_c10 (gfc_array_c10 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_c16.c b/libgfortran/generated/reshape_c16.c index daecd1eb8756..4befa58ed79e 100644 --- a/libgfortran/generated/reshape_c16.c +++ b/libgfortran/generated/reshape_c16.c @@ -116,7 +116,7 @@ reshape_c16 (gfc_array_c16 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_c4.c b/libgfortran/generated/reshape_c4.c index c2f89e9f99a5..e4c9a319cda9 100644 --- a/libgfortran/generated/reshape_c4.c +++ b/libgfortran/generated/reshape_c4.c @@ -116,7 +116,7 @@ reshape_c4 (gfc_array_c4 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_c8.c b/libgfortran/generated/reshape_c8.c index 2b2a0b8ee7c4..a93dd4f6979f 100644 --- a/libgfortran/generated/reshape_c8.c +++ b/libgfortran/generated/reshape_c8.c @@ -116,7 +116,7 @@ reshape_c8 (gfc_array_c8 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_i16.c b/libgfortran/generated/reshape_i16.c index 620d74bf137b..31b625cf3510 100644 --- a/libgfortran/generated/reshape_i16.c +++ b/libgfortran/generated/reshape_i16.c @@ -116,7 +116,7 @@ reshape_16 (gfc_array_i16 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c index fb616e64fd64..fe7a63025c57 100644 --- a/libgfortran/generated/reshape_i4.c +++ b/libgfortran/generated/reshape_i4.c @@ -116,7 +116,7 @@ reshape_4 (gfc_array_i4 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_i8.c b/libgfortran/generated/reshape_i8.c index abe466368282..44492ee19188 100644 --- a/libgfortran/generated/reshape_i8.c +++ b/libgfortran/generated/reshape_i8.c @@ -116,7 +116,7 @@ reshape_8 (gfc_array_i8 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_r10.c b/libgfortran/generated/reshape_r10.c index e2f6cb64604f..2d16a1c2dd08 100644 --- a/libgfortran/generated/reshape_r10.c +++ b/libgfortran/generated/reshape_r10.c @@ -116,7 +116,7 @@ reshape_r10 (gfc_array_r10 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_r16.c b/libgfortran/generated/reshape_r16.c index 0a24a751c80d..2b7683b79e8d 100644 --- a/libgfortran/generated/reshape_r16.c +++ b/libgfortran/generated/reshape_r16.c @@ -116,7 +116,7 @@ reshape_r16 (gfc_array_r16 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_r4.c b/libgfortran/generated/reshape_r4.c index db8d76a4135e..7c9687f7f1ef 100644 --- a/libgfortran/generated/reshape_r4.c +++ b/libgfortran/generated/reshape_r4.c @@ -116,7 +116,7 @@ reshape_r4 (gfc_array_r4 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/reshape_r8.c b/libgfortran/generated/reshape_r8.c index 06fc72f6efc3..5d2ae8baf4ea 100644 --- a/libgfortran/generated/reshape_r8.c +++ b/libgfortran/generated/reshape_r8.c @@ -116,7 +116,7 @@ reshape_r8 (gfc_array_r8 * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/generated/spread_c10.c b/libgfortran/generated/spread_c10.c index fdde4c4f8d99..5b29d0fe1816 100644 --- a/libgfortran/generated/spread_c10.c +++ b/libgfortran/generated/spread_c10.c @@ -72,7 +72,8 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_c16.c b/libgfortran/generated/spread_c16.c index a6cb709e3884..6823680e3a89 100644 --- a/libgfortran/generated/spread_c16.c +++ b/libgfortran/generated/spread_c16.c @@ -72,7 +72,8 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_c4.c b/libgfortran/generated/spread_c4.c index b9b75f188ed6..bae5e9c95e70 100644 --- a/libgfortran/generated/spread_c4.c +++ b/libgfortran/generated/spread_c4.c @@ -72,7 +72,8 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c index 2d1dbca2478a..802e5173adea 100644 --- a/libgfortran/generated/spread_c8.c +++ b/libgfortran/generated/spread_c8.c @@ -72,7 +72,8 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_i1.c b/libgfortran/generated/spread_i1.c index f06fd50e8dcd..7acff05059df 100644 --- a/libgfortran/generated/spread_i1.c +++ b/libgfortran/generated/spread_i1.c @@ -72,7 +72,8 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_i16.c b/libgfortran/generated/spread_i16.c index 19f15d712eed..de8a3031b5de 100644 --- a/libgfortran/generated/spread_i16.c +++ b/libgfortran/generated/spread_i16.c @@ -72,7 +72,8 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_i2.c b/libgfortran/generated/spread_i2.c index eeb28999573f..16102ffa6967 100644 --- a/libgfortran/generated/spread_i2.c +++ b/libgfortran/generated/spread_i2.c @@ -72,7 +72,8 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_i4.c b/libgfortran/generated/spread_i4.c index 463e153ed73c..c2fb5c94f5df 100644 --- a/libgfortran/generated/spread_i4.c +++ b/libgfortran/generated/spread_i4.c @@ -72,7 +72,8 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_i8.c b/libgfortran/generated/spread_i8.c index fe416818b07e..abdcd650f913 100644 --- a/libgfortran/generated/spread_i8.c +++ b/libgfortran/generated/spread_i8.c @@ -72,7 +72,8 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_r10.c b/libgfortran/generated/spread_r10.c index 4aec65d4333f..7daf37c731a7 100644 --- a/libgfortran/generated/spread_r10.c +++ b/libgfortran/generated/spread_r10.c @@ -72,7 +72,8 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_r16.c b/libgfortran/generated/spread_r16.c index 8e1e9c7925ef..197ebf2a81a9 100644 --- a/libgfortran/generated/spread_r16.c +++ b/libgfortran/generated/spread_r16.c @@ -72,7 +72,8 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index 431452f51a32..beef7e50eeca 100644 --- a/libgfortran/generated/spread_r4.c +++ b/libgfortran/generated/spread_r4.c @@ -72,7 +72,8 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c index d89c8d296601..ba71799bda2f 100644 --- a/libgfortran/generated/spread_r8.c +++ b/libgfortran/generated/spread_r8.c @@ -72,7 +72,8 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c index 31d804973766..e20b4edb3734 100644 --- a/libgfortran/generated/sum_c10.c +++ b/libgfortran/generated/sum_c10.c @@ -100,7 +100,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_c10 (gfc_array_c10 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c index f9d5c1ec3fe0..7ae41a37d614 100644 --- a/libgfortran/generated/sum_c16.c +++ b/libgfortran/generated/sum_c16.c @@ -100,7 +100,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_c16 (gfc_array_c16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 66872ddbc04b..2b50f2f3ee2e 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -100,7 +100,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_c4 (gfc_array_c4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index 9d0e57fdf27b..5b41f546aa46 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -100,7 +100,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_c8 (gfc_array_c8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c index 7fe696bc1876..3ff4ddc27694 100644 --- a/libgfortran/generated/sum_i1.c +++ b/libgfortran/generated/sum_i1.c @@ -100,7 +100,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_i1 (gfc_array_i1 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c index f1840d996bce..8027fe4c6056 100644 --- a/libgfortran/generated/sum_i16.c +++ b/libgfortran/generated/sum_i16.c @@ -100,7 +100,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_i16 (gfc_array_i16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c index f8e453b68fee..b0467ec1395c 100644 --- a/libgfortran/generated/sum_i2.c +++ b/libgfortran/generated/sum_i2.c @@ -100,7 +100,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_i2 (gfc_array_i2 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index e8dae17c81b6..0f5f83672ca1 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -100,7 +100,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_i4 (gfc_array_i4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index 0abbaf826228..9c5c17b70c2c 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -100,7 +100,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_i8 (gfc_array_i8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c index 012909bcaba5..201facc89e76 100644 --- a/libgfortran/generated/sum_r10.c +++ b/libgfortran/generated/sum_r10.c @@ -100,7 +100,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_r10 (gfc_array_r10 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c index 23420b887373..161a5f309619 100644 --- a/libgfortran/generated/sum_r16.c +++ b/libgfortran/generated/sum_r16.c @@ -100,7 +100,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_r16 (gfc_array_r16 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index 09d8f05bf748..4228bde8be8d 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -100,7 +100,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_r4 (gfc_array_r4 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index 0f45648b9a83..8d3483287d49 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -100,7 +100,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -289,7 +289,7 @@ msum_r8 (gfc_array_r8 * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -452,7 +452,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index 276c69ca5958..a0e9c58a4681 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/libgfortran/intrinsics/reshape_generic.c @@ -106,8 +106,7 @@ reshape_internal (parray *ret, parray *source, shape_type *shape, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, size); - - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 5c86aba98a76..a0e12ff80ae4 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -71,7 +71,8 @@ spread_internal (gfc_array_char *ret, const gfc_array_char *source, size_t ub, stride; - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++) diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index ca06e6db6205..2b75fbf904db 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -439,11 +439,6 @@ typedef GFC_FULL_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_INTEGER_4) gfc_full_a /* Macros to set size and type information. */ #define GFC_DTYPE_COPY(a,b) do { (a)->dtype = (b)->dtype; } while(0) -#define GFC_DTYPE_COPY_SETRANK(a,b,n) \ - do { \ - (a)->dtype.rank = ((b)->dtype.rank | n ); \ - } while (0) - #define GFC_DTYPE_IS_UNSET(a) (unlikely((a)->dtype.elem_len == 0)) #define GFC_DTYPE_CLEAR(a) do { (a)->dtype.elem_len = 0; \ (a)->dtype.version = 0; \ diff --git a/libgfortran/m4/iforeach-s.m4 b/libgfortran/m4/iforeach-s.m4 index 494d0626aac1..19bb23bd4ee6 100644 --- a/libgfortran/m4/iforeach-s.m4 +++ b/libgfortran/m4/iforeach-s.m4 @@ -37,7 +37,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); } @@ -142,7 +142,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); } @@ -279,7 +279,7 @@ void if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); } diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index db063bf655e1..dff9f8b9e103 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -28,7 +28,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); } @@ -130,7 +130,7 @@ void if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); } @@ -261,7 +261,7 @@ void if (retarray->base_addr == NULL) { GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - GFC_DTYPE_COPY_SETRANK(retarray,retarray,1); + retarray->dtype.rank = 1; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); } diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4 index a5767f58885f..55d6b187e28b 100644 --- a/libgfortran/m4/ifunction-s.m4 +++ b/libgfortran/m4/ifunction-s.m4 @@ -103,7 +103,7 @@ void } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -291,7 +291,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -453,7 +453,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4 index 27c2236b402d..b4ce650e84af 100644 --- a/libgfortran/m4/ifunction-s2.m4 +++ b/libgfortran/m4/ifunction-s2.m4 @@ -104,7 +104,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; @@ -296,7 +296,7 @@ void * string_len; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -457,7 +457,7 @@ void } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1] * string_len; diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 27bad4ece92d..3b8d7024a10c 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -90,7 +90,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; @@ -279,7 +279,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; if (alloc_size == 0) { @@ -441,7 +441,7 @@ void } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4 index d58c2a0ab216..0568387e3438 100644 --- a/libgfortran/m4/ifunction_logical.m4 +++ b/libgfortran/m4/ifunction_logical.m4 @@ -87,7 +87,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, } retarray->offset = 0; - GFC_DTYPE_COPY_SETRANK(retarray,array,rank); + retarray->dtype.rank = rank; alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index c96ad9f35a30..d0a420b7edb1 100644 --- a/libgfortran/m4/reshape.m4 +++ b/libgfortran/m4/reshape.m4 @@ -120,7 +120,7 @@ reshape_'rtype_ccode` ('rtype` * const restrict ret, alloc_size = rs; ret->base_addr = xmallocarray (alloc_size, sizeof ('rtype_name`)); - GFC_DTYPE_COPY_SETRANK(ret,source,rdim); + ret->dtype.rank = rdim; } if (shape_empty) diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index b5a0b4ed363d..cab13a572122 100644 --- a/libgfortran/m4/spread.m4 +++ b/libgfortran/m4/spread.m4 @@ -73,7 +73,8 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source, /* The front end has signalled that we need to populate the return array descriptor. */ - GFC_DTYPE_COPY_SETRANK(ret,source,rrank); + ret->dtype.rank = rrank; + dim = 0; rs = 1; for (n = 0; n < rrank; n++)