libgfortran: Don't skip allocation if size is zero [PR112412]

author Mikael Morin <mikael@gcc.gnu.org>

Tue, 7 Nov 2023 10:24:02 +0000 (11:24 +0100)

committer Mikael Morin <mikael@gcc.gnu.org>

Wed, 8 Nov 2023 11:32:18 +0000 (12:32 +0100)
author Mikael Morin <mikael@gcc.gnu.org>
Tue, 7 Nov 2023 10:24:02 +0000 (11:24 +0100)
committer Mikael Morin <mikael@gcc.gnu.org>
Wed, 8 Nov 2023 11:32:18 +0000 (12:32 +0100)
diff --git a/gcc/testsuite/gfortran.dg/allocated_4.f90 b/gcc/testsuite/gfortran.dg/allocated_4.f90

new file mode 100644 (file)

index 0000000..485806b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/allocated_4.f90
@@ -0,0 +1,195 @@
+! { dg-do run }
+!
+! PR fortran/112412
+! The library used to not allocate memory for the result of transformational
+! functions reducing an array along one dimension, if the result of the
+! function was an empty array.  This caused the result to be seen as
+! an unallocated array.
+
+program p
+  implicit none
+  call check_iparity
+  call check_sum
+  call check_minloc_int
+  call check_minloc_char
+  call check_maxloc_char4
+  call check_minval_char
+  call check_maxval_char4
+  call check_any
+  call check_count4
+contains
+  subroutine check_iparity
+    integer :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    integer, allocatable :: r(:,:,:)
+    a  = reshape((/ integer:: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 1
+    r = iparity(a, dim=i)
+    if (.not. allocated(r)) stop 11
+    deallocate(r)
+    i = 2
+    r = iparity(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 12
+    deallocate(r)
+    i = 4
+    r = iparity(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 13
+    deallocate(r)
+  end subroutine
+  subroutine check_sum
+    integer :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    integer, allocatable :: r(:,:,:)
+    a  = reshape((/ integer:: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 2
+    r = sum(a, dim=i)
+    if (.not. allocated(r)) stop 21
+    deallocate(r)
+    i = 4
+    r = sum(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 22
+    deallocate(r)
+    i = 1
+    r = sum(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 23
+    deallocate(r)
+  end subroutine
+  subroutine check_minloc_int
+    integer :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    integer, allocatable :: r(:,:,:)
+    a  = reshape((/ integer:: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 4
+    r = minloc(a, dim=i)
+    if (.not. allocated(r)) stop 31
+    deallocate(r)
+    i = 1
+    r = minloc(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 32
+    deallocate(r)
+    i = 2
+    r = minloc(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 33
+    deallocate(r)
+  end subroutine
+  subroutine check_minloc_char
+    character :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    integer, allocatable :: r(:,:,:)
+    a  = reshape((/ character:: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 4
+    r = minloc(a, dim=i)
+    if (.not. allocated(r)) stop 41
+    deallocate(r)
+    i = 2
+    r = minloc(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 42
+    deallocate(r)
+    i = 1
+    r = minloc(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 43
+    deallocate(r)
+  end subroutine
+  subroutine check_maxloc_char4
+    character(kind=4) :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    integer, allocatable :: r(:,:,:)
+    a  = reshape((/ character(kind=4):: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 1
+    r = maxloc(a, dim=i)
+    if (.not. allocated(r)) stop 51
+    deallocate(r)
+    i = 4
+    r = maxloc(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 52
+    deallocate(r)
+    i = 2
+    r = maxloc(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 53
+    deallocate(r)
+  end subroutine
+  subroutine check_minval_char
+    character :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    character, allocatable :: r(:,:,:)
+    a  = reshape((/ character:: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 2
+    r = minval(a, dim=i)
+    if (.not. allocated(r)) stop 61
+    deallocate(r)
+    i = 1
+    r = minval(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 62
+    deallocate(r)
+    i = 4
+    r = minval(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 63
+    deallocate(r)
+  end subroutine
+  subroutine check_maxval_char4
+    character(kind=4) :: a(9,3,0,7)
+    logical :: m1(9,3,0,7)
+    logical(kind=4) :: m4
+    integer :: i
+    character(kind=4), allocatable :: r(:,:,:)
+    a  = reshape((/ character(kind=4):: /), shape(a))
+    m1 = reshape((/ logical:: /), shape(m1))
+    m4 = .false.
+    i = 1
+    r = maxval(a, dim=i)
+    if (.not. allocated(r)) stop 71
+    deallocate(r)
+    i = 2
+    r = maxval(a, dim=i, mask=m1)
+    if (.not. allocated(r)) stop 72
+    deallocate(r)
+    i = 4
+    r = maxval(a, dim=i, mask=m4)
+    if (.not. allocated(r)) stop 73
+    deallocate(r)
+  end subroutine
+  subroutine check_any
+    logical :: a(9,3,0,7)
+    integer :: i
+    logical, allocatable :: r(:,:,:)
+    a  = reshape((/ logical:: /), shape(a))
+    i = 2
+    r = any(a, dim=i)
+    if (.not. allocated(r)) stop 81
+    deallocate(r)
+  end subroutine
+  subroutine check_count4
+    logical(kind=4) :: a(9,3,0,7)
+    integer :: i
+    integer, allocatable :: r(:,:,:)
+    a  = reshape((/ logical(kind=4):: /), shape(a))
+    i = 4
+    r = count(a, dim=i)
+    if (.not. allocated(r)) stop 91
+    deallocate(r)
+  end subroutine
+end program
diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c

index afe94491b426c8859cf9f30ca7690632c06ac9bd..e494281146127b0f8c8f186166b318d2ebe5f645 100644 (file)
--- a/libgfortran/generated/all_l1.c
+++ b/libgfortran/generated/all_l1.c
@@ -101,14 +101,13 @@ all_l1 (gfc_array_l1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
      }
    else
      {
diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c

index 3b04889f9202b74eeafe7f8ba4f476453e7d1a1c..1fc45bfd97c05c23fb176c1c1327f21d72bd4123 100644 (file)
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -101,14 +101,13 @@ all_l16 (gfc_array_l16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
      }
    else
      {
diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c

index 5ce9027d6f5b310751a512ddff3216a74189ed20..f6dbf1c456dcf13f7ada13d3610e8e7ca00a0ee9 100644 (file)
--- a/libgfortran/generated/all_l2.c
+++ b/libgfortran/generated/all_l2.c
@@ -101,14 +101,13 @@ all_l2 (gfc_array_l2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
      }
    else
      {
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c

index e004d1f678366823a6cd9838391f6a755953ff7a..7f915ef9c615f5390d7d343e565dbc9995a40d6e 100644 (file)
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -101,14 +101,13 @@ all_l4 (gfc_array_l4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
      }
    else
      {
diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c

index 7ae7392d4bf23430e049b0257a92bc27253fb88c..3fa8147c1a1535f5f32c98beea5eb3c25b2a9532 100644 (file)
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -101,14 +101,13 @@ all_l8 (gfc_array_l8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
      }
    else
      {
diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c

index f3269c6c9204d538304c5fb58d0f1811180740b3..236e4100ec2340e37e4e991b52e8cbd4f6c6549b 100644 (file)
--- a/libgfortran/generated/any_l1.c
+++ b/libgfortran/generated/any_l1.c
@@ -101,14 +101,13 @@ any_l1 (gfc_array_l1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
      }
    else
      {
diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c

index d27f496e93c9d332e26d52af33ce1a47a2d95a17..7290d66667e8c0a2c124ba4ba385a1172bb02989 100644 (file)
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -101,14 +101,13 @@ any_l16 (gfc_array_l16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
      }
    else
      {
diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c

index bac6837f515df15e6a4dcad31e598d4a985d34f0..d54e78fda0c728925b98fac23c1e8deebe773e68 100644 (file)
--- a/libgfortran/generated/any_l2.c
+++ b/libgfortran/generated/any_l2.c
@@ -101,14 +101,13 @@ any_l2 (gfc_array_l2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
      }
    else
      {
diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c

index f489091774dc39f3f6fe4f79a0d9a8d982b9ae5b..a577bc5821383a02b2e1a86f15419e82d8827663 100644 (file)
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -101,14 +101,13 @@ any_l4 (gfc_array_l4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
      }
    else
      {
diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c

index a22923c0c61e67ce760c06b0007b977f7b2c5a7d..0af302746f58571e171a9eb970008960020e296f 100644 (file)
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -101,14 +101,13 @@ any_l8 (gfc_array_l8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
      }
    else
      {
diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c

index 545ce6537bf55c32daf75e29a7bf667f0d0539ce..89f4f753d1a57f5a61a55679c0c0ee4336ddda73 100644 (file)
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -101,14 +101,13 @@ count_16_l (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c

index fd95964534f43efe34fda1af219152493eea189a..05b8b898e9411ac725572067f0d7fa7a4427ead2 100644 (file)
--- a/libgfortran/generated/count_1_l.c
+++ b/libgfortran/generated/count_1_l.c
@@ -101,14 +101,13 @@ count_1_l (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c

index 63512580e6151fa4b021b4820f4d649b64681d64..654b21589d00a429fe205a4d2bdb876d5228e7e7 100644 (file)
--- a/libgfortran/generated/count_2_l.c
+++ b/libgfortran/generated/count_2_l.c
@@ -101,14 +101,13 @@ count_2_l (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c

index 44e7d68b2a4055036391e8409957167a9cca6ae9..8f40ea1c0be827e2ff8f15e88d4aaaa045ea2f46 100644 (file)
--- a/libgfortran/generated/count_4_l.c
+++ b/libgfortran/generated/count_4_l.c
@@ -101,14 +101,13 @@ count_4_l (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c

index 4f4d82b5d6266c0c6446e53137a1be8243a593b6..ab64c08580347c0d6b2a822ba97a4d010e6d5f51 100644 (file)
--- a/libgfortran/generated/count_8_l.c
+++ b/libgfortran/generated/count_8_l.c
@@ -101,14 +101,13 @@ count_8_l (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c

index 4af9626930893c96a306c751a95f6ed8dbace8ac..c9696c924852bccd514baa78c4fb2e22fb2ebb7e 100644 (file)
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -301,15 +301,13 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siall_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c

index e678d06d1b85fdc1942e1b9aacd1c1280111179b..f0a1b3adcf29af8a85fa1d42a3b89735ef204f10 100644 (file)
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -301,15 +301,13 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siall_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c

index fbe52663f165aaf58e58cfa9628d2b25df49e6e1..4d14d71cab21faa913cc2660bdc55725c802c9b9 100644 (file)
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -301,15 +301,13 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siall_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c

index 3d6b6deba3d002307f72b1a80424593ae521d019..cb7ce755bfc5b325c37afc38a923a0a0b6e4c050 100644 (file)
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -301,15 +301,13 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siall_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c

index 072f6837029849f8abf0b6e782745cb1eaf1b636..c7dab3e2e564f8667573a72dfbdb1e000b5ca8f2 100644 (file)
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -301,15 +301,13 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siall_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c

index 6f03df6efd21db9a31e814bcb4c41347ecf1c13a..539c5389561378b68ae5843d48ca82b1328139e8 100644 (file)
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -301,15 +301,13 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siany_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c

index 72a7add660bf90f2e2700d159a59f284e439bc3f..d690dff60be8df5513fe7e46019aa333cd051ddd 100644 (file)
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -301,15 +301,13 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siany_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c

index 26858b429163af482305f88e53e3f6999ce509e0..dd37c1e5b4848b4b99c05c1bb81803548e6cf5e4 100644 (file)
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -301,15 +301,13 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siany_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c

index ca315d1223cf13db4069f237778d9ebc2baab1c4..e96899049513ec0382e0010a8414dcf73e544370 100644 (file)
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -301,15 +301,13 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siany_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c

index dc9081e514974def0b32e64c9350d704ed5f800b..79f6c381a3f7f2a9a6cb6b4dae66111c671b0257 100644 (file)
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -301,15 +301,13 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siany_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c

index cfb2e4818319e6496e220b0bec05726acf764002..8e0f4529d4de66e2a86b41ade3b554f57ba2ab39 100644 (file)
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -301,15 +301,13 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siparity_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c

index 3b1f3232327660ebc10faa21ad4cdec2b31444d5..912ca591ddafc09c89446f9aa49da36681176b01 100644 (file)
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -301,15 +301,13 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siparity_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c

index 60575bdcb15b37076c7548d9036a83ea88327cee..6e7e60a5a2e60e0f9c4827b6c016eb16cf769feb 100644 (file)
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -301,15 +301,13 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siparity_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c

index 49f65145e15d1ac2502e16ebd85d59cad6b12bee..0bb1be1dedb6c3a4dcf1dce58556e49ae41d568e 100644 (file)
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -301,15 +301,13 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siparity_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c

index ec68d514a489482ed9ad4c6ea75ac2cf841326b8..e219d6e3dce5edcbe82a90902896bb7cbc2762f1 100644 (file)
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -301,15 +301,13 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ siparity_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c

index dd86eb22d952a109a8b022b7f70820522496e558..e126c18bc80e51dd8b4d27bbb051818e36c414ca 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -329,15 +329,13 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c

index f40ade402143801d728fc3bf9c435a693e6958af..04ced535df9042d6b888395d2e9e9258f4588a6f 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -329,15 +329,13 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c

index d857d4fe7685b47e95a0e4bed33088f8971382ea..9f7447e9de96f76dca7cae40caa1759fcb4f72ef 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -329,15 +329,13 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c

index c67878b0f48db01aa6f7d3aab307ba82288ab916..8663dfc7e243c37fca946d3134ef989c7a8ca18e 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -329,15 +329,13 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c

index 6e040811301d62c46e86d5d0fdcbbf3a61809f81..c0593a67f1179d541ba876c1048fd84fc63e1253 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -329,15 +329,13 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c

index 47d8f7ba6199418f8f793fb91a24e209cef55944..a5e0665fccf2413c8e17c7e20f5b823276da169f 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -329,15 +329,13 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c

index f5bd965205ce748e7fd65c4e9792411abe94b175..cbb20002665b85a47ea4e666de7fe0874f1cb40a 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -329,15 +329,13 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c

index 8d59c196236589ae7da200e76aec0096dadca979..719ae09772db623615aafe475d87a21b200010d2 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r17.c
+++ b/libgfortran/generated/maxloc1_16_r17.c
@@ -329,15 +329,13 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c

index 91299bdcc011333d6770a76b5c6ef1d7ba1280f1..37a0657dab2478b59e7d7608010ed81eaca33c7a 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -329,15 +329,13 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c

index 91e89b02a68e34f0880a0ce9b42d74a31dbd551e..305613694b2b14d920e0d51f6b7bbc40873811ef 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -329,15 +329,13 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c

index 313ee1cf440d179c8a4c62b3c5aff61ee985d0a7..b9a8a6395965d4f82a6d61f0ca3f58648a68c13e 100644 (file)
--- a/libgfortran/generated/maxloc1_16_s1.c
+++ b/libgfortran/generated/maxloc1_16_s1.c
@@ -322,15 +322,13 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -503,14 +501,13 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c

index d8da8569e15a3fe51543f9d620d90535bfb4af79..fdaad7fd2dc88228155ad04cd23171cf7fe1d439 100644 (file)
--- a/libgfortran/generated/maxloc1_16_s4.c
+++ b/libgfortran/generated/maxloc1_16_s4.c
@@ -322,15 +322,13 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -503,14 +501,13 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c

index 333b08cec96ddf498a787985e33b08f87602802b..b68d92ef44e003effbdc9777a393cb4761d04525 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -329,15 +329,13 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c

index 62dadf6b66f2b491011145cffcbeb90ebcc17b44..9221e22505b3a961bc8b8ae1bce09808211a09ac 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -329,15 +329,13 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c

index 6bc6e500b5299b36d3ac7068dd26f5d3cb58187d..3fa2e36789831cb1b9a3ca114561f25aa002d4e5 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -329,15 +329,13 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c

index d38fd367443acf00bbf555fb2ff9b63b28dcfc2b..5ef2abb98e159f27d80381dc82859daeba81839a 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -329,15 +329,13 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c

index 30314f0f6dd0f7f44101aeb32e3a41577cabce2b..102d394b309604f200566762dd74c4a0c88a0e42 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -329,15 +329,13 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c

index 693f52aef78c1d789cca2ee765b7c8cbf3b913fe..623204d792cc7d5c791d68c98818fae7d28c7845 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -329,15 +329,13 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c

index c24dece73f6c0632702b2194a324b4d79050f70f..92209ce79ceab3d98fb47cede2de12fa60eb9ba3 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -329,15 +329,13 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c

index a8efa10557eb4851e0c05a2857e6c5668f68c3e5..6ee34b52719e3dfbfe932ca54c10d8db9cfaa75e 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r17.c
+++ b/libgfortran/generated/maxloc1_4_r17.c
@@ -329,15 +329,13 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c

index 6957da417abe4d1aaa89ceb4a7de0efac993b4c6..ea6123a987c8208151a361b7b6b855a0abe6a903 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -329,15 +329,13 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c

index b7e6cf347740f07c21512359a84aded6764ecf1a..ba83b4d6a6d478b4803ada891a2c9d0be66db7b8 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -329,15 +329,13 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c

index 904c5d4a8fa94b74f5f3b5ae434ac33d36cf7271..7d2ab07915ee31300353013804f703198b130ef3 100644 (file)
--- a/libgfortran/generated/maxloc1_4_s1.c
+++ b/libgfortran/generated/maxloc1_4_s1.c
@@ -322,15 +322,13 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -503,14 +501,13 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c

index 5b1f7b0938d1fa6c210da056cc6cea3f8f7b6a3d..7a4950d3e5cb4235f4e10e58f0fb4580026b4794 100644 (file)
--- a/libgfortran/generated/maxloc1_4_s4.c
+++ b/libgfortran/generated/maxloc1_4_s4.c
@@ -322,15 +322,13 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -503,14 +501,13 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c

index ee478907548a37547633e5b527508b6745209e75..d243e6e027cd5114a67a4d18e6379f34eac935b3 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -329,15 +329,13 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c

index 2c788a26d537335d1634867036d1bd58c9072267..5871aa52379c7780adb06548591572810bcad108 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -329,15 +329,13 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c

index 13474427323ba6fbb9050e2b616adf698d300795..9337f47c9ca5c0f9c493c210c33ce11a1633b2df 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -329,15 +329,13 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c

index 57a001fefc696c49fd5db819334026cd0c78d567..747b9979fdccc6f30eb3020416cc6690250ea414 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -329,15 +329,13 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c

index ff837e6872fd35ca3f70667bada4f0b3828c725f..adc0ebae28de4fceb69b047084945fdb4b3bdc15 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -329,15 +329,13 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c

index 9046b279c120cf466369e0c8c244b1baa676953f..4c8d00d937d23a6d02000a09a3feb9c1446e05c4 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -329,15 +329,13 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c

index 93e83307da405d507621672a1efaa40e0f7a2c76..df3edbe611bcec8cd1016bfb8d2e92bc8c54ea29 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -329,15 +329,13 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c

index ab14e3a7ebedb37b48650c2a3f48079df9c30d67..162806132f1935232efbdeff893e315ea5ceb1d3 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r17.c
+++ b/libgfortran/generated/maxloc1_8_r17.c
@@ -329,15 +329,13 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c

index 556357b46a1ad5ac889aec25016d50b7566eb400..dee860a1a8fea700bfd9b8d45c67f3f447725ab4 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -329,15 +329,13 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c

index aceebcf7cf48229bded236e601e8da42ef9e30ed..215d9668adbfc2f1b551d4f1648bc8c724bc5111 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -329,15 +329,13 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -537,14 +535,13 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c

index 9659f7f74a6a053cf869e01ca1cefac03ad21a33..7b1091d596c1f60b6f1c9ed8f9139858fb593b2f 100644 (file)
--- a/libgfortran/generated/maxloc1_8_s1.c
+++ b/libgfortran/generated/maxloc1_8_s1.c
@@ -322,15 +322,13 @@ mmaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -503,14 +501,13 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c

index 10302b95adeecc99435b54dde0bd8e2ceca17181..a61c08c6f647c08a9b49e23a9beb970de1c428ff 100644 (file)
--- a/libgfortran/generated/maxloc1_8_s4.c
+++ b/libgfortran/generated/maxloc1_8_s4.c
@@ -322,15 +322,13 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -503,14 +501,13 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxval1_s1.c b/libgfortran/generated/maxval1_s1.c

index 605e04b4e2e5dff24b5706073178889ec8184e01..fd65f4b62ecc8f241e393aeefba116036e75cbbf 100644 (file)
--- a/libgfortran/generated/maxval1_s1.c
+++ b/libgfortran/generated/maxval1_s1.c
@@ -318,15 +318,13 @@ mmaxval1_s1 (gfc_array_s1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
-
      }
    else
      {
@@ -496,14 +494,13 @@ smaxval1_s1 (gfc_array_s1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/maxval1_s4.c b/libgfortran/generated/maxval1_s4.c

index 829cdf213c1cc76364ed24ba46f460942e15487b..3558e61c76aaf1e46a5bfdbe1939d7011c45ef15 100644 (file)
--- a/libgfortran/generated/maxval1_s4.c
+++ b/libgfortran/generated/maxval1_s4.c
@@ -318,15 +318,13 @@ mmaxval1_s4 (gfc_array_s4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
-
      }
    else
      {
@@ -496,14 +494,13 @@ smaxval1_s4 (gfc_array_s4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c

index 04faea82a9e6b322422bb3adfbc9ae58e5b3aebb..bc52cd74a955593a91446a8fd760e1a2629a6a86 100644 (file)
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -315,15 +315,13 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c

index eaaaf7f55b3a25cda8390bb025a98915b3a1f082..1d9d33369d45c7496343f243bab4feec8de891ef 100644 (file)
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -315,15 +315,13 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c

index 440226d2fff0deeb1711fd13c872555139ec03cd..fe3c6fecce7a111d744da4d7a3a5b5e9129838b2 100644 (file)
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -315,15 +315,13 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c

index 99248447c315c1060a2319a1c2e8a7df1212af83..0412c7a75834f2a72f32e3d37fc8d0c2fe721e7e 100644 (file)
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -315,15 +315,13 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c

index cb14e74486f8e0e70c895f684a7eb03544c2cf00..2037b96b3c55b468410763c289192db0ee960077 100644 (file)
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -315,15 +315,13 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c

index 9fb9b0297c9bf49e40cd7d26d17cadedaa64815a..7c397eeea7711fff54e635ca481f2537e5de8e1b 100644 (file)
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -315,15 +315,13 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c

index b06ea6653dbb8d5d99ba2fd81636d86b5965d508..1f2144e5253b64235e7338b28f629ece080e272d 100644 (file)
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -315,15 +315,13 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c

index 1ec11fff1f2e6645a81a2344784c17055bb67b6a..f85460366aa3623373124b60ba2101b3261ff4c0 100644 (file)
--- a/libgfortran/generated/maxval_r17.c
+++ b/libgfortran/generated/maxval_r17.c
@@ -315,15 +315,13 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_r17 (gfc_array_r17 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c

index 8dfde41fa0c1addd462c80cba8089dbe8c1c3324..e2fd59e92bc549206ad544286833de6ff75a0213 100644 (file)
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -315,15 +315,13 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c

index 179a4227179342d9bf05c395bf6841dda4689e1e..d3aadc625299970d8e51ebee7c77b1b21a8a7993 100644 (file)
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -315,15 +315,13 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
-
      }
    else
      {
@@ -508,14 +506,13 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c

index 7bca02e91de5b396c090b83d996d0d04756ff50f..541d71fe21464016cb8f4b214bc5eea48b3d7fe2 100644 (file)
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -339,15 +339,13 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c

index 1876871f7ca6827501c26080bdb2cade1c0f4640..baaf02597b673f7ca88fe682f12f2cf9519c5273 100644 (file)
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -339,15 +339,13 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c

index 061a792891248fc7f1d859847dc7201789eb1003..e4f78b65de360587af492c24deda49c431e5eb75 100644 (file)
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -339,15 +339,13 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c

index 297d7c536059579d46cb39c6c9d8332fad772453..c561d71319ebbff83cfc9eba3cee8520c595da08 100644 (file)
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -339,15 +339,13 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c

index d0bfb654596eeb7acd5dd553c73e4dde5cff586d..ebdb68dd3c5600a9617f7946fd2409ac54068dea 100644 (file)
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -339,15 +339,13 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c

index 8fc8399ad4309546029e91e8d03dfd8ee689da7e..98d3fb3879bccc6307b696b91ff73afe5f100b28 100644 (file)
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -339,15 +339,13 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c

index 3efb7fbb9cd53fc22db7d609fd0a3d8797d9bc69..ad445a42dfa7bd4be61d747ed952a9899facf3ec 100644 (file)
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -339,15 +339,13 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c

index bcffa58b2a07820fbcca4ac19a002fc59504cca5..339d9ad96628b1cbb06ac266dab98c0801087fa7 100644 (file)
--- a/libgfortran/generated/minloc1_16_r17.c
+++ b/libgfortran/generated/minloc1_16_r17.c
@@ -339,15 +339,13 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c

index 6b25af9743f6209e8891131f330ca73f873c849b..780bcc267fd90fb7606ab313a20bfc1fdbb52c87 100644 (file)
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -339,15 +339,13 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c

index f3f88c35cf00863ae5a3058cfa7c59568a580fac..124587f5fb36ded7acbf60c2c175e88d5ff2eb4a 100644 (file)
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -339,15 +339,13 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c

index 3419055dc70acbce42b7949924e27c2c76dec9c9..f4763dc6e646974e7ddd0b273a4091698810a52d 100644 (file)
--- a/libgfortran/generated/minloc1_16_s1.c
+++ b/libgfortran/generated/minloc1_16_s1.c
@@ -322,15 +322,13 @@ mminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -503,14 +501,13 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c

index aad2f87386fba3c28fab7754f50a7716ecc253cb..ba0475a9ca006ee0b9089bdecc8c3ba3a31c801e 100644 (file)
--- a/libgfortran/generated/minloc1_16_s4.c
+++ b/libgfortran/generated/minloc1_16_s4.c
@@ -322,15 +322,13 @@ mminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -503,14 +501,13 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c

index 8e2ccace944c060741e88d572724a34053ff72eb..433a25a8ef88f4af191c6d3fd649f92e1ddbbf58 100644 (file)
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -339,15 +339,13 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c

index 3236418f64e7a2f5e6916dc262fa664b0dd8c1d1..9d2c606186bc1bdcab46ab3d20f11d046d1218f5 100644 (file)
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -339,15 +339,13 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c

index f039cc2df88d3a99a7238e5cfa287b4aee41d702..73737011e9a4a6860ef2d8e60cc5950696b72de2 100644 (file)
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -339,15 +339,13 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c

index 0eac1a8de9ee042efc332d1688f16ed7a967d4c3..d18416ebcc42e84b3acd0d5d9cbe5e018e79103f 100644 (file)
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -339,15 +339,13 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c

index b6fc26765c2739964a6b314508b935bd3780a00c..4f7dfdfdf73a4ec243de37926b9b20b01164cf01 100644 (file)
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -339,15 +339,13 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c

index 3245be44d42d4b7e64b3c1f2b40a2e081de12fde..ff5af01130d6aa39f68452e5d0da82a33add5cbb 100644 (file)
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -339,15 +339,13 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c

index a0ca94a653f6196403c6fe8dd8d5182e6ff3d038..2d664467df3c0be82e8ec335cd45cd41248961ad 100644 (file)
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -339,15 +339,13 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c

index 56b438aea7d3b1461ab9330c28b65ca73b08196e..711fd841d345ee69f3066c94058bbf0d0fa11f5c 100644 (file)
--- a/libgfortran/generated/minloc1_4_r17.c
+++ b/libgfortran/generated/minloc1_4_r17.c
@@ -339,15 +339,13 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c

index 922cca690e086f059f11d47338213a5c5fc39691..0739d9bd178bc1ffc91111f81f291535d4d7a3e0 100644 (file)
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -339,15 +339,13 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c

index 7316d6e2663bb2865bc0503c68402af793128306..d625195e432b4a50b901f221ef5011996c71939b 100644 (file)
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -339,15 +339,13 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c

index da8e49a8029c1672bb0eb818c66fbb51f0367495..13ebc76524d648160806bba7596a55c108be6fe5 100644 (file)
--- a/libgfortran/generated/minloc1_4_s1.c
+++ b/libgfortran/generated/minloc1_4_s1.c
@@ -322,15 +322,13 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -503,14 +501,13 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c

index ca708992edea6615bf68ae8895c2bdc2f1cf65b3..5c9a5900237d343c020c8fe72c37da2987cde091 100644 (file)
--- a/libgfortran/generated/minloc1_4_s4.c
+++ b/libgfortran/generated/minloc1_4_s4.c
@@ -322,15 +322,13 @@ mminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -503,14 +501,13 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c

index de8603cc1f2c84f00c380f598c92b32e15053a94..fab5619979fd9a090b6496bf4cfe808c241ce6ff 100644 (file)
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -339,15 +339,13 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c

index 01a4e37869aca864e75ba635b0988d48126d55c3..742e2ea73b27f64cdff5d078b73688d1bcdf5be1 100644 (file)
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -339,15 +339,13 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c

index e020bfe3b491be9342077f4068d03c2bea503ed7..defef3c653c94fc6e55e108e5fb1f1e972739ef6 100644 (file)
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -339,15 +339,13 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c

index f5093f13bc03c67a9a4e822cb1ad0754a56f77e4..3e696aafcac2abdc1a22fe842979a1a7e205960d 100644 (file)
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -339,15 +339,13 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c

index 5b3a327abc520d3c823ca4b20694a6ac7d7d125c..9a017433ee624fa35968bf17da26659d92cec929 100644 (file)
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -339,15 +339,13 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c

index 280840f33e6e6810d93020ffddc92048b2084103..18f294f2180d04394bc7894ef37de2cbe3359222 100644 (file)
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -339,15 +339,13 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c

index fd0ee3e6c7b2092563f4e9f9b09e569f2cb9f53b..1dd45dead267de7b8839b605e05842f9b86f8aad 100644 (file)
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -339,15 +339,13 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c

index dcb3f92984229e6e205c47a47abee8f7b3063365..85dc6cb04fe202e8284f92ec3b6f87da6167a9e8 100644 (file)
--- a/libgfortran/generated/minloc1_8_r17.c
+++ b/libgfortran/generated/minloc1_8_r17.c
@@ -339,15 +339,13 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c

index e6025482211ac1417ea35672deeeedf8e1b5a1fd..6d7764a5eb765d8d7e520dfb3fff3e312fecd505 100644 (file)
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -339,15 +339,13 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c

index e18185fc6fe8376ffcc485c6647003b5daafa5d8..e17d3c881c06a16fe7482007436df7330aa258de 100644 (file)
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -339,15 +339,13 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -547,14 +545,13 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c

index 6e26878fc02125acc34c8068d85a1873e1c604a8..0449575a5a3ebce4c0d9f97a7768cb4d56ffbdc6 100644 (file)
--- a/libgfortran/generated/minloc1_8_s1.c
+++ b/libgfortran/generated/minloc1_8_s1.c
@@ -322,15 +322,13 @@ mminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -503,14 +501,13 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c

index 14e5c9e7395a3d83546f04f004ba9a0d743dc415..682b89b276578fc462902b7a7424a8f245f389f3 100644 (file)
--- a/libgfortran/generated/minloc1_8_s4.c
+++ b/libgfortran/generated/minloc1_8_s4.c
@@ -322,15 +322,13 @@ mminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -503,14 +501,13 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minval1_s1.c b/libgfortran/generated/minval1_s1.c

index 3a1cde20f93cc49f9753d60a8d6ca97ec20aa9fb..9c577ed004c6f08123376872efc3c66b290f803d 100644 (file)
--- a/libgfortran/generated/minval1_s1.c
+++ b/libgfortran/generated/minval1_s1.c
@@ -318,15 +318,13 @@ mminval1_s1 (gfc_array_s1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
-
      }
    else
      {
@@ -496,14 +494,13 @@ sminval1_s1 (gfc_array_s1 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/minval1_s4.c b/libgfortran/generated/minval1_s4.c

index 83987fd1f2508cbe405fa12cab0711ef2543689f..9a30bf0bfb589e923b0aa2e7e056b09e73199758 100644 (file)
--- a/libgfortran/generated/minval1_s4.c
+++ b/libgfortran/generated/minval1_s4.c
@@ -318,15 +318,13 @@ mminval1_s4 (gfc_array_s4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
-
      }
    else
      {
@@ -496,14 +494,13 @@ sminval1_s4 (gfc_array_s4 * const restrict retarray,
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c

index 4b3d19e15f2a06aca062caed3410095012a35dc1..174161af4d4b6c79a28d670d577adcd0910f9a94 100644 (file)
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -315,15 +315,13 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c

index de746524499f2174e5cc8aa443706acc97e28f55..b220391e4f898afe5e50c5d90a8129ab141947e7 100644 (file)
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -315,15 +315,13 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c

index 8bcaeb7b866c5f44dd07868268299a77bef1bd8d..3a050c1eb8247544368249673dfa63d644ec6f47 100644 (file)
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -315,15 +315,13 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c

index a45aaae0bc61ed11ba9d757b60659923d0309323..194967d2f9230fd28dd064dfbdfa9154db8a071a 100644 (file)
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -315,15 +315,13 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c

index 481b5d093d2a439d7e2412b2a20202a0349e5aa5..07acc60d4a0607a6e9374e9327747b91e2fc04a6 100644 (file)
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -315,15 +315,13 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c

index e0f7c78a2afedb532290e40856b6b6a001ea0e1d..d49244c1dff981c791de23d5ac166c9369a37291 100644 (file)
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -315,15 +315,13 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
      }
    else
      {
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c

index 41feafb17db9c4ccfc407c77358f4ba7c8befac3..50305430d60e1b6ffdbd1b4a874fe5fbeec3c36d 100644 (file)
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -315,15 +315,13 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
      }
    else
      {
diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c

index d928240bf1a508251e5d302458abfb774d4e0ada..2479a864af3a4e96efa31d09b086296e3c9553e9 100644 (file)
--- a/libgfortran/generated/minval_r17.c
+++ b/libgfortran/generated/minval_r17.c
@@ -315,15 +315,13 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_r17 (gfc_array_r17 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
      }
    else
      {
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c

index 7d16b6f5c93dc18c0441fc92ff91879eed66386c..ceca490cfcd762e8bdb00d4e9fe7dce845bfa38b 100644 (file)
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -315,15 +315,13 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
      }
    else
      {
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c

index 7a2cb031115e21966ef1acaf4c1e0cfc8d40ac5d..091cb74d30dd9f8707e240d67389c905424d8940 100644 (file)
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -315,15 +315,13 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
-
      }
    else
      {
@@ -508,14 +506,13 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
      }
    else
      {
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c

index 992313feabe261b3c573c0092eedcaa3b0a46fd1..b888769130d5d488809eeb332a7bd595b1c8c5f9 100644 (file)
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -301,15 +301,13 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
      }
    else
      {
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c

index 468c6aa86dedf8dc066573724cd318bfcf24f3e4..b783367ff05b8e6038d51a7dc3f3a8e88af0b70e 100644 (file)
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -301,15 +301,13 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
      }
    else
      {
diff --git a/libgfortran/generated/product_c17.c b/libgfortran/generated/product_c17.c

index e7221738b59e8ee56802134840173160eb32691e..e89e9eea0c329f69bae05e4087a26a845d37a1a7 100644 (file)
--- a/libgfortran/generated/product_c17.c
+++ b/libgfortran/generated/product_c17.c
@@ -301,15 +301,13 @@ mproduct_c17 (gfc_array_c17 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_c17 (gfc_array_c17 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
      }
    else
      {
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c

index 57875ad2984c8d176a1343004b7a4645cc1e7eb1..08b2878930b33aff2e28064544138e796a29f967 100644 (file)
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -301,15 +301,13 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
      }
    else
      {
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c

index fb8a2574542f0fdc290a3ceb908c67310aff92ba..cb721e50b65a2942de5eeb5272ab969063ecca76 100644 (file)
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -301,15 +301,13 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
      }
    else
      {
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c

index ed13fcf37e44d760b2b4d36aeace92035341727b..8af7d63c6548c4d59f49bec031be45b5889371e7 100644 (file)
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -301,15 +301,13 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c

index 53544bea8f0e0f155e927f8d095f0f646a885377..de9b7fb503af8e7d7b50673f7de09137fe688eab 100644 (file)
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -301,15 +301,13 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c

index aef0fc47d4f1f554b89e7e4293f6136f8c5e41f4..bb0283286c1e0e5edeb3ee428d0ed59c38668b4b 100644 (file)
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -301,15 +301,13 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c

index 16c6f6e10ae8c6785dc31f82d8685b6cee23086b..9491031c3a82f6e2b50c61216c15473a90187077 100644 (file)
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -301,15 +301,13 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c

index 66f581f4b2d59e0c0ab3c0ee020c57a592b44139..49d09318335a378212e4c5cf9413ba11378ac7e9 100644 (file)
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -301,15 +301,13 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c

index 8c79ff88a6fa3a41da6a12c727bb83518b3569b2..47af031fe90584cda654ef1d538b3113e085804e 100644 (file)
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -301,15 +301,13 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
      }
    else
      {
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c

index 0f5027be42fb6593ffcb6b0291716af1c28ae323..3ecafc170e39bb4fe9547cc3b6fcb7bfc63db854 100644 (file)
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -301,15 +301,13 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
      }
    else
      {
diff --git a/libgfortran/generated/product_r17.c b/libgfortran/generated/product_r17.c

index 37134cbb0891a4c6a07bf0aa80602467479da99c..8f79c8c9c650aeb515176ed5e916ff1aa8f97583 100644 (file)
--- a/libgfortran/generated/product_r17.c
+++ b/libgfortran/generated/product_r17.c
@@ -301,15 +301,13 @@ mproduct_r17 (gfc_array_r17 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_r17 (gfc_array_r17 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
      }
    else
      {
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c

index 9a8eefb5124ce118050efc7cf6733175f9972a6f..f9b09b3c6dc70db4c6c2b34c120db2d6f9f724e0 100644 (file)
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -301,15 +301,13 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
      }
    else
      {
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c

index 5112b90f5f249f80e38331b8d4c2a71b1f2dc8b8..ff6aa52217643b59159abb3def5d7d4dc46a3da1 100644 (file)
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -301,15 +301,13 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
      }
    else
      {
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c

index d6a5db64fcaa3dd56c187413670ae33e339df279..45018f88c6feb9705db3f89ee5f31df4fc4c5f1b 100644 (file)
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -301,15 +301,13 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
      }
    else
      {
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c

index 156382d2f33a9e39fc72d4b5d5392419d474c095..df4297c5a84f852081a68e99c2bc4bca3fa94702 100644 (file)
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -301,15 +301,13 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
      }
    else
      {
diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c

index c00b0b84d5d121bd7052c7260dd05e8297e179ea..65322e78989978fdc656408b4178779420888625 100644 (file)
--- a/libgfortran/generated/sum_c17.c
+++ b/libgfortran/generated/sum_c17.c
@@ -301,15 +301,13 @@ msum_c17 (gfc_array_c17 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_c17 (gfc_array_c17 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
      }
    else
      {
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c

index b750a91f940de9da2db56046df5a0d666bc41ede..11ce95d53c3a2864473dd8446c7b6ef6e6f8a8e0 100644 (file)
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -301,15 +301,13 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
      }
    else
      {
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c

index 19b03c07504051bac9d26c36ff0593f687678e64..16b9ed40e92fce3b50458e33bc7a53f1c7a18814 100644 (file)
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -301,15 +301,13 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
      }
    else
      {
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c

index 2df0ec11a87a6cb01814b6f41ddde642f11d1c1a..c2df9619f989a2684d9abf49a85a9446878b259b 100644 (file)
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -301,15 +301,13 @@ msum_i1 (gfc_array_i1 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_i1 (gfc_array_i1 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
      }
    else
      {
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c

index 0b7179b595d83fa265a0b245878ff63c41456eb1..d4b3d970e51b078e023507d91c0a4b006f243bd6 100644 (file)
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -301,15 +301,13 @@ msum_i16 (gfc_array_i16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_i16 (gfc_array_i16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
      }
    else
      {
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c

index 3149e5fe5e589549b2d044e66ade5a53442bc9f9..044361c6167444302d0d78c0a09a4e94bc2e870b 100644 (file)
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -301,15 +301,13 @@ msum_i2 (gfc_array_i2 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_i2 (gfc_array_i2 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
      }
    else
      {
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c

index 5cf5f95bf0fb455cebf228e81016b9262e3e1a91..b37393e4c709b59bb3a0f6958ffcb351865ce346 100644 (file)
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -301,15 +301,13 @@ msum_i4 (gfc_array_i4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_i4 (gfc_array_i4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
      }
    else
      {
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c

index a020ba633494acf4af7ae93edac4897d913f904a..235a98e5fb71c51ec50d4646f53930ea49c3565f 100644 (file)
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -301,15 +301,13 @@ msum_i8 (gfc_array_i8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_i8 (gfc_array_i8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
      }
    else
      {
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c

index f02f9816b7d352e26e7c03fa262a54352835e789..4e2071fa57011524f4e9cfe09a9b23923357af96 100644 (file)
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -301,15 +301,13 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
      }
    else
      {
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c

index 43439ef385cea36bc71c28e750a166ca54794a0c..47571d9b010041404d7de9b795456c405aac9ac5 100644 (file)
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -301,15 +301,13 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
      }
    else
      {
diff --git a/libgfortran/generated/sum_r17.c b/libgfortran/generated/sum_r17.c

index 97af0d73a77f6f9e84510276f3f230802d9f2530..d479f200a8099aa7500c31b660babfe71afa0789 100644 (file)
--- a/libgfortran/generated/sum_r17.c
+++ b/libgfortran/generated/sum_r17.c
@@ -301,15 +301,13 @@ msum_r17 (gfc_array_r17 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_r17 (gfc_array_r17 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
      }
    else
      {
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c

index 5a4e06a55457c18df55c6b76d34c92d7252653cb..227ea34124fc8d7bf53f99d7c49d2c01a734620a 100644 (file)
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -301,15 +301,13 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
      }
    else
      {
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c

index 00f7cdba5400702babebe1ca1394341a0d69ecd2..d0d0c111d4c8482912aafc672769dc5465d953bd 100644 (file)
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -301,15 +301,13 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
-
      }
    else
      {
@@ -466,14 +464,13 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
      }
    else
      {
diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4

index 16615aa290fc93031e2bb783e22b5a510f99dca6..bc5ce55e81c4964a2ed616511de8153f29e3a518 100644 (file)
--- a/libgfortran/m4/ifunction-s.m4
+++ b/libgfortran/m4/ifunction-s.m4
@@ -303,15 +303,13 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
-
      }
    else
      {
@@ -467,14 +465,13 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
      }
    else
      {
diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4

index 4d31c208e05ecbe9b9240c45a73c37dbd0b389f8..22ba00899d73ea7fc2656bc65b5bcffea0aae372 100644 (file)
--- a/libgfortran/m4/ifunction-s2.m4
+++ b/libgfortran/m4/ifunction-s2.m4
@@ -304,15 +304,13 @@ void
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
-
      }
    else
      {
@@ -468,14 +466,13 @@ void
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]
                  * string_len;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
      }
    else
      {
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4

index c64217ec5db9df03421446de8a8b3c1f99318a9c..c80aa86c89023273a86c5a57e0a9548909a0adc6 100644 (file)
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -291,15 +291,13 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
        retarray->offset = 0;
        retarray->dtype.rank = rank;
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
-
      }
    else
      {
@@ -455,14 +453,13 @@ void
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
      }
    else
      {
diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4

index 0568387e343832b80eb63b8180e075b78aa7766e..cb576f3472efd2114ad377759eda826e12f99b65 100644 (file)
--- a/libgfortran/m4/ifunction_logical.m4
+++ b/libgfortran/m4/ifunction_logical.m4
@@ -91,14 +91,13 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
  
        alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
  
+      retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
           GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);
           return;
         }
-      else
-       retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name));
      }
    else
      {
author	Mikael Morin <mikael@gcc.gnu.org>
	Tue, 7 Nov 2023 10:24:02 +0000 (11:24 +0100)
committer	Mikael Morin <mikael@gcc.gnu.org>
	Wed, 8 Nov 2023 11:32:18 +0000 (12:32 +0100)
gcc/testsuite/gfortran.dg/allocated_4.f90	[new file with mode: 0644]	patch \| blob
libgfortran/generated/all_l1.c		patch \| blob \| blame \| history
libgfortran/generated/all_l16.c		patch \| blob \| blame \| history
libgfortran/generated/all_l2.c		patch \| blob \| blame \| history
libgfortran/generated/all_l4.c		patch \| blob \| blame \| history
libgfortran/generated/all_l8.c		patch \| blob \| blame \| history
libgfortran/generated/any_l1.c		patch \| blob \| blame \| history
libgfortran/generated/any_l16.c		patch \| blob \| blame \| history
libgfortran/generated/any_l2.c		patch \| blob \| blame \| history
libgfortran/generated/any_l4.c		patch \| blob \| blame \| history
libgfortran/generated/any_l8.c		patch \| blob \| blame \| history
libgfortran/generated/count_16_l.c		patch \| blob \| blame \| history
libgfortran/generated/count_1_l.c		patch \| blob \| blame \| history
libgfortran/generated/count_2_l.c		patch \| blob \| blame \| history
libgfortran/generated/count_4_l.c		patch \| blob \| blame \| history
libgfortran/generated/count_8_l.c		patch \| blob \| blame \| history
libgfortran/generated/iall_i1.c		patch \| blob \| blame \| history
libgfortran/generated/iall_i16.c		patch \| blob \| blame \| history
libgfortran/generated/iall_i2.c		patch \| blob \| blame \| history
libgfortran/generated/iall_i4.c		patch \| blob \| blame \| history
libgfortran/generated/iall_i8.c		patch \| blob \| blame \| history
libgfortran/generated/iany_i1.c		patch \| blob \| blame \| history
libgfortran/generated/iany_i16.c		patch \| blob \| blame \| history
libgfortran/generated/iany_i2.c		patch \| blob \| blame \| history
libgfortran/generated/iany_i4.c		patch \| blob \| blame \| history
libgfortran/generated/iany_i8.c		patch \| blob \| blame \| history
libgfortran/generated/iparity_i1.c		patch \| blob \| blame \| history
libgfortran/generated/iparity_i16.c		patch \| blob \| blame \| history
libgfortran/generated/iparity_i2.c		patch \| blob \| blame \| history
libgfortran/generated/iparity_i4.c		patch \| blob \| blame \| history
libgfortran/generated/iparity_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r17.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_r8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_s1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_16_s4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r17.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_r8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_s1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_4_s4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r17.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_r8.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_s1.c		patch \| blob \| blame \| history
libgfortran/generated/maxloc1_8_s4.c		patch \| blob \| blame \| history
libgfortran/generated/maxval1_s1.c		patch \| blob \| blame \| history
libgfortran/generated/maxval1_s4.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i1.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i16.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i2.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i4.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_i8.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r10.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r16.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r17.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r4.c		patch \| blob \| blame \| history
libgfortran/generated/maxval_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r17.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_s1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_16_s4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r17.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_s1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_4_s4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r17.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_r8.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_s1.c		patch \| blob \| blame \| history
libgfortran/generated/minloc1_8_s4.c		patch \| blob \| blame \| history
libgfortran/generated/minval1_s1.c		patch \| blob \| blame \| history
libgfortran/generated/minval1_s4.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i1.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i16.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i2.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i4.c		patch \| blob \| blame \| history
libgfortran/generated/minval_i8.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r10.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r16.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r17.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r4.c		patch \| blob \| blame \| history
libgfortran/generated/minval_r8.c		patch \| blob \| blame \| history
libgfortran/generated/product_c10.c		patch \| blob \| blame \| history
libgfortran/generated/product_c16.c		patch \| blob \| blame \| history
libgfortran/generated/product_c17.c		patch \| blob \| blame \| history
libgfortran/generated/product_c4.c		patch \| blob \| blame \| history
libgfortran/generated/product_c8.c		patch \| blob \| blame \| history
libgfortran/generated/product_i1.c		patch \| blob \| blame \| history
libgfortran/generated/product_i16.c		patch \| blob \| blame \| history
libgfortran/generated/product_i2.c		patch \| blob \| blame \| history
libgfortran/generated/product_i4.c		patch \| blob \| blame \| history
libgfortran/generated/product_i8.c		patch \| blob \| blame \| history
libgfortran/generated/product_r10.c		patch \| blob \| blame \| history
libgfortran/generated/product_r16.c		patch \| blob \| blame \| history
libgfortran/generated/product_r17.c		patch \| blob \| blame \| history
libgfortran/generated/product_r4.c		patch \| blob \| blame \| history
libgfortran/generated/product_r8.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c10.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c16.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c17.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c4.c		patch \| blob \| blame \| history
libgfortran/generated/sum_c8.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i1.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i16.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i2.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i4.c		patch \| blob \| blame \| history
libgfortran/generated/sum_i8.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r10.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r16.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r17.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r4.c		patch \| blob \| blame \| history
libgfortran/generated/sum_r8.c		patch \| blob \| blame \| history
libgfortran/m4/ifunction-s.m4		patch \| blob \| blame \| history
libgfortran/m4/ifunction-s2.m4		patch \| blob \| blame \| history
libgfortran/m4/ifunction.m4		patch \| blob \| blame \| history
libgfortran/m4/ifunction_logical.m4		patch \| blob \| blame \| history