2011-09-10 Thomas Koenig <tkoenig@gcc.gnu.org>

author tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>

Sat, 10 Sep 2011 14:06:57 +0000 (14:06 +0000)

committer tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>

Sat, 10 Sep 2011 14:06:57 +0000 (14:06 +0000)
author tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 10 Sep 2011 14:06:57 +0000 (14:06 +0000)
committer tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 10 Sep 2011 14:06:57 +0000 (14:06 +0000)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog

index 1ea792f..4546c27 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,107 @@
+2011-09-10  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/49479
+       * generated/m4/ifunction.m4:  Always call internal_malloc_size
+       even when there is a zero-sized return array.
+       * generated/generated/maxloc1_16_i16.c: Regenerated.
+       * generated/generated/maxloc1_16_i1.c: Regenerated.
+       * generated/generated/maxloc1_16_i2.c: Regenerated.
+       * generated/generated/maxloc1_16_i4.c: Regenerated.
+       * generated/generated/maxloc1_16_i8.c: Regenerated.
+       * generated/generated/maxloc1_16_r10.c: Regenerated.
+       * generated/generated/maxloc1_16_r16.c: Regenerated.
+       * generated/generated/maxloc1_16_r4.c: Regenerated.
+       * generated/generated/maxloc1_16_r8.c: Regenerated.
+       * generated/generated/maxloc1_4_i16.c: Regenerated.
+       * generated/generated/maxloc1_4_i1.c: Regenerated.
+       * generated/generated/maxloc1_4_i2.c: Regenerated.
+       * generated/generated/maxloc1_4_i4.c: Regenerated.
+       * generated/generated/maxloc1_4_i8.c: Regenerated.
+       * generated/generated/maxloc1_4_r10.c: Regenerated.
+       * generated/generated/maxloc1_4_r16.c: Regenerated.
+       * generated/generated/maxloc1_4_r4.c: Regenerated.
+       * generated/generated/maxloc1_4_r8.c: Regenerated.
+       * generated/generated/maxloc1_8_i16.c: Regenerated.
+       * generated/generated/maxloc1_8_i1.c: Regenerated.
+       * generated/generated/maxloc1_8_i2.c: Regenerated.
+       * generated/generated/maxloc1_8_i4.c: Regenerated.
+       * generated/generated/maxloc1_8_i8.c: Regenerated.
+       * generated/generated/maxloc1_8_r10.c: Regenerated.
+       * generated/generated/maxloc1_8_r16.c: Regenerated.
+       * generated/generated/maxloc1_8_r4.c: Regenerated.
+       * generated/generated/maxloc1_8_r8.c: Regenerated.
+       * generated/generated/maxval_i16.c: Regenerated.
+       * generated/generated/maxval_i1.c: Regenerated.
+       * generated/generated/maxval_i2.c: Regenerated.
+       * generated/generated/maxval_i4.c: Regenerated.
+       * generated/generated/maxval_i8.c: Regenerated.
+       * generated/generated/maxval_r10.c: Regenerated.
+       * generated/generated/maxval_r16.c: Regenerated.
+       * generated/generated/maxval_r4.c: Regenerated.
+       * generated/generated/maxval_r8.c: Regenerated.
+       * generated/generated/minloc1_16_i16.c: Regenerated.
+       * generated/generated/minloc1_16_i1.c: Regenerated.
+       * generated/generated/minloc1_16_i2.c: Regenerated.
+       * generated/generated/minloc1_16_i4.c: Regenerated.
+       * generated/generated/minloc1_16_i8.c: Regenerated.
+       * generated/generated/minloc1_16_r10.c: Regenerated.
+       * generated/generated/minloc1_16_r16.c: Regenerated.
+       * generated/generated/minloc1_16_r4.c: Regenerated.
+       * generated/generated/minloc1_16_r8.c: Regenerated.
+       * generated/generated/minloc1_4_i16.c: Regenerated.
+       * generated/generated/minloc1_4_i1.c: Regenerated.
+       * generated/generated/minloc1_4_i2.c: Regenerated.
+       * generated/generated/minloc1_4_i4.c: Regenerated.
+       * generated/generated/minloc1_4_i8.c: Regenerated.
+       * generated/generated/minloc1_4_r10.c: Regenerated.
+       * generated/generated/minloc1_4_r16.c: Regenerated.
+       * generated/generated/minloc1_4_r4.c: Regenerated.
+       * generated/generated/minloc1_4_r8.c: Regenerated.
+       * generated/generated/minloc1_8_i16.c: Regenerated.
+       * generated/generated/minloc1_8_i1.c: Regenerated.
+       * generated/generated/minloc1_8_i2.c: Regenerated.
+       * generated/generated/minloc1_8_i4.c: Regenerated.
+       * generated/generated/minloc1_8_i8.c: Regenerated.
+       * generated/generated/minloc1_8_r10.c: Regenerated.
+       * generated/generated/minloc1_8_r16.c: Regenerated.
+       * generated/generated/minloc1_8_r4.c: Regenerated.
+       * generated/generated/minloc1_8_r8.c: Regenerated.
+       * generated/generated/minval_i16.c: Regenerated.
+       * generated/generated/minval_i1.c: Regenerated.
+       * generated/generated/minval_i2.c: Regenerated.
+       * generated/generated/minval_i4.c: Regenerated.
+       * generated/generated/minval_i8.c: Regenerated.
+       * generated/generated/minval_r10.c: Regenerated.
+       * generated/generated/minval_r16.c: Regenerated.
+       * generated/generated/minval_r4.c: Regenerated.
+       * generated/generated/minval_r8.c: Regenerated.
+       * generated/generated/product_c10.c: Regenerated.
+       * generated/generated/product_c16.c: Regenerated.
+       * generated/generated/product_c4.c: Regenerated.
+       * generated/generated/product_c8.c: Regenerated.
+       * generated/generated/product_i16.c: Regenerated.
+       * generated/generated/product_i1.c: Regenerated.
+       * generated/generated/product_i2.c: Regenerated.
+       * generated/generated/product_i4.c: Regenerated.
+       * generated/generated/product_i8.c: Regenerated.
+       * generated/generated/product_r10.c: Regenerated.
+       * generated/generated/product_r16.c: Regenerated.
+       * generated/generated/product_r4.c: Regenerated.
+       * generated/generated/product_r8.c: Regenerated.
+       * generated/generated/sum_c10.c: Regenerated.
+       * generated/generated/sum_c16.c: Regenerated.
+       * generated/generated/sum_c4.c: Regenerated.
+       * generated/generated/sum_c8.c: Regenerated.
+       * generated/generated/sum_i16.c: Regenerated.
+       * generated/generated/sum_i1.c: Regenerated.
+       * generated/generated/sum_i2.c: Regenerated.
+       * generated/generated/sum_i4.c: Regenerated.
+       * generated/generated/sum_i8.c: Regenerated.
+       * generated/generated/sum_r10.c: Regenerated.
+       * generated/generated/sum_r16.c: Regenerated.
+       * generated/generated/sum_r4.c: Regenerated.
+       * generated/generated/sum_r8.c: Regenerated.
+
  2011-09-01  Thomas Koenig  <tkoenig@gcc.gnu.org>
  
         * generated/bessel_r4.c: Regenerated.
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c

index 920ea83..3e42463 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -101,6 +101,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c

index 0da1cc4..d6819aa 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -101,6 +101,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c

index 08d2dc1..691d034 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -101,6 +101,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c

index 4b8a19e..1e5b87c 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -101,6 +101,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c

index 292dad3..c6a73d8 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -101,6 +101,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c

index 090e9a9..d954000 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -101,6 +101,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c

index a8fe92c..4ecb784 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -101,6 +101,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c

index 5c80034..e5cd291 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -101,6 +101,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c

index 3f9200e..2d209d7 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -101,6 +101,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c

index 90f529a..efd6958 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -101,6 +101,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c

index 1b4f337..71850fc 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -101,6 +101,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c

index 3898b6f..d825039 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -101,6 +101,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c

index 5fcb754..f70b5aa 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -101,6 +101,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c

index b3b1caa..cda4a99 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -101,6 +101,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c

index 7e94e7b..7901a4b 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -101,6 +101,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c

index 2793b6a..f06d7b2 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -101,6 +101,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c

index 5292711..e6837aa 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -101,6 +101,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c

index 312e5d0..26c10c7 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -101,6 +101,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c

index 6e63c7e..c9dc610 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -101,6 +101,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c

index ea1fa93..7cd62ac 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -101,6 +101,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c

index 21362a9..fd0cc21 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -101,6 +101,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c

index e0245e3..97cd54b 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -101,6 +101,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c

index c5312c0..f9c455c 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -101,6 +101,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c

index 6459ecf..ab1173c 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -101,6 +101,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c

index 62b9ddb..9a02e12 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -101,6 +101,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c

index 97ef902..584bdb8 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -101,6 +101,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c

index e8cb067..c6f3efd 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -101,6 +101,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c

index ca6222b..5b67682 100644 (file)
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -100,6 +100,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c

index 56580b6..148319d 100644 (file)
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -100,6 +100,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c

index 7d39b2f..f87f3ed 100644 (file)
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -100,6 +100,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c

index 0acb6b3..51f2511 100644 (file)
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -100,6 +100,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c

index 803a79f..74aca03 100644 (file)
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -100,6 +100,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c

index 6eb3ea7..3eaaa4c 100644 (file)
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -100,6 +100,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c

index 32387f4..bc4cf27 100644 (file)
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -100,6 +100,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c

index c4fe4df..d7e25ee 100644 (file)
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -100,6 +100,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c

index bffc2b7..21c08e9 100644 (file)
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -100,6 +100,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c

index 2cdfd0f..8b4b53f 100644 (file)
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -101,6 +101,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c

index 9e4f82a..3a18e8c 100644 (file)
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -101,6 +101,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c

index 5d55ed0..bc13bee 100644 (file)
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -101,6 +101,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c

index 3ee75ae..84d131a 100644 (file)
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -101,6 +101,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c

index 847aa51..1f3e054 100644 (file)
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -101,6 +101,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c

index cf6f7cf..6bda151 100644 (file)
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -101,6 +101,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c

index ebe6c6d..c31cf4b 100644 (file)
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -101,6 +101,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c

index 7b335a9..52ec2b0 100644 (file)
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -101,6 +101,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c

index a410a27..a53ed34 100644 (file)
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -101,6 +101,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c

index 21448ac..e8af361 100644 (file)
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -101,6 +101,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c

index 7851ba8..8d3da20 100644 (file)
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -101,6 +101,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c

index 265472d..e7f2449 100644 (file)
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -101,6 +101,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c

index 794f25e..94d45c9 100644 (file)
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -101,6 +101,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c

index 05e4a65..fa07bcb 100644 (file)
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -101,6 +101,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c

index 8f5018f..5cb23a6 100644 (file)
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -101,6 +101,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c

index 42f428a..40854a1 100644 (file)
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -101,6 +101,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c

index d05ac79..4231d18 100644 (file)
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -101,6 +101,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c

index 372e592..8e5e5dd 100644 (file)
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -101,6 +101,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c

index c71191f..9a54335 100644 (file)
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -101,6 +101,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c

index 1939ab3..f0b477e 100644 (file)
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -101,6 +101,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c

index d869537..9d3d14e 100644 (file)
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -101,6 +101,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c

index 2ee384f..edac05c 100644 (file)
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -101,6 +101,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c

index ae164cf..3c0f441 100644 (file)
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -101,6 +101,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c

index 383cb88..a9239d2 100644 (file)
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -101,6 +101,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c

index 3f4d470..953ada7 100644 (file)
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -101,6 +101,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c

index f72cbb2..3882000 100644 (file)
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -101,6 +101,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c

index 1ed4486..c8d1812 100644 (file)
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -101,6 +101,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -108,8 +109,6 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c

index 9b15d0f..d9ee1d7 100644 (file)
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -100,6 +100,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c

index 1aea301..8394547 100644 (file)
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -100,6 +100,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c

index 3de9f02..9cffe84 100644 (file)
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -100,6 +100,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c

index 3023bc2..993116a 100644 (file)
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -100,6 +100,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c

index 32fb133..3a52b4b 100644 (file)
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -100,6 +100,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c

index 033288d..b490b3b 100644 (file)
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -100,6 +100,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c

index 35d2bac..701191f 100644 (file)
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -100,6 +100,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c

index 61502b0..e693765 100644 (file)
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -100,6 +100,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c

index 8884d93..611ee57 100644 (file)
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -100,6 +100,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c

index 4aa057d..140aa30 100644 (file)
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -100,6 +100,7 @@ product_c10 (gfc_array_c10 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_c10 (gfc_array_c10 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c

index aa69fa8..d595102 100644 (file)
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -100,6 +100,7 @@ product_c16 (gfc_array_c16 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_c16 (gfc_array_c16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c

index 145f41f..34c1bde 100644 (file)
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -100,6 +100,7 @@ product_c4 (gfc_array_c4 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_c4 (gfc_array_c4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c

index 7c16b64..6e34874 100644 (file)
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -100,6 +100,7 @@ product_c8 (gfc_array_c8 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_c8 (gfc_array_c8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c

index e087a06..2e04287 100644 (file)
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -100,6 +100,7 @@ product_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_i1 (gfc_array_i1 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c

index 9d224f3..e487ddf 100644 (file)
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -100,6 +100,7 @@ product_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_i16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c

index f025729..b4b0a4c 100644 (file)
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -100,6 +100,7 @@ product_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_i2 (gfc_array_i2 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c

index 3452923..a0164a1 100644 (file)
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -100,6 +100,7 @@ product_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_i4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c

index 44b0163..64c6487 100644 (file)
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -100,6 +100,7 @@ product_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_i8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c

index b93929d..71a70da 100644 (file)
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -100,6 +100,7 @@ product_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_r10 (gfc_array_r10 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c

index 6348cc5..0028ba1 100644 (file)
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -100,6 +100,7 @@ product_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_r16 (gfc_array_r16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c

index a1c0b52..492980e 100644 (file)
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -100,6 +100,7 @@ product_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_r4 (gfc_array_r4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c

index b56fcfb..cf05af1 100644 (file)
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -100,6 +100,7 @@ product_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ product_r8 (gfc_array_r8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c

index ae654dc..b982bfe 100644 (file)
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -100,6 +100,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c

index 7829b55..0bf2b69 100644 (file)
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -100,6 +100,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c

index 76f67af..a34e63c 100644 (file)
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -100,6 +100,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c

index 4673357..42dea7b 100644 (file)
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -100,6 +100,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
        alloc_size = sizeof (GFC_COMPLEX_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c

index e661f5e..4eb6d64 100644 (file)
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -100,6 +100,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_i1 (gfc_array_i1 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c

index cff59c0..8e2c7b3 100644 (file)
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -100,6 +100,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_i16 (gfc_array_i16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c

index 1cf463e..12ef64d 100644 (file)
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -100,6 +100,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_i2 (gfc_array_i2 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c

index 4c86b52..645ef43 100644 (file)
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -100,6 +100,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_i4 (gfc_array_i4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c

index 4b36024..adb29b5 100644 (file)
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -100,6 +100,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray,
        alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_i8 (gfc_array_i8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c

index 7df3ef9..9f588a5 100644 (file)
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -100,6 +100,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c

index ce0183b..292e66f 100644 (file)
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -100,6 +100,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c

index ab9335f..8fd563f 100644 (file)
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -100,6 +100,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c

index d10a86e..e583980 100644 (file)
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -100,6 +100,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
        alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -107,8 +108,6 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4

index 72b05f4..68e1c5e 100644 (file)
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -88,6 +88,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
        alloc_size = sizeof (rtype_name) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
                    * extent[rank-1];
  
+      retarray->data = internal_malloc_size (alloc_size);
        if (alloc_size == 0)
         {
           /* Make sure we have a zero-sized array.  */
@@ -95,8 +96,6 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
           return;
  
         }
-      else
-       retarray->data = internal_malloc_size (alloc_size);
      }
    else
      {
author	tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sat, 10 Sep 2011 14:06:57 +0000 (14:06 +0000)
committer	tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sat, 10 Sep 2011 14:06:57 +0000 (14:06 +0000)
libgfortran/ChangeLog		patch \| blob \| history
libgfortran/generated/maxloc1_16_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r8.c		patch \| blob \| history
libgfortran/generated/maxval_i1.c		patch \| blob \| history
libgfortran/generated/maxval_i16.c		patch \| blob \| history
libgfortran/generated/maxval_i2.c		patch \| blob \| history
libgfortran/generated/maxval_i4.c		patch \| blob \| history
libgfortran/generated/maxval_i8.c		patch \| blob \| history
libgfortran/generated/maxval_r10.c		patch \| blob \| history
libgfortran/generated/maxval_r16.c		patch \| blob \| history
libgfortran/generated/maxval_r4.c		patch \| blob \| history
libgfortran/generated/maxval_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r8.c		patch \| blob \| history
libgfortran/generated/minval_i1.c		patch \| blob \| history
libgfortran/generated/minval_i16.c		patch \| blob \| history
libgfortran/generated/minval_i2.c		patch \| blob \| history
libgfortran/generated/minval_i4.c		patch \| blob \| history
libgfortran/generated/minval_i8.c		patch \| blob \| history
libgfortran/generated/minval_r10.c		patch \| blob \| history
libgfortran/generated/minval_r16.c		patch \| blob \| history
libgfortran/generated/minval_r4.c		patch \| blob \| history
libgfortran/generated/minval_r8.c		patch \| blob \| history
libgfortran/generated/product_c10.c		patch \| blob \| history
libgfortran/generated/product_c16.c		patch \| blob \| history
libgfortran/generated/product_c4.c		patch \| blob \| history
libgfortran/generated/product_c8.c		patch \| blob \| history
libgfortran/generated/product_i1.c		patch \| blob \| history
libgfortran/generated/product_i16.c		patch \| blob \| history
libgfortran/generated/product_i2.c		patch \| blob \| history
libgfortran/generated/product_i4.c		patch \| blob \| history
libgfortran/generated/product_i8.c		patch \| blob \| history
libgfortran/generated/product_r10.c		patch \| blob \| history
libgfortran/generated/product_r16.c		patch \| blob \| history
libgfortran/generated/product_r4.c		patch \| blob \| history
libgfortran/generated/product_r8.c		patch \| blob \| history
libgfortran/generated/sum_c10.c		patch \| blob \| history
libgfortran/generated/sum_c16.c		patch \| blob \| history
libgfortran/generated/sum_c4.c		patch \| blob \| history
libgfortran/generated/sum_c8.c		patch \| blob \| history
libgfortran/generated/sum_i1.c		patch \| blob \| history
libgfortran/generated/sum_i16.c		patch \| blob \| history
libgfortran/generated/sum_i2.c		patch \| blob \| history
libgfortran/generated/sum_i4.c		patch \| blob \| history
libgfortran/generated/sum_i8.c		patch \| blob \| history
libgfortran/generated/sum_r10.c		patch \| blob \| history
libgfortran/generated/sum_r16.c		patch \| blob \| history
libgfortran/generated/sum_r4.c		patch \| blob \| history
libgfortran/generated/sum_r8.c		patch \| blob \| history
libgfortran/m4/ifunction.m4		patch \| blob \| history