FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/85816 (nested spread fails with "Integer overflow in xmallocarray")

Browse source 
2018-06-01  Steven G. Kargl  <kargl@gcc.gnu.org>

	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  <kargl@gcc.gnu.org>

	PR fortran/85816
	PR fortran/85975
	* gfortran.dg/pr85816.f90: New test.
	* gfortran.dg/pr85975.f90: New test.

From-SVN: r261081
This commit is contained in:
Steven G. Kargl 2018-06-01 20:20:35 +00:00
parent 64acc19ac4
commit ca708a2b55
258 changed files with 977 additions and 659 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/85816
PR fortran/85975
* gfortran.dg/pr85816.f90: New test.
* gfortran.dg/pr85975.f90: New test.
2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/63570

19
gcc/testsuite/gfortran.dg/pr85816.f90 Normal file
View file

@ -0,0 +1,19 @@
! { dg-do compile }
! PR fortran/85816
! Original code from Martin Diehl <m.diehl at mpie dot de>
!
! 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

24
gcc/testsuite/gfortran.dg/pr85975.f90 Normal file
View file

@ -0,0 +1,24 @@
! { dg-do run }
! PR fortran/85976
! Original code from Stephan Kramer <stephan.kramer at imperial dot ac.uk>
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

259
libgfortran/ChangeLog
View file

@ -1,3 +1,262 @@
2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
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 <kargl@gcc.gnu.org>
PR fortran/63570

2
libgfortran/generated/all_l1.c
View file

@ -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];

2
libgfortran/generated/all_l16.c
View file

@ -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];

2
libgfortran/generated/all_l2.c
View file

@ -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];

2
libgfortran/generated/all_l4.c
View file

@ -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];

2
libgfortran/generated/all_l8.c
View file

@ -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];

2
libgfortran/generated/any_l1.c
View file

@ -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];

2
libgfortran/generated/any_l16.c
View file

@ -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];

2
libgfortran/generated/any_l2.c
View file

@ -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];

2
libgfortran/generated/any_l4.c
View file

@ -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];

2
libgfortran/generated/any_l8.c
View file

@ -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];

2
libgfortran/generated/count_16_l.c
View file

@ -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];

2
libgfortran/generated/count_1_l.c
View file

@ -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];

2
libgfortran/generated/count_2_l.c
View file

@ -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];

2
libgfortran/generated/count_4_l.c
View file

@ -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];

2
libgfortran/generated/count_8_l.c
View file

@ -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];

6
libgfortran/generated/iall_i1.c
View file

@ -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];

6
libgfortran/generated/iall_i16.c
View file

@ -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];

6
libgfortran/generated/iall_i2.c
View file

@ -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];

6
libgfortran/generated/iall_i4.c
View file

@ -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];

6
libgfortran/generated/iall_i8.c
View file

@ -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];

6
libgfortran/generated/iany_i1.c
View file

@ -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];

6
libgfortran/generated/iany_i16.c
View file

@ -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];

6
libgfortran/generated/iany_i2.c
View file

@ -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];

6
libgfortran/generated/iany_i4.c
View file

@ -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];

6
libgfortran/generated/iany_i8.c
View file

@ -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];

6
libgfortran/generated/iparity_i1.c
View file

@ -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];

6
libgfortran/generated/iparity_i16.c
View file

@ -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];

6
libgfortran/generated/iparity_i2.c
View file

@ -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];

6
libgfortran/generated/iparity_i4.c
View file

@ -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];

6
libgfortran/generated/iparity_i8.c
View file

@ -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];

6
libgfortran/generated/maxloc0_16_i1.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_i16.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_i2.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_i4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_i8.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_r10.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_r16.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_r4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_r8.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_s1.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_16_s4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_i1.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_i16.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_i2.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_i4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_i8.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_r10.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_r16.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_r4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_r8.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_s1.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_4_s4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_i1.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_i16.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_i2.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_i4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_i8.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_r10.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_r16.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_r4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_r8.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_s1.c
View file

@ -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));
}

6
libgfortran/generated/maxloc0_8_s4.c
View file

@ -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));
}

6
libgfortran/generated/maxloc1_16_i1.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_i16.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_i2.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_i4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_i8.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_r10.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_r16.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_r4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_r8.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_s1.c
View file

@ -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];

6
libgfortran/generated/maxloc1_16_s4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_i1.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_i16.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_i2.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_i4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_i8.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_r10.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_r16.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_r4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_r8.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_s1.c
View file

@ -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];

6
libgfortran/generated/maxloc1_4_s4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_i1.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_i16.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_i2.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_i4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_i8.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_r10.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_r16.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_r4.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_r8.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_s1.c
View file

@ -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];

6
libgfortran/generated/maxloc1_8_s4.c
View file

@ -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];

Some files were not shown because too many files have changed in this diff Show more