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

author Steven G. Kargl <kargl@gcc.gnu.org>

Fri, 1 Jun 2018 20:20:35 +0000 (20:20 +0000)

committer Steven G. Kargl <kargl@gcc.gnu.org>

Fri, 1 Jun 2018 20:20:35 +0000 (20:20 +0000)
author Steven G. Kargl <kargl@gcc.gnu.org>
Fri, 1 Jun 2018 20:20:35 +0000 (20:20 +0000)
committer Steven G. Kargl <kargl@gcc.gnu.org>
Fri, 1 Jun 2018 20:20:35 +0000 (20:20 +0000)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog

index 0ccd0ab2dd9ec164ed46b1d8367187bcac9fc193..af5f62cf6ddc954cf9283a4870c24bd75878ce19 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/pr85816.f90 b/gcc/testsuite/gfortran.dg/pr85816.f90

new file mode 100644 (file)

index 0000000..e1fa97d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr85816.f90
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/pr85975.f90 b/gcc/testsuite/gfortran.dg/pr85975.f90

new file mode 100644 (file)

index 0000000..9e526c2
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr85975.f90
@@ -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
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog

index a220cc864b5cd5e193dfb681063d361b0ef7222e..4e9c5c7c7a46d6af7719eb0593dba2ac544c3c24 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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
diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c

index 8779367964f19cac69e2bb63266fe7c021171c7e..06555623c2c96ba6adbd15fbaa13e5530d60c223 100644 (file)
--- a/libgfortran/generated/all_l1.c
+++ b/libgfortran/generated/all_l1.c
@@ -97,7 +97,7 @@ all_l1 (gfc_array_l1 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c

index ef3d12eea544c4cb0dbf6de18be0b5d64d8b4859..f2e5e62c30874c2d6ff137fa01a375bc8c842819 100644 (file)
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -97,7 +97,7 @@ all_l16 (gfc_array_l16 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c

index 18a0ef6f76f318b4441b8d4e9df3ed4020002a36..f783f9e7ffe3d6f950f61631de4dff23d2bed796 100644 (file)
--- a/libgfortran/generated/all_l2.c
+++ b/libgfortran/generated/all_l2.c
@@ -97,7 +97,7 @@ all_l2 (gfc_array_l2 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c

index 522c591314e05ef8face006a70d6c3aa21b393ee..9e1ae1687b32a6de43f44c4c8f489854447750c9 100644 (file)
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -97,7 +97,7 @@ all_l4 (gfc_array_l4 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c

index a762ac01a090670f170c51050591936aab5be3de..31f5e0a358f4c51661a50e6c4a033c54ec6be422 100644 (file)
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -97,7 +97,7 @@ all_l8 (gfc_array_l8 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c

index c2d3d54ecc1050b28533b8c9ec8b2b9296660b37..be5fd14b85c487542761a37c34cc90b54250a621 100644 (file)
--- a/libgfortran/generated/any_l1.c
+++ b/libgfortran/generated/any_l1.c
@@ -97,7 +97,7 @@ any_l1 (gfc_array_l1 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c

index 181bb85c2a8378853f1f33487a40da82277bfac2..1cabd7e3f7692928ec1565ae6645b02764157e91 100644 (file)
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -97,7 +97,7 @@ any_l16 (gfc_array_l16 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c

index b6b86e5a745ba81ed99ab3b10ea3ad460a029044..2fd2c971634fe4ca29fa32a7eedfabe1d6195cca 100644 (file)
--- a/libgfortran/generated/any_l2.c
+++ b/libgfortran/generated/any_l2.c
@@ -97,7 +97,7 @@ any_l2 (gfc_array_l2 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c

index 3249b28e7866763e811e5f2f752ee7e765c94ed1..6eed8dba7694c13a36c6fe230d6c8e2b8bd22cfa 100644 (file)
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -97,7 +97,7 @@ any_l4 (gfc_array_l4 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c

index 6569cb597c468c4ccdf89c06be79927bd6760ddb..88ad0daa5964ae53c3fe63cb956d4eab25262275 100644 (file)
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -97,7 +97,7 @@ any_l8 (gfc_array_l8 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c

index d099eedc823d43cf7761dbaba6bcd16a7a2b0b29..bd4ab74b41ccf4e964e364b7cd49ec40f0c3940e 100644 (file)
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -97,7 +97,7 @@ count_16_l (gfc_array_i16 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c

index b403d8398db625a5fd52a083863e7f366682e919..b54cad845c23c1ab242d07aeba1b2e3f160a1897 100644 (file)
--- a/libgfortran/generated/count_1_l.c
+++ b/libgfortran/generated/count_1_l.c
@@ -97,7 +97,7 @@ count_1_l (gfc_array_i1 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c

index e316bbb93ee71e8a933aee9bcdf0414369b3b802..a507debf2693a613c274aff56e26cb99fb6385f7 100644 (file)
--- a/libgfortran/generated/count_2_l.c
+++ b/libgfortran/generated/count_2_l.c
@@ -97,7 +97,7 @@ count_2_l (gfc_array_i2 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c

index 1748e85ca19e07804fef70b196641765bf27b509..ab5615407a9f7efc5357982b800a5568c47124eb 100644 (file)
--- a/libgfortran/generated/count_4_l.c
+++ b/libgfortran/generated/count_4_l.c
@@ -97,7 +97,7 @@ count_4_l (gfc_array_i4 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c

index d1917865025e16a2a3589b93ea4c2f20021561c4..a5879fdf2042a8293bdf4201654f61a9433e8e86 100644 (file)
--- a/libgfortran/generated/count_8_l.c
+++ b/libgfortran/generated/count_8_l.c
@@ -97,7 +97,7 @@ count_8_l (gfc_array_i8 * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c

index f02f7afa4b080e3831ec5f0559292855c8ee160c..481b2b0b2f761c08b7ad62c65a61c5c7722526b3 100644 (file)
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -100,7 +100,7 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c

index e739fad7abd3e02d62099f16057db26f66625c36..51e38a5372507d3e1e222ec5c1effabd77b790f6 100644 (file)
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -100,7 +100,7 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c

index ff958a9cd33252b5edba69aa92ba8c8998753603..32300e32dabbd71c26ae0a230c8bef0b82ea0c54 100644 (file)
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -100,7 +100,7 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c

index ece32e481d9222f7b8a98ae37c55260a410f7e4e..8083c5a0fab511427f10d7dc305a2200f2956750 100644 (file)
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -100,7 +100,7 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c

index f181f153c7415d7c098abaf76ec67e648c63c23f..a337cdbab18730482993c20c141a54e76a7fffa5 100644 (file)
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -100,7 +100,7 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c

index 20088edee3a7e7964d3830bb64bf9630a1ba0869..063d4b21b6ee1132a6fbf26f66dba1341d676e94 100644 (file)
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -100,7 +100,7 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c

index 90844e884f42024a8925d4f06bc2de1e57fb1fec..bac35d0af0f166d3dbdeb0e629b9406cb1ce2b65 100644 (file)
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -100,7 +100,7 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c

index e73438953013e3a3645abf5496f53e7a6ee5df70..ea1ae23605887da0cf07954f4b6a09e3acd6b11b 100644 (file)
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -100,7 +100,7 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c

index 48043eefd2ab3bb5853c7d3bc408ef2a175029f3..9d9d4af6627ae94fbb05478c564fef76ac379731 100644 (file)
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -100,7 +100,7 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c

index 078160b24b73b3997371d1922268522c6f34dd35..e3f30816daa1c87023ac9a336135d793cb67d3e0 100644 (file)
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -100,7 +100,7 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c

index 911f9f5a6e549c26288aeb795bc3af199d2aca75..cdcae29aae9473306b27c444d5d6535bda7a8d78 100644 (file)
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -100,7 +100,7 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c

index b434f01b4f149849d87cdcf95e51e714c17be91e..7705648aa5fa52417ec52c131b456b80d430180d 100644 (file)
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -100,7 +100,7 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c

index 998df01fd8d3cfb8671e81c4b7c5365c34ffa82a..87422a7af84099b0c73a55f484227e19252c802e 100644 (file)
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -100,7 +100,7 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c

index a0c515c77173d79b0c14d5269061d3d4ae2c10c3..a4384e1b9de36a57684d0aca934e18ea20f80b16 100644 (file)
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -100,7 +100,7 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c

index 3225513273e6fc2ec29bd10432399ca6d51df9b4..2321bc3d3d528ec0d5c467aa2a4c87610f35cc4b 100644 (file)
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -100,7 +100,7 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c

index 3bb69059e5543d82a7bad23d510cbd8f1ae8f3eb..ac09f1435414aeb4e2e10124191e3212cbbf5b48 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i1.c
+++ b/libgfortran/generated/maxloc0_16_i1.c
@@ -54,7 +54,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c

index 7c2967fedde57387ea70ab0d492474b24d41a0f2..f3cfd9deb9292e1b9040e02469ec51ba0b59511d 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i16.c
+++ b/libgfortran/generated/maxloc0_16_i16.c
@@ -54,7 +54,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c

index 87edb85cdc635cecc68d76fc1e178065959c4922..f90744a2bb9fb0939e8ab3a9e74cb40a519d7d33 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i2.c
+++ b/libgfortran/generated/maxloc0_16_i2.c
@@ -54,7 +54,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c

index 38daf6d77a7d7f41201d8ab66c74211c41697900..39491036fd32752755dc64bc5d3be0fac3697c32 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i4.c
+++ b/libgfortran/generated/maxloc0_16_i4.c
@@ -54,7 +54,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c

index f48e943d9fce0649fa9f118af5e7189cb5eba35c..5a569e8a226e67f45d0105ac1b68effe8ed4c3b2 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i8.c
+++ b/libgfortran/generated/maxloc0_16_i8.c
@@ -54,7 +54,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c

index f1dc89be33e7fcb35cc004488d308cf634c5f474..f8dc73700559db808ad1c1fe0b249b98336e3c5a 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r10.c
+++ b/libgfortran/generated/maxloc0_16_r10.c
@@ -54,7 +54,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c

index 7003a60ac6887daef5b625b4f8dbbae101ee1950..8c78a6d7bb6a2e58a4d1c4e570a323663b6e4a62 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r16.c
+++ b/libgfortran/generated/maxloc0_16_r16.c
@@ -54,7 +54,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c

index 0ada2d1b2088379d062aa431715067648ef02c04..961f39c6c19ee0355e721fd1b3e6b8c756fdff2f 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r4.c
+++ b/libgfortran/generated/maxloc0_16_r4.c
@@ -54,7 +54,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c

index 75b59841aaae47847004f485251eccda9c41c43f..c5414b4b11776bfbcc85a6ce4e4498663f8496c1 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r8.c
+++ b/libgfortran/generated/maxloc0_16_r8.c
@@ -54,7 +54,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -383,7 +383,7 @@ smaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_s1.c b/libgfortran/generated/maxloc0_16_s1.c

index 33f73e7d62caacb44cd4a3f6276d1a51563278be..cc2b4f0ae01650ba304237a012e5cad37b14801d 100644 (file)
--- a/libgfortran/generated/maxloc0_16_s1.c
+++ b/libgfortran/generated/maxloc0_16_s1.c
@@ -68,7 +68,7 @@ maxloc0_16_s1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -181,7 +181,7 @@ mmaxloc0_16_s1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -322,7 +322,7 @@ smaxloc0_16_s1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_16_s4.c b/libgfortran/generated/maxloc0_16_s4.c

index 8eec34160cb0fc9b38b331c0d94bb5ead56c2583..ff2c88583f4bb1c7eacde71673d9983ba0566fce 100644 (file)
--- a/libgfortran/generated/maxloc0_16_s4.c
+++ b/libgfortran/generated/maxloc0_16_s4.c
@@ -68,7 +68,7 @@ maxloc0_16_s4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -181,7 +181,7 @@ mmaxloc0_16_s4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -322,7 +322,7 @@ smaxloc0_16_s4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c

index 63a5d544c72fe6eb0c16baef463f2d860747ee3b..014bcb14d0c9061e21183b14b7daf209deda6605 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i1.c
+++ b/libgfortran/generated/maxloc0_4_i1.c
@@ -54,7 +54,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c

index b515ee0c097e5065571cd02102825fafcaaff925..42262d2e72db5aec0d2b18e4017db90e3a227af2 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i16.c
+++ b/libgfortran/generated/maxloc0_4_i16.c
@@ -54,7 +54,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c

index 563aebe28b7f27313d940be998a7a24375a72877..dd9e6783558895a8e9020b1aea2b60033a4320e5 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i2.c
+++ b/libgfortran/generated/maxloc0_4_i2.c
@@ -54,7 +54,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c

index 7760807bac28f99bbbc83a09bcec720628f0b999..ca389b8d0763b1df95ec1cc696dc74b494f78f18 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i4.c
+++ b/libgfortran/generated/maxloc0_4_i4.c
@@ -54,7 +54,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c

index e9113183aab9c47ea0b5146dc8b98a6f3464f904..1d24756e6f714df20ce474709d60943cddfd8785 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i8.c
+++ b/libgfortran/generated/maxloc0_4_i8.c
@@ -54,7 +54,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c

index b335b2ed5eb08297c8c23e47882b918b74e4679b..1008bdf3acfd8de36a11ecc1c9703fc6f407eaf5 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r10.c
+++ b/libgfortran/generated/maxloc0_4_r10.c
@@ -54,7 +54,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c

index 6a27d69f077629b7733b8774f05fdb87ba4f2f96..781bf84ce95de3791dec70bddd669a6800e10e1b 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r16.c
+++ b/libgfortran/generated/maxloc0_4_r16.c
@@ -54,7 +54,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c

index 76732d7f6bb95fecdca7937fff47fdc444102af4..c2796c6a6ee72eec8ed748d8d446d559b9b2c94c 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r4.c
+++ b/libgfortran/generated/maxloc0_4_r4.c
@@ -54,7 +54,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c

index 13e371030b79e679be3f212fd14dd9010a0abe57..38f3f6ffbb3d5c823fd7c7aa8a5d99dda837bb35 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r8.c
+++ b/libgfortran/generated/maxloc0_4_r8.c
@@ -54,7 +54,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -383,7 +383,7 @@ smaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_s1.c b/libgfortran/generated/maxloc0_4_s1.c

index ba8e63401187ce9592b188c63bcf423184c3e99f..1c1e6310348fdf2a06ecd953ea09d13cda3d01d9 100644 (file)
--- a/libgfortran/generated/maxloc0_4_s1.c
+++ b/libgfortran/generated/maxloc0_4_s1.c
@@ -68,7 +68,7 @@ maxloc0_4_s1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -181,7 +181,7 @@ mmaxloc0_4_s1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -322,7 +322,7 @@ smaxloc0_4_s1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_4_s4.c b/libgfortran/generated/maxloc0_4_s4.c

index 90a54b6aed8ac9acc5e2d5281e8eede29a75aaa6..15bdb0bf7df28c07b435664309fd4d5d6c8eb273 100644 (file)
--- a/libgfortran/generated/maxloc0_4_s4.c
+++ b/libgfortran/generated/maxloc0_4_s4.c
@@ -68,7 +68,7 @@ maxloc0_4_s4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -181,7 +181,7 @@ mmaxloc0_4_s4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -322,7 +322,7 @@ smaxloc0_4_s4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c

index c7852b5c8e781abb3e236ace9e46b56ffcee982c..a2ec27fb410a27ce783890108790aa669ac7c886 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i1.c
+++ b/libgfortran/generated/maxloc0_8_i1.c
@@ -54,7 +54,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c

index 88d50d9751893141979032e1dbc792d75f268afc..30a12d1a87fd237542c18588300ce612f06e59c1 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i16.c
+++ b/libgfortran/generated/maxloc0_8_i16.c
@@ -54,7 +54,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c

index b763e3b462e429635454f89876af4762b681f968..6592aec98327758e3696a6d5b84f74970ddff077 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i2.c
+++ b/libgfortran/generated/maxloc0_8_i2.c
@@ -54,7 +54,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c

index e338364f9511a8f34cd7fb6bdd6734f0d0bf77d2..a32f5373e851e78bd7b318ad879ae232def45117 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i4.c
+++ b/libgfortran/generated/maxloc0_8_i4.c
@@ -54,7 +54,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c

index 11fd73de774ff75d442b328a9d833a95757ad5ca..ff9de7fa01ac2c9321655529d4584c58e2c88567 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i8.c
+++ b/libgfortran/generated/maxloc0_8_i8.c
@@ -54,7 +54,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c

index 315c8d7e613d481c3fa6a920836b6d8e3092a7e5..2aacaf935c77d3c606eae5c896d46227fea3aef9 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r10.c
+++ b/libgfortran/generated/maxloc0_8_r10.c
@@ -54,7 +54,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c

index 6fcc69ec39420507dc9ca57c78646c0600ab58ee..9ffde9223769053e799d217d9f7bc37f3c9dcad9 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r16.c
+++ b/libgfortran/generated/maxloc0_8_r16.c
@@ -54,7 +54,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c

index 3ecd60ed7ad438d7d6e32e6c9fd7c42dca48f37b..755a513a03eaa1d5d6e0b175c3e1d003db3b59cb 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r4.c
+++ b/libgfortran/generated/maxloc0_8_r4.c
@@ -54,7 +54,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c

index 299be1a5c0d378c565c2ac5b9618ed6044a82468..1bd2bf04572c13ec401be0a9cd04dee72c16ddb7 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r8.c
+++ b/libgfortran/generated/maxloc0_8_r8.c
@@ -54,7 +54,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -383,7 +383,7 @@ smaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_s1.c b/libgfortran/generated/maxloc0_8_s1.c

index 405162338c7e420f23bcde63f4a4ce88b2d53f8d..81ed1bbb2def24fcf89eb285f035e9b51988abf0 100644 (file)
--- a/libgfortran/generated/maxloc0_8_s1.c
+++ b/libgfortran/generated/maxloc0_8_s1.c
@@ -68,7 +68,7 @@ maxloc0_8_s1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -181,7 +181,7 @@ mmaxloc0_8_s1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -322,7 +322,7 @@ smaxloc0_8_s1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc0_8_s4.c b/libgfortran/generated/maxloc0_8_s4.c

index 40ea75d257ffe00e2c92f917245f6c1480de4806..873c4dc14517a20e419dcae2cd403146854e0413 100644 (file)
--- a/libgfortran/generated/maxloc0_8_s4.c
+++ b/libgfortran/generated/maxloc0_8_s4.c
@@ -68,7 +68,7 @@ maxloc0_8_s4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -181,7 +181,7 @@ mmaxloc0_8_s4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -322,7 +322,7 @@ smaxloc0_8_s4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c

index cb04e9417eea8d06dff6c40d1c7dfa1d384bbd0a..70b0ba566c5e6fb42001593fb15d37a69f501a59 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -103,7 +103,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c

index 871bf028341d4274ac0578ff407470f47d7af605..99310e10a1b3b194745040f53ae42f88d47bf1e3 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -103,7 +103,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c

index 3bba4bc92979c8ed24c3f8868b5aafb0c25e284f..ac8b39154c96eed21c156daa080e9fbdc5f340d1 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -103,7 +103,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c

index 043a9874d720429367d569610c6ab28f7809ca03..12f2c875cf08a348844ff00bde3571aa3dffcdc2 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -103,7 +103,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c

index fe9704fa68beef272a9e99e1058b4bf241f6f76a..e8fb57bd7b06d9d8f9b0dcaa34d4c9fa15508eb2 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -103,7 +103,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c

index 25b0449d5860add94c2c03f01a4f59fbb9fa2273..b610133bf6b3a23667c5b195eeb5c2187a374964 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -103,7 +103,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c

index 4b0bddc4104d7c6505dab143a00b8544b3c012e2..44aaf0f1f3fc1f103f00ce5e7b4b60cc7594bd26 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -103,7 +103,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c

index 9a021a05cfe5e2ef89a47b752061ed272d1fb9c7..aefba16f0182f24e0d7cc081fcb1e8c16e8df960 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -103,7 +103,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c

index 2cb8db38fb58b27cacaa1f2bd061de6610f9c210..9c8b1939bacef8ac401a779fa2a8035f9a19a200 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -103,7 +103,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c

index ae17ccd788ed912d29daf947e06656bee477c970..a6cb47aebf765238ec076a6a2d20b7fcbf0e03d3 100644 (file)
--- a/libgfortran/generated/maxloc1_16_s1.c
+++ b/libgfortran/generated/maxloc1_16_s1.c
@@ -115,7 +115,7 @@ maxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c

index 6b436d64a69859ea1ecce082fb5b8233cc1e9c5e..a5b5e542c9496298926fc330cd78894b7c2ec8b8 100644 (file)
--- a/libgfortran/generated/maxloc1_16_s4.c
+++ b/libgfortran/generated/maxloc1_16_s4.c
@@ -115,7 +115,7 @@ maxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c

index 43d541e01f2d7e84a101eac175e951e224580d9a..7bcb5bbaa1cf94fe1b94e80685eab28850fa575f 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -103,7 +103,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c

index 7d006abbd1426e6dd1ddda97b61dffb6441b08f4..8e1ba58faa2bf2a934c22e04028be45c49c71d39 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -103,7 +103,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c

index 6f3751be02105283b1b1ca0621e31792acd73dc6..62175d2a59314f0e4f2bbecee9e8eb144cc679a3 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -103,7 +103,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c

index 47c5d825fe85996c248f55046eaf10ec67e3e84f..b507ab34507ede0f8484b5270e454fef0b3d2f35 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -103,7 +103,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c

index e8380aa720691dc70f6b9d92c7a712983d20d6e0..752b2318154124b4cf701fb9ddce68f6362e908d 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -103,7 +103,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c

index fe922ba3f2f44dfb7b6764423c25e8522b5fef05..851fd715f87d5d8e51a4bf967f4a65d0e781622d 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -103,7 +103,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c

index eeab770df1c50bcc90f938760417d0101a06a0b5..b23f7a58cca0d699f9e3bbfe05a17d6499b15bfe 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -103,7 +103,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c

index c0b80b0817dfad7dd69b6847b613b017e3ba8124..9cf13751cb32bca0a5f8f88109e164acc662cf00 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -103,7 +103,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c

index 3560c3b74342381c7042c298416ed94fe99e4e9c..e6884f297a7280491fbd50e1967667e42dd261c4 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -103,7 +103,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c

index cdcd7fb265230c6877f5be1be2c99bfae1d8865c..257ede21c05d0f3fb05cfef6ba4286178c2a2f8a 100644 (file)
--- a/libgfortran/generated/maxloc1_4_s1.c
+++ b/libgfortran/generated/maxloc1_4_s1.c
@@ -115,7 +115,7 @@ maxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c

index f1e79cf90020dd8b338ead275c0733d7a58077fd..e8df7d0722116cf0142ab10b0f8c051507efa6eb 100644 (file)
--- a/libgfortran/generated/maxloc1_4_s4.c
+++ b/libgfortran/generated/maxloc1_4_s4.c
@@ -115,7 +115,7 @@ maxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c

index 1ff5cd3c90c8c579e6ac71f36ea26d54c14487b8..cd9bb65187460371db57486e5b68a82b3e02d0b0 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -103,7 +103,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c

index 9341c2744df4ed74ab994cc79ae2f2a052ad21f7..0c78ec8417eb18206857f88c92a93a4ec1d51a47 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -103,7 +103,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c

index 4d443ae595ea28039c3c853b4f15a8a446c8b94f..41cf3b1758e012827a38884df79e6cd8f4f7c6fb 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -103,7 +103,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c

index 2058ab2ad69478485d8ade152f7b4ee8b4ef77a1..46ff5bb15efd6823f67a72bea4183ef66b0647b8 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -103,7 +103,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c

index 9dc002f6c7244e50368043255911efefa3dd0491..312467586f5a70369bfcce5b395870ace5341411 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -103,7 +103,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c

index 1a963d18c56cf629afa43a453e028f635efd0254..c8d025f37a1a0d4e93128ec5551419fc03b7afdc 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -103,7 +103,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c

index e04c70e50659c09c08308bf417f05d07b03c1433..b1ef57c5b633eff720f41183a3f162f4a9ebd367 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -103,7 +103,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c

index b06820bce61c3199f7280c386336d4763a4904b5..b9b57bfdd86900483c7a88ae569c90d7313336fd 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -103,7 +103,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c

index 1963746d42244059e76a18ca9d1ede2a0a89af68..08fd7781801e50f48121ac2aa6b34a37a2f7dbde 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -103,7 +103,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -317,7 +317,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -523,7 +523,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c

index 2b16e0652456ff83977f10916fdb987b22d4c5c0..6745adade3d77739d0fe073fefb85973bee9c220 100644 (file)
--- a/libgfortran/generated/maxloc1_8_s1.c
+++ b/libgfortran/generated/maxloc1_8_s1.c
@@ -115,7 +115,7 @@ maxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mmaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c

index c4557e0e001981c3f5a1c121408fd4a1d60b381c..25c711d2e2b3c58bf5b927695dc84e14c17a3e93 100644 (file)
--- a/libgfortran/generated/maxloc1_8_s4.c
+++ b/libgfortran/generated/maxloc1_8_s4.c
@@ -115,7 +115,7 @@ maxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval1_s1.c b/libgfortran/generated/maxval1_s1.c

index 094eecf1d074809ebbfbfbfbceeb455315721fbf..e151b675a5de953cb8403791f0b3a50cd00b7be5 100644 (file)
--- a/libgfortran/generated/maxval1_s1.c
+++ b/libgfortran/generated/maxval1_s1.c
@@ -114,7 +114,7 @@ maxval1_s1 (gfc_array_s1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
@@ -310,7 +310,7 @@ mmaxval1_s1 (gfc_array_s1 * const restrict retarray,
                  * string_len;
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -485,7 +485,7 @@ smaxval1_s1 (gfc_array_s1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
diff --git a/libgfortran/generated/maxval1_s4.c b/libgfortran/generated/maxval1_s4.c

index e9260ce19b9d5ee3e28181294a7f20941ed46951..dbde1bc5edd6ca76ce6ed3cfe8615d8af96f24ae 100644 (file)
--- a/libgfortran/generated/maxval1_s4.c
+++ b/libgfortran/generated/maxval1_s4.c
@@ -114,7 +114,7 @@ maxval1_s4 (gfc_array_s4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
@@ -310,7 +310,7 @@ mmaxval1_s4 (gfc_array_s4 * const restrict retarray,
                  * string_len;
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -485,7 +485,7 @@ smaxval1_s4 (gfc_array_s4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c

index 86c9fb9018962768b907307391085295de7e3956..defed80a4d78ba05e7b36272dfaada688b4b31a1 100644 (file)
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -100,7 +100,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c

index 30a440e042a7cfcd212e1677f8f12ae65b497681..03526acd89d10bdb84662cd23d3ab2928bd78e9b 100644 (file)
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -100,7 +100,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c

index 2a329060c39f9ba6eda2cf9e28949eb865f8de32..84deb7ea0f74ad062c1898cbce88093accd614db 100644 (file)
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -100,7 +100,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c

index 2954e8ada4a23f3693de3f48ad7ce148dafefebe..ae36fd4aa3ee20398a340abe210ba9a16f96383f 100644 (file)
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -100,7 +100,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c

index fde234cfcbfb92092dc05b808685777035529ed8..abd8f99b501087568bcaca8dd2bcf9869cc4cded 100644 (file)
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -100,7 +100,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c

index 9671fdfc98fe923447d9e3d7bd18f862cb263747..dc640594b2a4ad5e3c3781a40031e915b80ee589 100644 (file)
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -100,7 +100,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c

index 14e6ce0d09112d1435b83065ba9db9db03f9a4f5..ccd0f4b6b8a6a16835da93275ce54630929d9043 100644 (file)
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -100,7 +100,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c

index 9b5dba0981866f4d5447121b34bac691b57e94e5..2c26b6ebaba0e468b13a40d906bd18d2249c93a7 100644 (file)
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -100,7 +100,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c

index 13f491114ab6201a76a8f91b623cb786af164bc0..26efe0e4717d9e7098b9511f9da79a03a88c59fe 100644 (file)
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -100,7 +100,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c

index 1e1cd6180a3830fa54a4ad5d28e4c20ec37a147e..6a1a99a81515cf273254246663879e600e745a1f 100644 (file)
--- a/libgfortran/generated/minloc0_16_i1.c
+++ b/libgfortran/generated/minloc0_16_i1.c
@@ -54,7 +54,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c

index b3663d6199d4e643c927122993f74a0287961262..cde4b42482c1736c48097a0feb2d81078a6c7fb1 100644 (file)
--- a/libgfortran/generated/minloc0_16_i16.c
+++ b/libgfortran/generated/minloc0_16_i16.c
@@ -54,7 +54,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c

index 3a173ea6f37f24f3bd58c04edabffb78c9c88967..49fd91e665dd90d39bca780dbf8ff12e067a965a 100644 (file)
--- a/libgfortran/generated/minloc0_16_i2.c
+++ b/libgfortran/generated/minloc0_16_i2.c
@@ -54,7 +54,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c

index 4141fa1f22f16796cdce8f2b1749291bd476c3db..1bfc0f7e7637d08f4cc49455b53d17fcc1e756d6 100644 (file)
--- a/libgfortran/generated/minloc0_16_i4.c
+++ b/libgfortran/generated/minloc0_16_i4.c
@@ -54,7 +54,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c

index 0d2f3504408461fcf43030bdce56d07d63d28839..b4d54ae6689feba9a2dd76a9e65e58e15136775f 100644 (file)
--- a/libgfortran/generated/minloc0_16_i8.c
+++ b/libgfortran/generated/minloc0_16_i8.c
@@ -54,7 +54,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c

index 3fd940997986d0ee39423aaa3b1b3178afe176f7..351d808ada4d32d5e693c326712fcafed5ca16c8 100644 (file)
--- a/libgfortran/generated/minloc0_16_r10.c
+++ b/libgfortran/generated/minloc0_16_r10.c
@@ -54,7 +54,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c

index d04fdda43c96ea74a4ba01497e52114c88c9fcd7..5a719f46ce318246edcc9cb9c64cb744fabee1af 100644 (file)
--- a/libgfortran/generated/minloc0_16_r16.c
+++ b/libgfortran/generated/minloc0_16_r16.c
@@ -54,7 +54,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c

index 8b029151031ebd9b33cd4f3c8502fa08baeeae45..ddeac3d33791b978ca7d4f667d77c4da6f60645f 100644 (file)
--- a/libgfortran/generated/minloc0_16_r4.c
+++ b/libgfortran/generated/minloc0_16_r4.c
@@ -54,7 +54,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c

index 45ab7874177d62a8bf61044b367bb83cd28094ee..c09a1602d3dba625fa46921d1b37914aff5c28b6 100644 (file)
--- a/libgfortran/generated/minloc0_16_r8.c
+++ b/libgfortran/generated/minloc0_16_r8.c
@@ -54,7 +54,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -205,7 +205,7 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -382,7 +382,7 @@ sminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_s1.c b/libgfortran/generated/minloc0_16_s1.c

index 95a38a6b5d938c257776dd3a1c22e5990ce64795..d4cad492acf2f2f6cbeee3c144e4792f7f150947 100644 (file)
--- a/libgfortran/generated/minloc0_16_s1.c
+++ b/libgfortran/generated/minloc0_16_s1.c
@@ -68,7 +68,7 @@ minloc0_16_s1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -181,7 +181,7 @@ mminloc0_16_s1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -322,7 +322,7 @@ sminloc0_16_s1 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_16_s4.c b/libgfortran/generated/minloc0_16_s4.c

index 091afb7a6e9a84d0df9b1d5d548400ece6128a4a..7ccaf173856ef6f05a9afb401419c2006e45d382 100644 (file)
--- a/libgfortran/generated/minloc0_16_s4.c
+++ b/libgfortran/generated/minloc0_16_s4.c
@@ -68,7 +68,7 @@ minloc0_16_s4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -181,7 +181,7 @@ mminloc0_16_s4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
@@ -322,7 +322,7 @@ sminloc0_16_s4 (gfc_array_i16 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
      }
diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c

index 7120f000d89b3f68f2fac2b013980341329a2925..c0f89a80c798d95c25350ad5997e6c42a47bd2b5 100644 (file)
--- a/libgfortran/generated/minloc0_4_i1.c
+++ b/libgfortran/generated/minloc0_4_i1.c
@@ -54,7 +54,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c

index c9debdbd457e0bff636dde8851de343e18e51e0f..dbcaf839a8740968f52abc0fb324d756b9a4dc06 100644 (file)
--- a/libgfortran/generated/minloc0_4_i16.c
+++ b/libgfortran/generated/minloc0_4_i16.c
@@ -54,7 +54,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c

index 55fb58d4021370da63a22f86978fee08d93e4f65..dbd3e4c7bd75d57dceaf7022c99ed318a5cf92ca 100644 (file)
--- a/libgfortran/generated/minloc0_4_i2.c
+++ b/libgfortran/generated/minloc0_4_i2.c
@@ -54,7 +54,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c

index 351b4a1cc5c4ad84fa0cf7e0c6897517f5e40991..d2c6a91ec2cbb9050667c26a2378a309820111a4 100644 (file)
--- a/libgfortran/generated/minloc0_4_i4.c
+++ b/libgfortran/generated/minloc0_4_i4.c
@@ -54,7 +54,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c

index a736c59a105600c317588454c92ce8c6244cd73a..4d38e2c7e473766620e983b9cfde7a722052c8cc 100644 (file)
--- a/libgfortran/generated/minloc0_4_i8.c
+++ b/libgfortran/generated/minloc0_4_i8.c
@@ -54,7 +54,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c

index f714417518b9c9acdec1ade640365ca755b64cc3..b9f68e4d0a41271809b8d3dda0e7ce8432323218 100644 (file)
--- a/libgfortran/generated/minloc0_4_r10.c
+++ b/libgfortran/generated/minloc0_4_r10.c
@@ -54,7 +54,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c

index 7d7ece40a957a0121a8cfa3663143f535465ddf6..075ae445a3a8a4ace712024d50803e496948bac9 100644 (file)
--- a/libgfortran/generated/minloc0_4_r16.c
+++ b/libgfortran/generated/minloc0_4_r16.c
@@ -54,7 +54,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c

index 74757394d3331c3f9fe4d89ae5b54fe883f5ade5..e94599b0dd0ea41ffce518fcfc2fdaeb5e229f21 100644 (file)
--- a/libgfortran/generated/minloc0_4_r4.c
+++ b/libgfortran/generated/minloc0_4_r4.c
@@ -54,7 +54,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c

index 0ac6e6b3264cf4a386f9956e7e77833298469682..520889063e78f7153f64445f08f260c7a91fa931 100644 (file)
--- a/libgfortran/generated/minloc0_4_r8.c
+++ b/libgfortran/generated/minloc0_4_r8.c
@@ -54,7 +54,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -205,7 +205,7 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -382,7 +382,7 @@ sminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_s1.c b/libgfortran/generated/minloc0_4_s1.c

index aeb0ae9f425f98116a8c03b6efe814b85bb48b0a..f80a67fca9a0b56790f599de9f97bcb76f3d4eba 100644 (file)
--- a/libgfortran/generated/minloc0_4_s1.c
+++ b/libgfortran/generated/minloc0_4_s1.c
@@ -68,7 +68,7 @@ minloc0_4_s1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -181,7 +181,7 @@ mminloc0_4_s1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -322,7 +322,7 @@ sminloc0_4_s1 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_4_s4.c b/libgfortran/generated/minloc0_4_s4.c

index f5b5906586355bb2ae445cd2354a6845e1e6f9a6..c1527f71599ca8cf53b6b35871984e5c43b9da92 100644 (file)
--- a/libgfortran/generated/minloc0_4_s4.c
+++ b/libgfortran/generated/minloc0_4_s4.c
@@ -68,7 +68,7 @@ minloc0_4_s4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -181,7 +181,7 @@ mminloc0_4_s4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
@@ -322,7 +322,7 @@ sminloc0_4_s4 (gfc_array_i4 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
      }
diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c

index 46dfa7807fda33b67b1c245a6a5da87eb0a871cc..bd2f2838f35838ba7a182d32e62d2894e111ea91 100644 (file)
--- a/libgfortran/generated/minloc0_8_i1.c
+++ b/libgfortran/generated/minloc0_8_i1.c
@@ -54,7 +54,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c

index c3da87d0e76c3a52cc3f9a0990cc3696a9d2ce8b..cf364b6a298d9830df62b16c143b4e66331ae66a 100644 (file)
--- a/libgfortran/generated/minloc0_8_i16.c
+++ b/libgfortran/generated/minloc0_8_i16.c
@@ -54,7 +54,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c

index 8455b7d406dcedc4c0d6285161a558be839f3f34..244b7ee5b93555b5902644fb2d661b054ffe4277 100644 (file)
--- a/libgfortran/generated/minloc0_8_i2.c
+++ b/libgfortran/generated/minloc0_8_i2.c
@@ -54,7 +54,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c

index 2b02216748275d4ec4df0a97b794ad0c01c1b243..9d703d8df3ae14f5b5c4baf9ecb2e8961f330511 100644 (file)
--- a/libgfortran/generated/minloc0_8_i4.c
+++ b/libgfortran/generated/minloc0_8_i4.c
@@ -54,7 +54,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_i4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_i4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c

index 55aafa4c634030fa34e356b7f8125f6c68b846a3..2307c87f4d3ef663c5e6f1197393cf01c8674198 100644 (file)
--- a/libgfortran/generated/minloc0_8_i8.c
+++ b/libgfortran/generated/minloc0_8_i8.c
@@ -54,7 +54,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_i8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_i8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c

index 14b8a62f5109e3acd0b16361a4666542e127823d..5fe99969924f4f1a7b2ec7f081c9bd63e2e2abe7 100644 (file)
--- a/libgfortran/generated/minloc0_8_r10.c
+++ b/libgfortran/generated/minloc0_8_r10.c
@@ -54,7 +54,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_r10 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_r10 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c

index e5c48fa77d62c0f0b090c77205fab15b86c2e9cf..d6c7318409ea17771814e25d35bd961c38f36148 100644 (file)
--- a/libgfortran/generated/minloc0_8_r16.c
+++ b/libgfortran/generated/minloc0_8_r16.c
@@ -54,7 +54,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_r16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_r16 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c

index caba6a7d49b025dd9a2dcae5861fc522e9979354..4a7e163078fb9ae071f43511f66927ed4504ec7b 100644 (file)
--- a/libgfortran/generated/minloc0_8_r4.c
+++ b/libgfortran/generated/minloc0_8_r4.c
@@ -54,7 +54,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_r4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_r4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c

index 876e9cbae29e1f42f55190dab0c7763ad883d5be..fefd0e72ab74ed87462b71a78aa251eada856132 100644 (file)
--- a/libgfortran/generated/minloc0_8_r8.c
+++ b/libgfortran/generated/minloc0_8_r8.c
@@ -54,7 +54,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -205,7 +205,7 @@ mminloc0_8_r8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -382,7 +382,7 @@ sminloc0_8_r8 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_s1.c b/libgfortran/generated/minloc0_8_s1.c

index 68b1800b4a9bd4cdd344b1fc3c9026a7a7a7e1b6..fdeabd8b5fecfb4d35b670bb0018d950dd803a57 100644 (file)
--- a/libgfortran/generated/minloc0_8_s1.c
+++ b/libgfortran/generated/minloc0_8_s1.c
@@ -68,7 +68,7 @@ minloc0_8_s1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -181,7 +181,7 @@ mminloc0_8_s1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -322,7 +322,7 @@ sminloc0_8_s1 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc0_8_s4.c b/libgfortran/generated/minloc0_8_s4.c

index 715e074312a7053ed0508675c5c0d6003394c8c4..15871ca324a30e87b0b9a4133422497ff1ddd210 100644 (file)
--- a/libgfortran/generated/minloc0_8_s4.c
+++ b/libgfortran/generated/minloc0_8_s4.c
@@ -68,7 +68,7 @@ minloc0_8_s4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -181,7 +181,7 @@ mminloc0_8_s4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
@@ -322,7 +322,7 @@ sminloc0_8_s4 (gfc_array_i8 * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8));
      }
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c

index 132b2f1abae3018516db07b23937f7e50cc2cb9c..5e6a604d9a6ec76ac3b835782a75d3796838fe3c 100644 (file)
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -103,7 +103,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c

index 83a8d5928c54b62ea837f4b0860c06eb2fa89c83..2ba76f8c0b5c4e143f243aa38925f47d3d5da95a 100644 (file)
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -103,7 +103,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c

index a22e2c71770ef3f54cb2d7b5881d5ee64d996f65..fad47c2cff59753065b49fa1c351d806ea94d7b1 100644 (file)
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -103,7 +103,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c

index f384ff10f0ab242159b809c988f6e02bad94b505..5be21143cd26a2cca570c3c03f5accaba969fd82 100644 (file)
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -103,7 +103,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c

index 72b75b0329d92829b8ebc7201d532be929a98de1..d1fa3ff97304a3a80b70c6eaaa0e04a157b45dc4 100644 (file)
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -103,7 +103,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c

index 53cf97dbd24bab21f1b1f2b0808e401e742f3718..d09b078bf70ff85b9b8869a27fc8df49dd622b8f 100644 (file)
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -103,7 +103,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c

index 93193cf92d6e31584f55dfca404a35a260b8cf18..356d789398d2870bbbdb3c1980bcfd15708b05e2 100644 (file)
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -103,7 +103,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c

index 14369b697dcee7de2a4021ea8835b81549235be9..2783b80201447123bbe1dbc426e7fbe6e28c91f7 100644 (file)
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -103,7 +103,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c

index 8dfe8ec3effab8728514622f26b04a84c399642f..f9c46b04ba4c75dca15d4066ccc0d1d6f4cc99ea 100644 (file)
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -103,7 +103,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c

index 5fea33ae1f71a81870b5adf47ab2769a19459398..36dd6d50aaaa83e2b787baa5a09c36c4f63c1051 100644 (file)
--- a/libgfortran/generated/minloc1_16_s1.c
+++ b/libgfortran/generated/minloc1_16_s1.c
@@ -115,7 +115,7 @@ minloc1_16_s1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c

index 46411b113bb355c7cc6f1d125dccddb7d82fd3fa..922fc83d305e745baa645f278de31a53864bfaa6 100644 (file)
--- a/libgfortran/generated/minloc1_16_s4.c
+++ b/libgfortran/generated/minloc1_16_s4.c
@@ -115,7 +115,7 @@ minloc1_16_s4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c

index ce9b926f22d0f681a54dfac6af39cdf771b2fdcc..92496affb0039270e423795630f41e3fc68d324a 100644 (file)
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -103,7 +103,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c

index 871aa374a1a222769964df9dec44ea8b51f46649..c0b91cf5f263d38969ea49d58de2bad28b3aead3 100644 (file)
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -103,7 +103,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c

index 16f7e5ef7b7dac89b89c080363608c3b68996502..4defa8d6a1d5df8ca4aeeef1e649918879ea3bed 100644 (file)
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -103,7 +103,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c

index 08d919aabd09b750d86eeeddf4eb9bcf87df6e2d..5bf3ec1e44477701fa35a13054178e70a8dbcc98 100644 (file)
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -103,7 +103,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c

index 807f6fa016bf45920e1169b725102968cc40e9e0..c676fcc62c0d4b71f43d45ad87c6eeeb80fdc04e 100644 (file)
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -103,7 +103,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c

index b2430c4ea6e57092d3fed4f3db6ca9a18b332153..167f268436bd8d6c5e20c8173c81d142fadb5204 100644 (file)
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -103,7 +103,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c

index e81a0a77e90ad47c32a7169c3809195c268087eb..df2fc90ab7232b2e78c9bcbff527d34f2cd8d6df 100644 (file)
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -103,7 +103,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c

index b82aeeaf730732c6e91664c13f756fd48c7fef7a..4d2a0b0edf76d1cf8828d08a5ddf2af5c4732cdd 100644 (file)
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -103,7 +103,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c

index 3476a5e5adb6a47aae2f94281de3e59932d4fe21..04fcfecab8b79a5a6f5ab8d9b31de8bb37e6ddad 100644 (file)
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -103,7 +103,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c

index f0c583ffa52abf09f4d903b6a6ba8acf17b6101e..4be56681c43ea05be1ab10348f0e5d3b93ba10a4 100644 (file)
--- a/libgfortran/generated/minloc1_4_s1.c
+++ b/libgfortran/generated/minloc1_4_s1.c
@@ -115,7 +115,7 @@ minloc1_4_s1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c

index eaafec1018bdf737838bfd96f995c303d0323897..27f87450a2c5dcff5eb98b10b4a43b467f7a700e 100644 (file)
--- a/libgfortran/generated/minloc1_4_s4.c
+++ b/libgfortran/generated/minloc1_4_s4.c
@@ -115,7 +115,7 @@ minloc1_4_s4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c

index f04fd8d72d82b0843578ffebf4150c0770cbff70..3eec08fedd3ae81b52639773022c7abb04dcd6c4 100644 (file)
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -103,7 +103,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c

index d42c5feea2ea8c7a4ffa740eaf3644e6531d490e..dbe4d3281eb90dc6e327287c40ab9bc20f189059 100644 (file)
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -103,7 +103,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c

index 134617d49f37895b34d71ffb7b7d3dc13efa253f..f20d1387523d8dbc85d15af1cadc3e2c911bcac4 100644 (file)
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -103,7 +103,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c

index 20f0595ae1d1f5a52b92a0f0fc6f17f1c9e0fce5..9d83cc09464544aa2d1fed26873d5be37deef46c 100644 (file)
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -103,7 +103,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c

index 653393c532eb838d1da28e67db5d423a49ea9722..b5d0eac33e50b21fda525a7bac354c1e8cd7d5be 100644 (file)
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -103,7 +103,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c

index a51a290db1ff95569183aa8f4062eeda4aaeb6c1..a990567be7704a94e2091e5aaf3f5446377e0e28 100644 (file)
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -103,7 +103,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c

index e8e1b7452ad597e8ddfcde511f926c2f7ceea8be..7fd75339bd4f99c3fbbd88d18a4ca3a8f28ceb52 100644 (file)
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -103,7 +103,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c

index f4a27e1c50d6e5cb7afe15317978529f39f1a0e2..eadf4e1a7a7fe61d309cd1ea39a0215598abb155 100644 (file)
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -103,7 +103,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c

index 4cd0df1209f0eeada13459d42432c39430eb9ce9..97c77967cd1e4416560dc97d532c8360a2208698 100644 (file)
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -103,7 +103,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -327,7 +327,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -533,7 +533,7 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c

index ee2547bc406cb4237fe3de2562d17aa2a5f35dec..8e62188b8823db37eb4e08bb0f7f1c099d31c5c8 100644 (file)
--- a/libgfortran/generated/minloc1_8_s1.c
+++ b/libgfortran/generated/minloc1_8_s1.c
@@ -115,7 +115,7 @@ minloc1_8_s1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c

index 605c5de3aefbdb9848ae2c2a593b34116f05488b..2345ad19e476ac211fe12d155dd7e685c9a787e4 100644 (file)
--- a/libgfortran/generated/minloc1_8_s4.c
+++ b/libgfortran/generated/minloc1_8_s4.c
@@ -115,7 +115,7 @@ minloc1_8_s4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -310,7 +310,7 @@ mminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -489,7 +489,7 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval1_s1.c b/libgfortran/generated/minval1_s1.c

index 153ce0d2b5f3f89b481a74bd77531507d9e5b403..ba876d398bed5431dced3583186e0d7a463eab03 100644 (file)
--- a/libgfortran/generated/minval1_s1.c
+++ b/libgfortran/generated/minval1_s1.c
@@ -114,7 +114,7 @@ minval1_s1 (gfc_array_s1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
@@ -310,7 +310,7 @@ mminval1_s1 (gfc_array_s1 * const restrict retarray,
                  * string_len;
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -485,7 +485,7 @@ sminval1_s1 (gfc_array_s1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
diff --git a/libgfortran/generated/minval1_s4.c b/libgfortran/generated/minval1_s4.c

index 47c02833742342ba58794a564af0cba8802dc623..74915fb82996828497e0f6ec9162ca4d29a46edf 100644 (file)
--- a/libgfortran/generated/minval1_s4.c
+++ b/libgfortran/generated/minval1_s4.c
@@ -114,7 +114,7 @@ minval1_s4 (gfc_array_s4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
@@ -310,7 +310,7 @@ mminval1_s4 (gfc_array_s4 * const restrict retarray,
                  * string_len;
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -485,7 +485,7 @@ sminval1_s4 (gfc_array_s4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c

index d78c04603d03d9c56677a1d77d500091ac71f14f..36e126d1f81db04ad84f84b7e88d46ec07eede09 100644 (file)
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -100,7 +100,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c

index 1dc3cf57281c2d40f9b51d1e1ee95110140b6488..def692704c5cc8e88562bd442662476b7cb3fefd 100644 (file)
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -100,7 +100,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c

index ca8f11028e124c783e314a7e67bb746aa2d82281..d6f2a1e2d087d8704a5f42212ebd2e346c925be1 100644 (file)
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -100,7 +100,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c

index 59fc3b6a5be2dc7d15dafa0e3c15319fbfc217e8..ae622098ff0715b36a7db33af96d0df9e02166a5 100644 (file)
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -100,7 +100,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c

index 7f6e5de483d660a280e0c018d7010e482ada9c47..76edbd68a10b16e63036d6ea361886fb5cb8c8c0 100644 (file)
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -100,7 +100,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c

index 5a91dd23f4e14f894f5213d2d356eae74b2277f8..caf1e27e93b9a118ccfcdba71adba1f8928c7a45 100644 (file)
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -100,7 +100,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c

index 3580e3098353994bf6a55968049848c08271c224..fedbe68624c81fa0d23825a2e3a2296db57aa171 100644 (file)
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -100,7 +100,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c

index d5c191e1b8cff452751ebb21742cf7a84be3ab41..0fe7ba1df6e931910e90f45f964759d47bf27240 100644 (file)
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -100,7 +100,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c

index b53093c53ec7ba4846c2a14856230a7788487f0b..85503c3b2b231638a4ed8a69d920b9e0def9c43e 100644 (file)
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -100,7 +100,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -303,7 +303,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -494,7 +494,7 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c

index 7e24f36acb9ed0e9d563dcb6d13542df724e0ced..d67d467edf503e48e24082fc21c01d90356c2d7c 100644 (file)
--- a/libgfortran/generated/norm2_r10.c
+++ b/libgfortran/generated/norm2_r10.c
@@ -103,7 +103,7 @@ norm2_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c

index e796d642d97d154a71945b4caf8a2e6f4490a02d..dcf80ed1882aad4621054505cf647b5125f523b5 100644 (file)
--- a/libgfortran/generated/norm2_r16.c
+++ b/libgfortran/generated/norm2_r16.c
@@ -107,7 +107,7 @@ norm2_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c

index 313bda300fab7d89397b2922c81cbe8b54f976e5..79a15b0e59b7632005bde9caa33e693a83c59c67 100644 (file)
--- a/libgfortran/generated/norm2_r4.c
+++ b/libgfortran/generated/norm2_r4.c
@@ -103,7 +103,7 @@ norm2_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c

index 140e93a52707ecb0aa7b76c4b5f21f6a4596a5ab..049f25825a9a4f15b0fbd0094ed4df857361aa09 100644 (file)
--- a/libgfortran/generated/norm2_r8.c
+++ b/libgfortran/generated/norm2_r8.c
@@ -103,7 +103,7 @@ norm2_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c

index 7f62a936181f646408a0f909a46ceadf9edb0cf5..886d6404cccd1d71ec52caa6543e991e427ae299 100644 (file)
--- a/libgfortran/generated/parity_l1.c
+++ b/libgfortran/generated/parity_l1.c
@@ -100,7 +100,7 @@ parity_l1 (gfc_array_l1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c

index 5b2cb386d31d0e326e5291bec4a3029edb3ab889..aa361c6cbb2e98d1113bfe3589c016c75538a0dd 100644 (file)
--- a/libgfortran/generated/parity_l16.c
+++ b/libgfortran/generated/parity_l16.c
@@ -100,7 +100,7 @@ parity_l16 (gfc_array_l16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c

index daf56b14aa1eff6ca127782403400718860873fb..3eec3271fce0b30535796738b06848fb8f1b4cee 100644 (file)
--- a/libgfortran/generated/parity_l2.c
+++ b/libgfortran/generated/parity_l2.c
@@ -100,7 +100,7 @@ parity_l2 (gfc_array_l2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c

index 3ddb70e622f21a6173c94a02439e82d8df535989..c6bf86b28b055a3d7b7e10c73a3d8be15e45adec 100644 (file)
--- a/libgfortran/generated/parity_l4.c
+++ b/libgfortran/generated/parity_l4.c
@@ -100,7 +100,7 @@ parity_l4 (gfc_array_l4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c

index ac1ae43c8ae720a8b7a45adfaa3c3d397d056660..2e4a51db8159a174f8066a713b59daaafdfc46e1 100644 (file)
--- a/libgfortran/generated/parity_l8.c
+++ b/libgfortran/generated/parity_l8.c
@@ -100,7 +100,7 @@ parity_l8 (gfc_array_l8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c

index bd41da8beed20ff2bf0587a93caf99f29bab4e5a..4cf81aca6af2f73e84da7f472dc2ecf4043f1864 100644 (file)
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -100,7 +100,7 @@ product_c10 (gfc_array_c10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c

index 47f6dc016f202a7b5bf7e0d31c5be992301c68bd..5567379d88b83193ae417470a0d886563bf6cffc 100644 (file)
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -100,7 +100,7 @@ product_c16 (gfc_array_c16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c

index d3d705b36b9e18ac255cbc9d57bf52c8512e89b8..c9439c847f10c0bd34046fddc7c279df0232224a 100644 (file)
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -100,7 +100,7 @@ product_c4 (gfc_array_c4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c

index 2ff0e8ca9e9d228de05c72dbee2f5117b83b5c29..94017ac5c65a66f40eee15a00304f570671d77be 100644 (file)
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -100,7 +100,7 @@ product_c8 (gfc_array_c8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c

index 73cbbeb13064fd40bec6666f5b04d5e604006394..62fe44cdd227143d0b5ab8a54ee91346f32aabbd 100644 (file)
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -100,7 +100,7 @@ product_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c

index cefa13f202782eb4a6eb5bc6e1901ad62b650997..487a8f2679f262058263929b1eb263fc07fc7554 100644 (file)
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -100,7 +100,7 @@ product_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c

index b135023b261510d8cee8e295f493778a248fa4b5..1a7cf7ea695274caec683e62ea51f91b9bb278ac 100644 (file)
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -100,7 +100,7 @@ product_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c

index 78a513bfbc8057c4fec38757ebce136e290d51fe..e70209bfe141702f8f01ca8f4c79f634612ea6d3 100644 (file)
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -100,7 +100,7 @@ product_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c

index 044c50663615cd49eaf9a59a565c4a7239b2a7ec..0af1d0a01cd94a0ce58e0b22f8576408a8ac7a54 100644 (file)
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -100,7 +100,7 @@ product_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c

index 067890ebfa768ffe1fbdc64610f7703a30d31ade..df92b05d770ba829c5c0751f618c6c54708e0fe6 100644 (file)
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -100,7 +100,7 @@ product_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c

index 2641379f02f72219e01bb4b8ee9002331e486405..45f3419d8511050983c0761c50906a08eb0de5c2 100644 (file)
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -100,7 +100,7 @@ product_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c

index 6f104b2ebbaa076df9ddc1d1d09d4071fb26ee76..3aaff50e4a66c29e28062d04d138bf56165b42af 100644 (file)
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -100,7 +100,7 @@ product_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c

index d70f88c41e9c2cae7de6efc9b400e2039797c90d..ba407bf27f903cf215ecb7481f26b17a11388a31 100644 (file)
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -100,7 +100,7 @@ product_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/reshape_c10.c b/libgfortran/generated/reshape_c10.c

index a6077551e1b37763369e324745c2ea2f5e092f7d..f0b07abf90a2d5a4dda41023364a6d1a11925995 100644 (file)
--- a/libgfortran/generated/reshape_c10.c
+++ b/libgfortran/generated/reshape_c10.c
@@ -116,7 +116,7 @@ reshape_c10 (gfc_array_c10 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_c16.c b/libgfortran/generated/reshape_c16.c

index daecd1eb87569636704fe3c8b8103107685c9c51..4befa58ed79e2cc9f02d9ec1e5d8efb088d7e100 100644 (file)
--- a/libgfortran/generated/reshape_c16.c
+++ b/libgfortran/generated/reshape_c16.c
@@ -116,7 +116,7 @@ reshape_c16 (gfc_array_c16 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_c4.c b/libgfortran/generated/reshape_c4.c

index c2f89e9f99a55ab046847fd5704f954d6ab453d1..e4c9a319cda9f68fd5c67e37321b715cc75eea19 100644 (file)
--- a/libgfortran/generated/reshape_c4.c
+++ b/libgfortran/generated/reshape_c4.c
@@ -116,7 +116,7 @@ reshape_c4 (gfc_array_c4 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_c8.c b/libgfortran/generated/reshape_c8.c

index 2b2a0b8ee7c4c8689e52b82858795219fce49024..a93dd4f6979f3cd3419de37a64593f02b02caed0 100644 (file)
--- a/libgfortran/generated/reshape_c8.c
+++ b/libgfortran/generated/reshape_c8.c
@@ -116,7 +116,7 @@ reshape_c8 (gfc_array_c8 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_i16.c b/libgfortran/generated/reshape_i16.c

index 620d74bf137bc8e839d8c8872534c4838ca8438d..31b625cf3510ea8732034fc1ff453dc573b6ce10 100644 (file)
--- a/libgfortran/generated/reshape_i16.c
+++ b/libgfortran/generated/reshape_i16.c
@@ -116,7 +116,7 @@ reshape_16 (gfc_array_i16 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c

index fb616e64fd64f7d024b259d425c8c763003094b6..fe7a63025c57d77ad73a7f76e18fe0f33cbd44c5 100644 (file)
--- a/libgfortran/generated/reshape_i4.c
+++ b/libgfortran/generated/reshape_i4.c
@@ -116,7 +116,7 @@ reshape_4 (gfc_array_i4 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_i8.c b/libgfortran/generated/reshape_i8.c

index abe466368282516ac0f42f4566283b04206a2077..44492ee19188501bdd97a9919bdc4a2efdbe1076 100644 (file)
--- a/libgfortran/generated/reshape_i8.c
+++ b/libgfortran/generated/reshape_i8.c
@@ -116,7 +116,7 @@ reshape_8 (gfc_array_i8 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_r10.c b/libgfortran/generated/reshape_r10.c

index e2f6cb64604f5106676a2b0bb64d6321ee90e666..2d16a1c2dd08e88258dd4f5466eccbb7774cf0f7 100644 (file)
--- a/libgfortran/generated/reshape_r10.c
+++ b/libgfortran/generated/reshape_r10.c
@@ -116,7 +116,7 @@ reshape_r10 (gfc_array_r10 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_r16.c b/libgfortran/generated/reshape_r16.c

index 0a24a751c80d376c8f13db745043c5821e81b193..2b7683b79e8d1824a6b1e7fad4bf49b78086a131 100644 (file)
--- a/libgfortran/generated/reshape_r16.c
+++ b/libgfortran/generated/reshape_r16.c
@@ -116,7 +116,7 @@ reshape_r16 (gfc_array_r16 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_r4.c b/libgfortran/generated/reshape_r4.c

index db8d76a4135ef0dd59e391630558cc21478b3167..7c9687f7f1efb6f988b9f18c11521074c3facd88 100644 (file)
--- a/libgfortran/generated/reshape_r4.c
+++ b/libgfortran/generated/reshape_r4.c
@@ -116,7 +116,7 @@ reshape_r4 (gfc_array_r4 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/reshape_r8.c b/libgfortran/generated/reshape_r8.c

index 06fc72f6efc3cf02d11daa4f7f470c9754595907..5d2ae8baf4ea6ee9b34b5b7730230d022c840072 100644 (file)
--- a/libgfortran/generated/reshape_r8.c
+++ b/libgfortran/generated/reshape_r8.c
@@ -116,7 +116,7 @@ reshape_r8 (gfc_array_r8 * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/generated/spread_c10.c b/libgfortran/generated/spread_c10.c

index fdde4c4f8d9994de7ed04e827a42c79ab0fd90ad..5b29d0fe1816a9bff04534a3336a5f175867c850 100644 (file)
--- a/libgfortran/generated/spread_c10.c
+++ b/libgfortran/generated/spread_c10.c
@@ -72,7 +72,8 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_c16.c b/libgfortran/generated/spread_c16.c

index a6cb709e3884c96ee37a760922bf23cdcfc59008..6823680e3a8916ea5068b68d468794a4abef1bba 100644 (file)
--- a/libgfortran/generated/spread_c16.c
+++ b/libgfortran/generated/spread_c16.c
@@ -72,7 +72,8 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_c4.c b/libgfortran/generated/spread_c4.c

index b9b75f188ed65890ddef39f86eab11ee5cae1f51..bae5e9c95e70a94ecbee3a7128db68bf7c678d68 100644 (file)
--- a/libgfortran/generated/spread_c4.c
+++ b/libgfortran/generated/spread_c4.c
@@ -72,7 +72,8 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c

index 2d1dbca2478aa902b030147622ec6ab6a30c4ff4..802e5173adead0290817ab045ed3b7ea46254cee 100644 (file)
--- a/libgfortran/generated/spread_c8.c
+++ b/libgfortran/generated/spread_c8.c
@@ -72,7 +72,8 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_i1.c b/libgfortran/generated/spread_i1.c

index f06fd50e8dcd6824020063ab7d8b0d896ac60ab2..7acff05059dff0df9c58248e3f34158352777529 100644 (file)
--- a/libgfortran/generated/spread_i1.c
+++ b/libgfortran/generated/spread_i1.c
@@ -72,7 +72,8 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_i16.c b/libgfortran/generated/spread_i16.c

index 19f15d712eed046337342c3788270142390c8b94..de8a3031b5de418e86a486ad4061b5b1222fd28e 100644 (file)
--- a/libgfortran/generated/spread_i16.c
+++ b/libgfortran/generated/spread_i16.c
@@ -72,7 +72,8 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_i2.c b/libgfortran/generated/spread_i2.c

index eeb28999573f9c5558de051f001448d2034fdb7c..16102ffa6967c9b2c9f827363ae0081c5da40fa4 100644 (file)
--- a/libgfortran/generated/spread_i2.c
+++ b/libgfortran/generated/spread_i2.c
@@ -72,7 +72,8 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_i4.c b/libgfortran/generated/spread_i4.c

index 463e153ed73c19d591aec86ba57e740e1aac4b25..c2fb5c94f5df3650329152beac6cec01524ca399 100644 (file)
--- a/libgfortran/generated/spread_i4.c
+++ b/libgfortran/generated/spread_i4.c
@@ -72,7 +72,8 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_i8.c b/libgfortran/generated/spread_i8.c

index fe416818b07ecd0a8ee772fd900f37defc448f24..abdcd650f913d4a40220e2c9f308e1206b7b239f 100644 (file)
--- a/libgfortran/generated/spread_i8.c
+++ b/libgfortran/generated/spread_i8.c
@@ -72,7 +72,8 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_r10.c b/libgfortran/generated/spread_r10.c

index 4aec65d4333f5e9bddca54af1327c22cddbef480..7daf37c731a7a9cc7fea59e59f0be8bdad1a4263 100644 (file)
--- a/libgfortran/generated/spread_r10.c
+++ b/libgfortran/generated/spread_r10.c
@@ -72,7 +72,8 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_r16.c b/libgfortran/generated/spread_r16.c

index 8e1e9c7925efcf82e04ca45973f17560a135f68f..197ebf2a81a9d099187e6489e9b54330657743ea 100644 (file)
--- a/libgfortran/generated/spread_r16.c
+++ b/libgfortran/generated/spread_r16.c
@@ -72,7 +72,8 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c

index 431452f51a323d7a039dd28b21db90e3991a8500..beef7e50eeca562c01fdfa18eee386a71f97eb60 100644 (file)
--- a/libgfortran/generated/spread_r4.c
+++ b/libgfortran/generated/spread_r4.c
@@ -72,7 +72,8 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c

index d89c8d2966014b3d6f561f8560fcf0e2d8591b80..ba71799bda2f94203338a765cb832a5a2a086925 100644 (file)
--- a/libgfortran/generated/spread_r8.c
+++ b/libgfortran/generated/spread_r8.c
@@ -72,7 +72,8 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c

index 31d804973766c21a25bcd4e9de3942288662a497..e20b4edb373490c45540b89d5d77ca662f632fe1 100644 (file)
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -100,7 +100,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c

index f9d5c1ec3fe0c8f3e27ff907166fb4010a977cd7..7ae41a37d61414d9cf0d198002cd1f45c98a7cca 100644 (file)
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -100,7 +100,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c

index 66872ddbc04b61813624c011f2ac25b2a2287962..2b50f2f3ee2eb84462e18b83c42de7d4c7323339 100644 (file)
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -100,7 +100,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c

index 9d0e57fdf27baba7d829bb45323a0557e99d3b73..5b41f546aa46218fe933f0ab162175156380a0d5 100644 (file)
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -100,7 +100,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c

index 7fe696bc1876fe01a46356550df03d2b9db36d21..3ff4ddc27694ac505c802cfaf892ec2761d5b46a 100644 (file)
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -100,7 +100,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c

index f1840d996bce98ac7410d40186d60a78570e86b7..8027fe4c6056d3fb8dfdc5e4ff03e248d92411ca 100644 (file)
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -100,7 +100,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c

index f8e453b68fee8fa041de075aeae2d5c628b633dc..b0467ec1395c60e155e87f0b7afa42a7cfd46ffe 100644 (file)
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -100,7 +100,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c

index e8dae17c81b66f13f652affa48287f6b8453cfb5..0f5f83672ca12e92e9680e32f2f940ab1da84c72 100644 (file)
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -100,7 +100,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c

index 0abbaf8262289512b330cd3a052dd10fb998f1df..9c5c17b70c2c7af55c4846fd15548c586c27268c 100644 (file)
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -100,7 +100,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c

index 012909bcaba5ad9f15c15c32d2023f9bdd92dd22..201facc89e7657adedc04141ebdfbf49439ce19a 100644 (file)
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -100,7 +100,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c

index 23420b88737312c8499bc2245a95017ff7265fa6..161a5f309619d03678caa9a7f90d7b72c2065734 100644 (file)
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -100,7 +100,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c

index 09d8f05bf7480630ee075b9612e2579368b2851e..4228bde8be8d8d9dda1139b7dae65df624e8b591 100644 (file)
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -100,7 +100,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c

index 0f45648b9a8308f793220bedc082d9c30ce16639..8d3483287d497d6b8a3d3f8b3640f0fc9fc3a689 100644 (file)
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -100,7 +100,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -289,7 +289,7 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -452,7 +452,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c

index 276c69ca59582959c4f2dd8b110fee55568d97e9..a0e9c58a468140c26c1871c0f05d67770609aae0 100644 (file)
--- a/libgfortran/intrinsics/reshape_generic.c
+++ b/libgfortran/intrinsics/reshape_generic.c
@@ -106,8 +106,7 @@ reshape_internal (parray *ret, parray *source, shape_type *shape,
         alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, size);
-
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c

index 5c86aba98a760971d84e8bfd0dbe5015cb94b69b..a0e12ff80ae486e98e097efa56341a62e69f6398 100644 (file)
--- a/libgfortran/intrinsics/spread_generic.c
+++ b/libgfortran/intrinsics/spread_generic.c
@@ -71,7 +71,8 @@ spread_internal (gfc_array_char *ret, const gfc_array_char *source,
  
        size_t ub, stride;
  
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h

index ca06e6db6205beb248d9594ed7d3caaa2fef3d03..2b75fbf904dbc36fa4d72ee5bfe0f0af75956fd8 100644 (file)
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -439,11 +439,6 @@ typedef GFC_FULL_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_INTEGER_4) gfc_full_a
  /* Macros to set size and type information.  */
  
  #define GFC_DTYPE_COPY(a,b) do { (a)->dtype = (b)->dtype; } while(0)
-#define GFC_DTYPE_COPY_SETRANK(a,b,n) \
-  do { \
-  (a)->dtype.rank = ((b)->dtype.rank | n ); \
-  } while (0)
-
  #define GFC_DTYPE_IS_UNSET(a) (unlikely((a)->dtype.elem_len == 0))
  #define GFC_DTYPE_CLEAR(a) do { (a)->dtype.elem_len = 0; \
                                 (a)->dtype.version = 0; \
diff --git a/libgfortran/m4/iforeach-s.m4 b/libgfortran/m4/iforeach-s.m4

index 494d0626aac1364ec1caf304757f0278e290214e..19bb23bd4ee640e2ec58e1ff3af338a376c9533a 100644 (file)
--- a/libgfortran/m4/iforeach-s.m4
+++ b/libgfortran/m4/iforeach-s.m4
@@ -37,7 +37,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (rtype_name));
      }
@@ -142,7 +142,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (rtype_name));
      }
@@ -279,7 +279,7 @@ void
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (rtype_name));
      }
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4

index db063bf655e1bd19e69a2d4e307c1d02f3f9c0fb..dff9f8b9e10394901cad29820547a23e9dce54ba 100644 (file)
--- a/libgfortran/m4/iforeach.m4
+++ b/libgfortran/m4/iforeach.m4
@@ -28,7 +28,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (rtype_name));
      }
@@ -130,7 +130,7 @@ void
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (rtype_name));
      }
@@ -261,7 +261,7 @@ void
    if (retarray->base_addr == NULL)
      {
        GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
-      GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+      retarray->dtype.rank = 1;
        retarray->offset = 0;
        retarray->base_addr = xmallocarray (rank, sizeof (rtype_name));
      }
diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4

index a5767f58885fb82d3b5d7cce500a07ad6d73fd80..55d6b187e28b6a7c27eedca38b4fdf96c6af0355 100644 (file)
--- a/libgfortran/m4/ifunction-s.m4
+++ b/libgfortran/m4/ifunction-s.m4
@@ -103,7 +103,7 @@ void
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -291,7 +291,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -453,7 +453,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4

index 27c2236b402d2c4313b4bc8ad5cea38312dc0f8a..b4ce650e84af9613e0ecfad1f93d30494b549dc1 100644 (file)
--- a/libgfortran/m4/ifunction-s2.m4
+++ b/libgfortran/m4/ifunction-s2.m4
@@ -104,7 +104,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
@@ -296,7 +296,7 @@ void
                  * string_len;
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -457,7 +457,7 @@ void
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4

index 27bad4ece92d056ee18b52e88915d488a1615521..3b8d7024a10cc53177d8fd76384b067b8608e2f1 100644 (file)
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -90,7 +90,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
@@ -279,7 +279,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        if (alloc_size == 0)
         {
@@ -441,7 +441,7 @@ void
         }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4

index d58c2a0ab216a5cf59a3fd5e2f8132adc3efecf2..0568387e343832b80eb63b8180e075b78aa7766e 100644 (file)
--- a/libgfortran/m4/ifunction_logical.m4
+++ b/libgfortran/m4/ifunction_logical.m4
@@ -87,7 +87,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
          }
  
        retarray->offset = 0;
-      GFC_DTYPE_COPY_SETRANK(retarray,array,rank);
+      retarray->dtype.rank = rank;
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4

index c96ad9f35a3098a72e476afd427d44c671fd07da..d0a420b7edb1bf453b89b19425390dc4443de43a 100644 (file)
--- a/libgfortran/m4/reshape.m4
+++ b/libgfortran/m4/reshape.m4
@@ -120,7 +120,7 @@ reshape_'rtype_ccode` ('rtype` * const restrict ret,
          alloc_size = rs;
  
        ret->base_addr = xmallocarray (alloc_size, sizeof ('rtype_name`));
-      GFC_DTYPE_COPY_SETRANK(ret,source,rdim);
+      ret->dtype.rank = rdim;
      }
  
    if (shape_empty)
diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4

index b5a0b4ed363d6d0668455c7d131769e522a1873c..cab13a5721229d328738525dc9f7a396a69fa878 100644 (file)
--- a/libgfortran/m4/spread.m4
+++ b/libgfortran/m4/spread.m4
@@ -73,7 +73,8 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source,
  
        /* The front end has signalled that we need to populate the
          return array descriptor.  */
-      GFC_DTYPE_COPY_SETRANK(ret,source,rrank);
+      ret->dtype.rank = rrank;
+
        dim = 0;
        rs = 1;
        for (n = 0; n < rrank; n++)
author	Steven G. Kargl <kargl@gcc.gnu.org>
	Fri, 1 Jun 2018 20:20:35 +0000 (20:20 +0000)
committer	Steven G. Kargl <kargl@gcc.gnu.org>
	Fri, 1 Jun 2018 20:20:35 +0000 (20:20 +0000)
gcc/testsuite/ChangeLog		patch \| blob \| history
gcc/testsuite/gfortran.dg/pr85816.f90	[new file with mode: 0644]	patch \| blob
gcc/testsuite/gfortran.dg/pr85975.f90	[new file with mode: 0644]	patch \| blob
libgfortran/ChangeLog		patch \| blob \| history
libgfortran/generated/all_l1.c		patch \| blob \| history
libgfortran/generated/all_l16.c		patch \| blob \| history
libgfortran/generated/all_l2.c		patch \| blob \| history
libgfortran/generated/all_l4.c		patch \| blob \| history
libgfortran/generated/all_l8.c		patch \| blob \| history
libgfortran/generated/any_l1.c		patch \| blob \| history
libgfortran/generated/any_l16.c		patch \| blob \| history
libgfortran/generated/any_l2.c		patch \| blob \| history
libgfortran/generated/any_l4.c		patch \| blob \| history
libgfortran/generated/any_l8.c		patch \| blob \| history
libgfortran/generated/count_16_l.c		patch \| blob \| history
libgfortran/generated/count_1_l.c		patch \| blob \| history
libgfortran/generated/count_2_l.c		patch \| blob \| history
libgfortran/generated/count_4_l.c		patch \| blob \| history
libgfortran/generated/count_8_l.c		patch \| blob \| history
libgfortran/generated/iall_i1.c		patch \| blob \| history
libgfortran/generated/iall_i16.c		patch \| blob \| history
libgfortran/generated/iall_i2.c		patch \| blob \| history
libgfortran/generated/iall_i4.c		patch \| blob \| history
libgfortran/generated/iall_i8.c		patch \| blob \| history
libgfortran/generated/iany_i1.c		patch \| blob \| history
libgfortran/generated/iany_i16.c		patch \| blob \| history
libgfortran/generated/iany_i2.c		patch \| blob \| history
libgfortran/generated/iany_i4.c		patch \| blob \| history
libgfortran/generated/iany_i8.c		patch \| blob \| history
libgfortran/generated/iparity_i1.c		patch \| blob \| history
libgfortran/generated/iparity_i16.c		patch \| blob \| history
libgfortran/generated/iparity_i2.c		patch \| blob \| history
libgfortran/generated/iparity_i4.c		patch \| blob \| history
libgfortran/generated/iparity_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_s1.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_s4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_s1.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_s4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_s1.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_s4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_s1.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_s4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_s1.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_s4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_s1.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_s4.c		patch \| blob \| history
libgfortran/generated/maxval1_s1.c		patch \| blob \| history
libgfortran/generated/maxval1_s4.c		patch \| blob \| history
libgfortran/generated/maxval_i1.c		patch \| blob \| history
libgfortran/generated/maxval_i16.c		patch \| blob \| history
libgfortran/generated/maxval_i2.c		patch \| blob \| history
libgfortran/generated/maxval_i4.c		patch \| blob \| history
libgfortran/generated/maxval_i8.c		patch \| blob \| history
libgfortran/generated/maxval_r10.c		patch \| blob \| history
libgfortran/generated/maxval_r16.c		patch \| blob \| history
libgfortran/generated/maxval_r4.c		patch \| blob \| history
libgfortran/generated/maxval_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_s1.c		patch \| blob \| history
libgfortran/generated/minloc0_16_s4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_4_s1.c		patch \| blob \| history
libgfortran/generated/minloc0_4_s4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_8_s1.c		patch \| blob \| history
libgfortran/generated/minloc0_8_s4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_16_s1.c		patch \| blob \| history
libgfortran/generated/minloc1_16_s4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_4_s1.c		patch \| blob \| history
libgfortran/generated/minloc1_4_s4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_8_s1.c		patch \| blob \| history
libgfortran/generated/minloc1_8_s4.c		patch \| blob \| history
libgfortran/generated/minval1_s1.c		patch \| blob \| history
libgfortran/generated/minval1_s4.c		patch \| blob \| history
libgfortran/generated/minval_i1.c		patch \| blob \| history
libgfortran/generated/minval_i16.c		patch \| blob \| history
libgfortran/generated/minval_i2.c		patch \| blob \| history
libgfortran/generated/minval_i4.c		patch \| blob \| history
libgfortran/generated/minval_i8.c		patch \| blob \| history
libgfortran/generated/minval_r10.c		patch \| blob \| history
libgfortran/generated/minval_r16.c		patch \| blob \| history
libgfortran/generated/minval_r4.c		patch \| blob \| history
libgfortran/generated/minval_r8.c		patch \| blob \| history
libgfortran/generated/norm2_r10.c		patch \| blob \| history
libgfortran/generated/norm2_r16.c		patch \| blob \| history
libgfortran/generated/norm2_r4.c		patch \| blob \| history
libgfortran/generated/norm2_r8.c		patch \| blob \| history
libgfortran/generated/parity_l1.c		patch \| blob \| history
libgfortran/generated/parity_l16.c		patch \| blob \| history
libgfortran/generated/parity_l2.c		patch \| blob \| history
libgfortran/generated/parity_l4.c		patch \| blob \| history
libgfortran/generated/parity_l8.c		patch \| blob \| history
libgfortran/generated/product_c10.c		patch \| blob \| history
libgfortran/generated/product_c16.c		patch \| blob \| history
libgfortran/generated/product_c4.c		patch \| blob \| history
libgfortran/generated/product_c8.c		patch \| blob \| history
libgfortran/generated/product_i1.c		patch \| blob \| history
libgfortran/generated/product_i16.c		patch \| blob \| history
libgfortran/generated/product_i2.c		patch \| blob \| history
libgfortran/generated/product_i4.c		patch \| blob \| history
libgfortran/generated/product_i8.c		patch \| blob \| history
libgfortran/generated/product_r10.c		patch \| blob \| history
libgfortran/generated/product_r16.c		patch \| blob \| history
libgfortran/generated/product_r4.c		patch \| blob \| history
libgfortran/generated/product_r8.c		patch \| blob \| history
libgfortran/generated/reshape_c10.c		patch \| blob \| history
libgfortran/generated/reshape_c16.c		patch \| blob \| history
libgfortran/generated/reshape_c4.c		patch \| blob \| history
libgfortran/generated/reshape_c8.c		patch \| blob \| history
libgfortran/generated/reshape_i16.c		patch \| blob \| history
libgfortran/generated/reshape_i4.c		patch \| blob \| history
libgfortran/generated/reshape_i8.c		patch \| blob \| history
libgfortran/generated/reshape_r10.c		patch \| blob \| history
libgfortran/generated/reshape_r16.c		patch \| blob \| history
libgfortran/generated/reshape_r4.c		patch \| blob \| history
libgfortran/generated/reshape_r8.c		patch \| blob \| history
libgfortran/generated/spread_c10.c		patch \| blob \| history
libgfortran/generated/spread_c16.c		patch \| blob \| history
libgfortran/generated/spread_c4.c		patch \| blob \| history
libgfortran/generated/spread_c8.c		patch \| blob \| history
libgfortran/generated/spread_i1.c		patch \| blob \| history
libgfortran/generated/spread_i16.c		patch \| blob \| history
libgfortran/generated/spread_i2.c		patch \| blob \| history
libgfortran/generated/spread_i4.c		patch \| blob \| history
libgfortran/generated/spread_i8.c		patch \| blob \| history
libgfortran/generated/spread_r10.c		patch \| blob \| history
libgfortran/generated/spread_r16.c		patch \| blob \| history
libgfortran/generated/spread_r4.c		patch \| blob \| history
libgfortran/generated/spread_r8.c		patch \| blob \| history
libgfortran/generated/sum_c10.c		patch \| blob \| history
libgfortran/generated/sum_c16.c		patch \| blob \| history
libgfortran/generated/sum_c4.c		patch \| blob \| history
libgfortran/generated/sum_c8.c		patch \| blob \| history
libgfortran/generated/sum_i1.c		patch \| blob \| history
libgfortran/generated/sum_i16.c		patch \| blob \| history
libgfortran/generated/sum_i2.c		patch \| blob \| history
libgfortran/generated/sum_i4.c		patch \| blob \| history
libgfortran/generated/sum_i8.c		patch \| blob \| history
libgfortran/generated/sum_r10.c		patch \| blob \| history
libgfortran/generated/sum_r16.c		patch \| blob \| history
libgfortran/generated/sum_r4.c		patch \| blob \| history
libgfortran/generated/sum_r8.c		patch \| blob \| history
libgfortran/intrinsics/reshape_generic.c		patch \| blob \| history
libgfortran/intrinsics/spread_generic.c		patch \| blob \| history
libgfortran/libgfortran.h		patch \| blob \| history
libgfortran/m4/iforeach-s.m4		patch \| blob \| history
libgfortran/m4/iforeach.m4		patch \| blob \| history
libgfortran/m4/ifunction-s.m4		patch \| blob \| history
libgfortran/m4/ifunction-s2.m4		patch \| blob \| history
libgfortran/m4/ifunction.m4		patch \| blob \| history
libgfortran/m4/ifunction_logical.m4		patch \| blob \| history
libgfortran/m4/reshape.m4		patch \| blob \| history
libgfortran/m4/spread.m4		patch \| blob \| history