From 0bb0be204d3ac26ee9c4142a3be181569b3e79b7 Mon Sep 17 00:00:00 2001 From: kargl Date: Fri, 1 Jun 2018 20:20:35 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 7 + gcc/testsuite/gfortran.dg/pr85816.f90 | 19 +++ gcc/testsuite/gfortran.dg/pr85975.f90 | 24 +++ libgfortran/ChangeLog | 259 +++++++++++++++++++++++++++++++ libgfortran/generated/all_l1.c | 2 +- libgfortran/generated/all_l16.c | 2 +- libgfortran/generated/all_l2.c | 2 +- libgfortran/generated/all_l4.c | 2 +- libgfortran/generated/all_l8.c | 2 +- libgfortran/generated/any_l1.c | 2 +- libgfortran/generated/any_l16.c | 2 +- libgfortran/generated/any_l2.c | 2 +- libgfortran/generated/any_l4.c | 2 +- libgfortran/generated/any_l8.c | 2 +- libgfortran/generated/count_16_l.c | 2 +- libgfortran/generated/count_1_l.c | 2 +- libgfortran/generated/count_2_l.c | 2 +- libgfortran/generated/count_4_l.c | 2 +- libgfortran/generated/count_8_l.c | 2 +- libgfortran/generated/iall_i1.c | 6 +- libgfortran/generated/iall_i16.c | 6 +- libgfortran/generated/iall_i2.c | 6 +- libgfortran/generated/iall_i4.c | 6 +- libgfortran/generated/iall_i8.c | 6 +- libgfortran/generated/iany_i1.c | 6 +- libgfortran/generated/iany_i16.c | 6 +- libgfortran/generated/iany_i2.c | 6 +- libgfortran/generated/iany_i4.c | 6 +- libgfortran/generated/iany_i8.c | 6 +- libgfortran/generated/iparity_i1.c | 6 +- libgfortran/generated/iparity_i16.c | 6 +- libgfortran/generated/iparity_i2.c | 6 +- libgfortran/generated/iparity_i4.c | 6 +- libgfortran/generated/iparity_i8.c | 6 +- libgfortran/generated/maxloc0_16_i1.c | 6 +- libgfortran/generated/maxloc0_16_i16.c | 6 +- libgfortran/generated/maxloc0_16_i2.c | 6 +- libgfortran/generated/maxloc0_16_i4.c | 6 +- libgfortran/generated/maxloc0_16_i8.c | 6 +- libgfortran/generated/maxloc0_16_r10.c | 6 +- libgfortran/generated/maxloc0_16_r16.c | 6 +- libgfortran/generated/maxloc0_16_r4.c | 6 +- libgfortran/generated/maxloc0_16_r8.c | 6 +- libgfortran/generated/maxloc0_16_s1.c | 6 +- libgfortran/generated/maxloc0_16_s4.c | 6 +- libgfortran/generated/maxloc0_4_i1.c | 6 +- libgfortran/generated/maxloc0_4_i16.c | 6 +- libgfortran/generated/maxloc0_4_i2.c | 6 +- libgfortran/generated/maxloc0_4_i4.c | 6 +- libgfortran/generated/maxloc0_4_i8.c | 6 +- libgfortran/generated/maxloc0_4_r10.c | 6 +- libgfortran/generated/maxloc0_4_r16.c | 6 +- libgfortran/generated/maxloc0_4_r4.c | 6 +- libgfortran/generated/maxloc0_4_r8.c | 6 +- libgfortran/generated/maxloc0_4_s1.c | 6 +- libgfortran/generated/maxloc0_4_s4.c | 6 +- libgfortran/generated/maxloc0_8_i1.c | 6 +- libgfortran/generated/maxloc0_8_i16.c | 6 +- libgfortran/generated/maxloc0_8_i2.c | 6 +- libgfortran/generated/maxloc0_8_i4.c | 6 +- libgfortran/generated/maxloc0_8_i8.c | 6 +- libgfortran/generated/maxloc0_8_r10.c | 6 +- libgfortran/generated/maxloc0_8_r16.c | 6 +- libgfortran/generated/maxloc0_8_r4.c | 6 +- libgfortran/generated/maxloc0_8_r8.c | 6 +- libgfortran/generated/maxloc0_8_s1.c | 6 +- libgfortran/generated/maxloc0_8_s4.c | 6 +- libgfortran/generated/maxloc1_16_i1.c | 6 +- libgfortran/generated/maxloc1_16_i16.c | 6 +- libgfortran/generated/maxloc1_16_i2.c | 6 +- libgfortran/generated/maxloc1_16_i4.c | 6 +- libgfortran/generated/maxloc1_16_i8.c | 6 +- libgfortran/generated/maxloc1_16_r10.c | 6 +- libgfortran/generated/maxloc1_16_r16.c | 6 +- libgfortran/generated/maxloc1_16_r4.c | 6 +- libgfortran/generated/maxloc1_16_r8.c | 6 +- libgfortran/generated/maxloc1_16_s1.c | 6 +- libgfortran/generated/maxloc1_16_s4.c | 6 +- libgfortran/generated/maxloc1_4_i1.c | 6 +- libgfortran/generated/maxloc1_4_i16.c | 6 +- libgfortran/generated/maxloc1_4_i2.c | 6 +- libgfortran/generated/maxloc1_4_i4.c | 6 +- libgfortran/generated/maxloc1_4_i8.c | 6 +- libgfortran/generated/maxloc1_4_r10.c | 6 +- libgfortran/generated/maxloc1_4_r16.c | 6 +- libgfortran/generated/maxloc1_4_r4.c | 6 +- libgfortran/generated/maxloc1_4_r8.c | 6 +- libgfortran/generated/maxloc1_4_s1.c | 6 +- libgfortran/generated/maxloc1_4_s4.c | 6 +- libgfortran/generated/maxloc1_8_i1.c | 6 +- libgfortran/generated/maxloc1_8_i16.c | 6 +- libgfortran/generated/maxloc1_8_i2.c | 6 +- libgfortran/generated/maxloc1_8_i4.c | 6 +- libgfortran/generated/maxloc1_8_i8.c | 6 +- libgfortran/generated/maxloc1_8_r10.c | 6 +- libgfortran/generated/maxloc1_8_r16.c | 6 +- libgfortran/generated/maxloc1_8_r4.c | 6 +- libgfortran/generated/maxloc1_8_r8.c | 6 +- libgfortran/generated/maxloc1_8_s1.c | 6 +- libgfortran/generated/maxloc1_8_s4.c | 6 +- libgfortran/generated/maxval1_s1.c | 6 +- libgfortran/generated/maxval1_s4.c | 6 +- libgfortran/generated/maxval_i1.c | 6 +- libgfortran/generated/maxval_i16.c | 6 +- libgfortran/generated/maxval_i2.c | 6 +- libgfortran/generated/maxval_i4.c | 6 +- libgfortran/generated/maxval_i8.c | 6 +- libgfortran/generated/maxval_r10.c | 6 +- libgfortran/generated/maxval_r16.c | 6 +- libgfortran/generated/maxval_r4.c | 6 +- libgfortran/generated/maxval_r8.c | 6 +- libgfortran/generated/minloc0_16_i1.c | 6 +- libgfortran/generated/minloc0_16_i16.c | 6 +- libgfortran/generated/minloc0_16_i2.c | 6 +- libgfortran/generated/minloc0_16_i4.c | 6 +- libgfortran/generated/minloc0_16_i8.c | 6 +- libgfortran/generated/minloc0_16_r10.c | 6 +- libgfortran/generated/minloc0_16_r16.c | 6 +- libgfortran/generated/minloc0_16_r4.c | 6 +- libgfortran/generated/minloc0_16_r8.c | 6 +- libgfortran/generated/minloc0_16_s1.c | 6 +- libgfortran/generated/minloc0_16_s4.c | 6 +- libgfortran/generated/minloc0_4_i1.c | 6 +- libgfortran/generated/minloc0_4_i16.c | 6 +- libgfortran/generated/minloc0_4_i2.c | 6 +- libgfortran/generated/minloc0_4_i4.c | 6 +- libgfortran/generated/minloc0_4_i8.c | 6 +- libgfortran/generated/minloc0_4_r10.c | 6 +- libgfortran/generated/minloc0_4_r16.c | 6 +- libgfortran/generated/minloc0_4_r4.c | 6 +- libgfortran/generated/minloc0_4_r8.c | 6 +- libgfortran/generated/minloc0_4_s1.c | 6 +- libgfortran/generated/minloc0_4_s4.c | 6 +- libgfortran/generated/minloc0_8_i1.c | 6 +- libgfortran/generated/minloc0_8_i16.c | 6 +- libgfortran/generated/minloc0_8_i2.c | 6 +- libgfortran/generated/minloc0_8_i4.c | 6 +- libgfortran/generated/minloc0_8_i8.c | 6 +- libgfortran/generated/minloc0_8_r10.c | 6 +- libgfortran/generated/minloc0_8_r16.c | 6 +- libgfortran/generated/minloc0_8_r4.c | 6 +- libgfortran/generated/minloc0_8_r8.c | 6 +- libgfortran/generated/minloc0_8_s1.c | 6 +- libgfortran/generated/minloc0_8_s4.c | 6 +- libgfortran/generated/minloc1_16_i1.c | 6 +- libgfortran/generated/minloc1_16_i16.c | 6 +- libgfortran/generated/minloc1_16_i2.c | 6 +- libgfortran/generated/minloc1_16_i4.c | 6 +- libgfortran/generated/minloc1_16_i8.c | 6 +- libgfortran/generated/minloc1_16_r10.c | 6 +- libgfortran/generated/minloc1_16_r16.c | 6 +- libgfortran/generated/minloc1_16_r4.c | 6 +- libgfortran/generated/minloc1_16_r8.c | 6 +- libgfortran/generated/minloc1_16_s1.c | 6 +- libgfortran/generated/minloc1_16_s4.c | 6 +- libgfortran/generated/minloc1_4_i1.c | 6 +- libgfortran/generated/minloc1_4_i16.c | 6 +- libgfortran/generated/minloc1_4_i2.c | 6 +- libgfortran/generated/minloc1_4_i4.c | 6 +- libgfortran/generated/minloc1_4_i8.c | 6 +- libgfortran/generated/minloc1_4_r10.c | 6 +- libgfortran/generated/minloc1_4_r16.c | 6 +- libgfortran/generated/minloc1_4_r4.c | 6 +- libgfortran/generated/minloc1_4_r8.c | 6 +- libgfortran/generated/minloc1_4_s1.c | 6 +- libgfortran/generated/minloc1_4_s4.c | 6 +- libgfortran/generated/minloc1_8_i1.c | 6 +- libgfortran/generated/minloc1_8_i16.c | 6 +- libgfortran/generated/minloc1_8_i2.c | 6 +- libgfortran/generated/minloc1_8_i4.c | 6 +- libgfortran/generated/minloc1_8_i8.c | 6 +- libgfortran/generated/minloc1_8_r10.c | 6 +- libgfortran/generated/minloc1_8_r16.c | 6 +- libgfortran/generated/minloc1_8_r4.c | 6 +- libgfortran/generated/minloc1_8_r8.c | 6 +- libgfortran/generated/minloc1_8_s1.c | 6 +- libgfortran/generated/minloc1_8_s4.c | 6 +- libgfortran/generated/minval1_s1.c | 6 +- libgfortran/generated/minval1_s4.c | 6 +- libgfortran/generated/minval_i1.c | 6 +- libgfortran/generated/minval_i16.c | 6 +- libgfortran/generated/minval_i2.c | 6 +- libgfortran/generated/minval_i4.c | 6 +- libgfortran/generated/minval_i8.c | 6 +- libgfortran/generated/minval_r10.c | 6 +- libgfortran/generated/minval_r16.c | 6 +- libgfortran/generated/minval_r4.c | 6 +- libgfortran/generated/minval_r8.c | 6 +- libgfortran/generated/norm2_r10.c | 2 +- libgfortran/generated/norm2_r16.c | 2 +- libgfortran/generated/norm2_r4.c | 2 +- libgfortran/generated/norm2_r8.c | 2 +- libgfortran/generated/parity_l1.c | 2 +- libgfortran/generated/parity_l16.c | 2 +- libgfortran/generated/parity_l2.c | 2 +- libgfortran/generated/parity_l4.c | 2 +- libgfortran/generated/parity_l8.c | 2 +- libgfortran/generated/product_c10.c | 6 +- libgfortran/generated/product_c16.c | 6 +- libgfortran/generated/product_c4.c | 6 +- libgfortran/generated/product_c8.c | 6 +- libgfortran/generated/product_i1.c | 6 +- libgfortran/generated/product_i16.c | 6 +- libgfortran/generated/product_i2.c | 6 +- libgfortran/generated/product_i4.c | 6 +- libgfortran/generated/product_i8.c | 6 +- libgfortran/generated/product_r10.c | 6 +- libgfortran/generated/product_r16.c | 6 +- libgfortran/generated/product_r4.c | 6 +- libgfortran/generated/product_r8.c | 6 +- libgfortran/generated/reshape_c10.c | 2 +- libgfortran/generated/reshape_c16.c | 2 +- libgfortran/generated/reshape_c4.c | 2 +- libgfortran/generated/reshape_c8.c | 2 +- libgfortran/generated/reshape_i16.c | 2 +- libgfortran/generated/reshape_i4.c | 2 +- libgfortran/generated/reshape_i8.c | 2 +- libgfortran/generated/reshape_r10.c | 2 +- libgfortran/generated/reshape_r16.c | 2 +- libgfortran/generated/reshape_r4.c | 2 +- libgfortran/generated/reshape_r8.c | 2 +- libgfortran/generated/spread_c10.c | 3 +- libgfortran/generated/spread_c16.c | 3 +- libgfortran/generated/spread_c4.c | 3 +- libgfortran/generated/spread_c8.c | 3 +- libgfortran/generated/spread_i1.c | 3 +- libgfortran/generated/spread_i16.c | 3 +- libgfortran/generated/spread_i2.c | 3 +- libgfortran/generated/spread_i4.c | 3 +- libgfortran/generated/spread_i8.c | 3 +- libgfortran/generated/spread_r10.c | 3 +- libgfortran/generated/spread_r16.c | 3 +- libgfortran/generated/spread_r4.c | 3 +- libgfortran/generated/spread_r8.c | 3 +- libgfortran/generated/sum_c10.c | 6 +- libgfortran/generated/sum_c16.c | 6 +- libgfortran/generated/sum_c4.c | 6 +- libgfortran/generated/sum_c8.c | 6 +- libgfortran/generated/sum_i1.c | 6 +- libgfortran/generated/sum_i16.c | 6 +- libgfortran/generated/sum_i2.c | 6 +- libgfortran/generated/sum_i4.c | 6 +- libgfortran/generated/sum_i8.c | 6 +- libgfortran/generated/sum_r10.c | 6 +- libgfortran/generated/sum_r16.c | 6 +- libgfortran/generated/sum_r4.c | 6 +- libgfortran/generated/sum_r8.c | 6 +- libgfortran/intrinsics/reshape_generic.c | 3 +- libgfortran/intrinsics/spread_generic.c | 3 +- libgfortran/libgfortran.h | 5 - libgfortran/m4/iforeach-s.m4 | 6 +- libgfortran/m4/iforeach.m4 | 6 +- libgfortran/m4/ifunction-s.m4 | 6 +- libgfortran/m4/ifunction-s2.m4 | 6 +- libgfortran/m4/ifunction.m4 | 6 +- libgfortran/m4/ifunction_logical.m4 | 2 +- libgfortran/m4/reshape.m4 | 2 +- libgfortran/m4/spread.m4 | 3 +- 258 files changed, 977 insertions(+), 659 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/pr85816.f90 create mode 100644 gcc/testsuite/gfortran.dg/pr85975.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0ccd0ab2dd9..af5f62cf6dd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,11 @@ 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 * gfortran.dg/random_init_1.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/pr85816.f90 b/gcc/testsuite/gfortran.dg/pr85816.f90 new file mode 100644 index 00000000000..e1fa97dd493 --- /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 00000000000..9e526c2c06b --- /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 a220cc864b5..4e9c5c7c7a4 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,264 @@ 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 * libgfortran/Makefile.am: Add random_init.f90 to build. * libgfortran/Makefile.in: Regenerated. diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c index 8779367964f..06555623c2c 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 ef3d12eea54..f2e5e62c308 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 18a0ef6f76f..f783f9e7ffe 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 522c591314e..9e1ae1687b3 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 a762ac01a09..31f5e0a358f 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 c2d3d54ecc1..be5fd14b85c 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 181bb85c2a8..1cabd7e3f76 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 b6b86e5a745..2fd2c971634 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 3249b28e786..6eed8dba769 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 6569cb597c4..88ad0daa596 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 d099eedc823..bd4ab74b41c 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 b403d8398db..b54cad845c2 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 e316bbb93ee..a507debf269 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 1748e85ca19..ab5615407a9 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 d1917865025..a5879fdf204 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 f02f7afa4b0..481b2b0b2f7 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 e739fad7abd..51e38a53725 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 ff958a9cd33..32300e32dab 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 ece32e481d9..8083c5a0fab 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 f181f153c74..a337cdbab18 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 20088edee3a..063d4b21b6e 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 90844e884f4..bac35d0af0f 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 e7343895301..ea1ae236058 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 48043eefd2a..9d9d4af6627 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 078160b24b7..e3f30816daa 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 911f9f5a6e5..cdcae29aae9 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 b434f01b4f1..7705648aa5f 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 998df01fd8d..87422a7af84 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 a0c515c7717..a4384e1b9de 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 3225513273e..2321bc3d3d5 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 3bb69059e55..ac09f143541 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 7c2967fedde..f3cfd9deb92 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 87edb85cdc6..f90744a2bb9 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 38daf6d77a7..39491036fd3 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 f48e943d9fc..5a569e8a226 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 f1dc89be33e..f8dc7370055 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 7003a60ac68..8c78a6d7bb6 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 0ada2d1b208..961f39c6c19 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 75b59841aaa..c5414b4b117 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 33f73e7d62c..cc2b4f0ae01 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 8eec34160cb..ff2c88583f4 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 63a5d544c72..014bcb14d0c 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 b515ee0c097..42262d2e72d 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 563aebe28b7..dd9e6783558 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 7760807bac2..ca389b8d076 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 e9113183aab..1d24756e6f7 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 b335b2ed5eb..1008bdf3acf 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 6a27d69f077..781bf84ce95 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 76732d7f6bb..c2796c6a6ee 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 13e371030b7..38f3f6ffbb3 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 ba8e6340118..1c1e6310348 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 90a54b6aed8..15bdb0bf7df 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 c7852b5c8e7..a2ec27fb410 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 88d50d97518..30a12d1a87f 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 b763e3b462e..6592aec9832 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 e338364f951..a32f5373e85 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 11fd73de774..ff9de7fa01a 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 315c8d7e613..2aacaf935c7 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 6fcc69ec394..9ffde922376 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 3ecd60ed7ad..755a513a03e 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 299be1a5c0d..1bd2bf04572 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 405162338c7..81ed1bbb2de 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 40ea75d257f..873c4dc1451 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 cb04e9417ee..70b0ba566c5 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 871bf028341..99310e10a1b 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 3bba4bc9297..ac8b39154c9 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 043a9874d72..12f2c875cf0 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 fe9704fa68b..e8fb57bd7b0 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 25b0449d586..b610133bf6b 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 4b0bddc4104..44aaf0f1f3f 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 9a021a05cfe..aefba16f018 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 2cb8db38fb5..9c8b1939bac 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 ae17ccd788e..a6cb47aebf7 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 6b436d64a69..a5b5e542c94 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 43d541e01f2..7bcb5bbaa1c 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 7d006abbd14..8e1ba58faa2 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 6f3751be021..62175d2a593 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 47c5d825fe8..b507ab34507 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 e8380aa7206..752b2318154 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 fe922ba3f2f..851fd715f87 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 eeab770df1c..b23f7a58cca 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 c0b80b0817d..9cf13751cb3 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 3560c3b7434..e6884f297a7 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 cdcd7fb2652..257ede21c05 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 f1e79cf9002..e8df7d07221 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 1ff5cd3c90c..cd9bb651874 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 9341c2744df..0c78ec8417e 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 4d443ae595e..41cf3b1758e 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 2058ab2ad69..46ff5bb15ef 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 9dc002f6c72..312467586f5 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 1a963d18c56..c8d025f37a1 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 e04c70e5065..b1ef57c5b63 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 b06820bce61..b9b57bfdd86 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 1963746d422..08fd7781801 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 2b16e065245..6745adade3d 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 c4557e0e001..25c711d2e2b 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 094eecf1d07..e151b675a5d 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 e9260ce19b9..dbde1bc5edd 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 86c9fb90189..defed80a4d7 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 30a440e042a..03526acd89d 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 2a329060c39..84deb7ea0f7 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 2954e8ada4a..ae36fd4aa3e 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 fde234cfcbf..abd8f99b501 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 9671fdfc98f..dc640594b2a 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 14e6ce0d091..ccd0f4b6b8a 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 9b5dba09818..2c26b6ebaba 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 13f491114ab..26efe0e4717 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 1e1cd6180a3..6a1a99a8151 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 b3663d6199d..cde4b42482c 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 3a173ea6f37..49fd91e665d 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 4141fa1f22f..1bfc0f7e763 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 0d2f3504408..b4d54ae6689 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 3fd94099798..351d808ada4 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 d04fdda43c9..5a719f46ce3 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 8b029151031..ddeac3d3379 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 45ab7874177..c09a1602d3d 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 95a38a6b5d9..d4cad492acf 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 091afb7a6e9..7ccaf173856 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 7120f000d89..c0f89a80c79 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 c9debdbd457..dbcaf839a87 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 55fb58d4021..dbd3e4c7bd7 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 351b4a1cc5c..d2c6a91ec2c 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 a736c59a105..4d38e2c7e47 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 f714417518b..b9f68e4d0a4 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 7d7ece40a95..075ae445a3a 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 74757394d33..e94599b0dd0 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 0ac6e6b3264..520889063e7 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 aeb0ae9f425..f80a67fca9a 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 f5b59065863..c1527f71599 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 46dfa7807fd..bd2f2838f35 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 c3da87d0e76..cf364b6a298 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 8455b7d406d..244b7ee5b93 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 2b022167482..9d703d8df3a 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 55aafa4c634..2307c87f4d3 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 14b8a62f510..5fe99969924 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 e5c48fa77d6..d6c7318409e 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 caba6a7d49b..4a7e163078f 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 876e9cbae29..fefd0e72ab7 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 68b1800b4a9..fdeabd8b5fe 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 715e074312a..15871ca324a 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 132b2f1abae..5e6a604d9a6 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 83a8d5928c5..2ba76f8c0b5 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 a22e2c71770..fad47c2cff5 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 f384ff10f0a..5be21143cd2 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 72b75b0329d..d1fa3ff9730 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 53cf97dbd24..d09b078bf70 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 93193cf92d6..356d789398d 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 14369b697dc..2783b802014 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 8dfe8ec3eff..f9c46b04ba4 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 5fea33ae1f7..36dd6d50aaa 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 46411b113bb..922fc83d305 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 ce9b926f22d..92496affb00 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 871aa374a1a..c0b91cf5f26 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 16f7e5ef7b7..4defa8d6a1d 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 08d919aabd0..5bf3ec1e444 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 807f6fa016b..c676fcc62c0 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 b2430c4ea6e..167f268436b 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 e81a0a77e90..df2fc90ab72 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 b82aeeaf730..4d2a0b0edf7 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 3476a5e5adb..04fcfecab8b 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 f0c583ffa52..4be56681c43 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 eaafec1018b..27f87450a2c 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 f04fd8d72d8..3eec08fedd3 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 d42c5feea2e..dbe4d3281eb 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 134617d49f3..f20d1387523 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 20f0595ae1d..9d83cc09464 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 653393c532e..b5d0eac33e5 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 a51a290db1f..a990567be77 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 e8e1b7452ad..7fd75339bd4 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 f4a27e1c50d..eadf4e1a7a7 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 4cd0df1209f..97c77967cd1 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 ee2547bc406..8e62188b882 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 605c5de3aef..2345ad19e47 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 153ce0d2b5f..ba876d398be 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 47c02833742..74915fb8299 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 d78c04603d0..36e126d1f81 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 1dc3cf57281..def692704c5 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 ca8f11028e1..d6f2a1e2d08 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 59fc3b6a5be..ae622098ff0 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 7f6e5de483d..76edbd68a10 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 5a91dd23f4e..caf1e27e93b 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 3580e309835..fedbe68624c 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 d5c191e1b8c..0fe7ba1df6e 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 b53093c53ec..85503c3b2b2 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 7e24f36acb9..d67d467edf5 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 e796d642d97..dcf80ed1882 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 313bda300fa..79a15b0e59b 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 140e93a5270..049f25825a9 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 7f62a936181..886d6404ccc 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 5b2cb386d31..aa361c6cbb2 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 daf56b14aa1..3eec3271fce 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 3ddb70e622f..c6bf86b28b0 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 ac1ae43c8ae..2e4a51db815 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 bd41da8beed..4cf81aca6af 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 47f6dc016f2..5567379d88b 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 d3d705b36b9..c9439c847f1 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 2ff0e8ca9e9..94017ac5c65 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 73cbbeb1306..62fe44cdd22 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 cefa13f2027..487a8f2679f 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 b135023b261..1a7cf7ea695 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 78a513bfbc8..e70209bfe14 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 044c5066361..0af1d0a01cd 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 067890ebfa7..df92b05d770 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 2641379f02f..45f3419d851 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 6f104b2ebba..3aaff50e4a6 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 d70f88c41e9..ba407bf27f9 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 a6077551e1b..f0b07abf90a 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 daecd1eb875..4befa58ed79 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 c2f89e9f99a..e4c9a319cda 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 2b2a0b8ee7c..a93dd4f6979 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 620d74bf137..31b625cf351 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 fb616e64fd6..fe7a63025c5 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 abe46636828..44492ee1918 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 e2f6cb64604..2d16a1c2dd0 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 0a24a751c80..2b7683b79e8 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 db8d76a4135..7c9687f7f1e 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 06fc72f6efc..5d2ae8baf4e 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 fdde4c4f8d9..5b29d0fe181 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 a6cb709e388..6823680e3a8 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 b9b75f188ed..bae5e9c95e7 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 2d1dbca2478..802e5173ade 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 f06fd50e8dc..7acff05059d 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 19f15d712ee..de8a3031b5d 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 eeb28999573..16102ffa696 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 463e153ed73..c2fb5c94f5d 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 fe416818b07..abdcd650f91 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 4aec65d4333..7daf37c731a 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 8e1e9c7925e..197ebf2a81a 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 431452f51a3..beef7e50eec 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 d89c8d29660..ba71799bda2 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 31d80497376..e20b4edb373 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 f9d5c1ec3fe..7ae41a37d61 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 66872ddbc04..2b50f2f3ee2 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 9d0e57fdf27..5b41f546aa4 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 7fe696bc187..3ff4ddc2769 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 f1840d996bc..8027fe4c605 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 f8e453b68fe..b0467ec1395 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 e8dae17c81b..0f5f83672ca 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 0abbaf82622..9c5c17b70c2 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 012909bcaba..201facc89e7 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 23420b88737..161a5f30961 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 09d8f05bf74..4228bde8be8 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 0f45648b9a8..8d3483287d4 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 276c69ca595..a0e9c58a468 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 5c86aba98a7..a0e12ff80ae 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 ca06e6db620..2b75fbf904d 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 494d0626aac..19bb23bd4ee 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 db063bf655e..dff9f8b9e10 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 a5767f58885..55d6b187e28 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 27c2236b402..b4ce650e84a 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 27bad4ece92..3b8d7024a10 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 d58c2a0ab21..0568387e343 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 c96ad9f35a3..d0a420b7edb 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 b5a0b4ed363..cab13a57212 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++) -- 2.11.4.GIT