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 0ccd0ab..af5f62c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,4 +1,11 @@
  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
         * gfortran.dg/random_init_1.f90: New test.
diff --git a/gcc/testsuite/gfortran.dg/pr85816.f90 b/gcc/testsuite/gfortran.dg/pr85816.f90

new file mode 100644 (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 a220cc8..4e9c5c7 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,5 +1,264 @@
  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
         * libgfortran/Makefile.am: Add random_init.f90 to build.
         * libgfortran/Makefile.in: Regenerated.
diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c

index 8779367..0655562 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 ef3d12e..f2e5e62 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 18a0ef6..f783f9e 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 522c591..9e1ae16 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 a762ac0..31f5e0a 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 c2d3d54..be5fd14 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 181bb85..1cabd7e 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 b6b86e5..2fd2c97 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 3249b28..6eed8db 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 6569cb5..88ad0da 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 d099eed..bd4ab74 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 b403d83..b54cad8 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 e316bbb..a507deb 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 1748e85..ab56154 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 d191786..a5879fd 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 f02f7af..481b2b0 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 e739fad..51e38a5 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 ff958a9..32300e3 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 ece32e4..8083c5a 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 f181f15..a337cdb 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 20088ed..063d4b2 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 90844e8..bac35d0 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 e734389..ea1ae23 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 48043ee..9d9d4af 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 078160b..e3f3081 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 911f9f5..cdcae29 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 b434f01..7705648 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 998df01..87422a7 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 a0c515c..a4384e1 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 3225513..2321bc3 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 3bb6905..ac09f14 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 7c2967f..f3cfd9d 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 87edb85..f90744a 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 38daf6d..3949103 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 f48e943..5a569e8 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 f1dc89b..f8dc737 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 7003a60..8c78a6d 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 0ada2d1..961f39c 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 75b5984..c5414b4 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 33f73e7..cc2b4f0 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 8eec341..ff2c885 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 63a5d54..014bcb1 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 b515ee0..42262d2 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 563aebe..dd9e678 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 7760807..ca389b8 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 e911318..1d24756 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 b335b2e..1008bdf 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 6a27d69..781bf84 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 76732d7..c2796c6 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 13e3710..38f3f6f 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 ba8e634..1c1e631 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 90a54b6..15bdb0b 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 c7852b5..a2ec27f 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 88d50d9..30a12d1 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 b763e3b..6592aec 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 e338364..a32f537 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 11fd73d..ff9de7f 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 315c8d7..2aacaf9 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 6fcc69e..9ffde92 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 3ecd60e..755a513 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 299be1a..1bd2bf0 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 4051623..81ed1bb 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 40ea75d..873c4dc 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 cb04e94..70b0ba5 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 871bf02..99310e1 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 3bba4bc..ac8b391 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 043a987..12f2c87 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 fe9704f..e8fb57b 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 25b0449..b610133 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 4b0bddc..44aaf0f 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 9a021a0..aefba16 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 2cb8db3..9c8b193 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 ae17ccd..a6cb47a 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 6b436d6..a5b5e54 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 43d541e..7bcb5bb 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 7d006ab..8e1ba58 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 6f3751b..62175d2 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 47c5d82..b507ab3 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 e8380aa..752b231 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 fe922ba..851fd71 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 eeab770..b23f7a5 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 c0b80b0..9cf1375 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 3560c3b..e6884f2 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 cdcd7fb..257ede2 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 f1e79cf..e8df7d0 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 1ff5cd3..cd9bb65 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 9341c27..0c78ec8 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 4d443ae..41cf3b1 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 2058ab2..46ff5bb 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 9dc002f..3124675 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 1a963d1..c8d025f 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 e04c70e..b1ef57c 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 b06820b..b9b57bf 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 1963746..08fd778 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 2b16e06..6745ada 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 c4557e0..25c711d 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 094eecf..e151b67 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 e9260ce..dbde1bc 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 86c9fb9..defed80 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 30a440e..03526ac 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 2a32906..84deb7e 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 2954e8a..ae36fd4 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 fde234c..abd8f99 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 9671fdf..dc64059 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 14e6ce0..ccd0f4b 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 9b5dba0..2c26b6e 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 13f4911..26efe0e 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 1e1cd61..6a1a99a 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 b3663d6..cde4b42 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 3a173ea..49fd91e 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 4141fa1..1bfc0f7 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 0d2f350..b4d54ae 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 3fd9409..351d808 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 d04fdda..5a719f4 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 8b02915..ddeac3d 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 45ab787..c09a160 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 95a38a6..d4cad49 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 091afb7..7ccaf17 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 7120f00..c0f89a8 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 c9debdb..dbcaf83 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 55fb58d..dbd3e4c 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 351b4a1..d2c6a91 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 a736c59..4d38e2c 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 f714417..b9f68e4 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 7d7ece4..075ae44 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 7475739..e94599b 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 0ac6e6b..5208890 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 aeb0ae9..f80a67f 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 f5b5906..c1527f7 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 46dfa78..bd2f283 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 c3da87d..cf364b6 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 8455b7d..244b7ee 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 2b02216..9d703d8 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 55aafa4..2307c87 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 14b8a62..5fe9996 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 e5c48fa..d6c7318 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 caba6a7..4a7e163 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 876e9cb..fefd0e7 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 68b1800..fdeabd8 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 715e074..15871ca 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 132b2f1..5e6a604 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 83a8d59..2ba76f8 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 a22e2c7..fad47c2 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 f384ff1..5be2114 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 72b75b0..d1fa3ff 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 53cf97d..d09b078 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 93193cf..356d789 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 14369b6..2783b80 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 8dfe8ec..f9c46b0 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 5fea33a..36dd6d5 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 46411b1..922fc83 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 ce9b926..92496af 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 871aa37..c0b91cf 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 16f7e5e..4defa8d 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 08d919a..5bf3ec1 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 807f6fa..c676fcc 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 b2430c4..167f268 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 e81a0a7..df2fc90 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 b82aeea..4d2a0b0 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 3476a5e..04fcfec 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 f0c583f..4be5668 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 eaafec1..27f8745 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 f04fd8d..3eec08f 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 d42c5fe..dbe4d32 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 134617d..f20d138 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 20f0595..9d83cc0 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 653393c..b5d0eac 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 a51a290..a990567 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 e8e1b74..7fd7533 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 f4a27e1..eadf4e1 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 4cd0df1..97c7796 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 ee2547b..8e62188 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 605c5de..2345ad1 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 153ce0d..ba876d3 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 47c0283..74915fb 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 d78c046..36e126d 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 1dc3cf5..def6927 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 ca8f110..d6f2a1e 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 59fc3b6..ae62209 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 7f6e5de..76edbd6 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 5a91dd2..caf1e27 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 3580e30..fedbe68 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 d5c191e..0fe7ba1 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 b53093c..85503c3 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 7e24f36..d67d467 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 e796d64..dcf80ed 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 313bda3..79a15b0 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 140e93a..049f258 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 7f62a93..886d640 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 5b2cb38..aa361c6 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 daf56b1..3eec327 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 3ddb70e..c6bf86b 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 ac1ae43..2e4a51d 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 bd41da8..4cf81ac 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 47f6dc0..5567379 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 d3d705b..c9439c8 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 2ff0e8c..94017ac 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 73cbbeb..62fe44c 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 cefa13f..487a8f2 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 b135023..1a7cf7e 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 78a513b..e70209b 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 044c506..0af1d0a 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 067890e..df92b05 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 2641379..45f3419 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 6f104b2..3aaff50 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 d70f88c..ba407bf 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 a607755..f0b07ab 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 daecd1e..4befa58 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 c2f89e9..e4c9a31 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 2b2a0b8..a93dd4f 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 620d74b..31b625c 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 fb616e6..fe7a630 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 abe4663..44492ee 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 e2f6cb6..2d16a1c 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 0a24a75..2b7683b 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 db8d76a..7c9687f 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 06fc72f..5d2ae8b 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 fdde4c4..5b29d0f 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 a6cb709..6823680 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 b9b75f1..bae5e9c 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 2d1dbca..802e517 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 f06fd50..7acff05 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 19f15d7..de8a303 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 eeb2899..16102ff 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 463e153..c2fb5c9 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 fe41681..abdcd65 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 4aec65d..7daf37c 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 8e1e9c7..197ebf2 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 431452f..beef7e5 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 d89c8d2..ba71799 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 31d8049..e20b4ed 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 f9d5c1e..7ae41a3 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 66872dd..2b50f2f 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 9d0e57f..5b41f54 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 7fe696b..3ff4ddc 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 f1840d9..8027fe4 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 f8e453b..b0467ec 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 e8dae17..0f5f836 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 0abbaf8..9c5c17b 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 012909b..201facc 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 23420b8..161a5f3 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 09d8f05..4228bde 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 0f45648..8d34832 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 276c69c..a0e9c58 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 5c86aba..a0e12ff 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 ca06e6d..2b75fbf 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 494d062..19bb23b 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 db063bf..dff9f8b 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 a5767f5..55d6b18 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 27c2236..b4ce650 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 27bad4e..3b8d702 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 d58c2a0..0568387 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 c96ad9f..d0a420b 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 b5a0b4e..cab13a5 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