Sync down FSF r184235@google/gcc-4_6_2-mobile branch

1) Get mostly new patches from FSF gcc-4.6 branch
2) Fix PR52129
3) Insert GNU-stack note for all ARM targets

Change-Id: I2b9926981210e517e4021242908074319a91d6bd

98 files changed, 98 insertions, 196 deletions

diff --git a/gcc-4.6/libgfortran/generated/maxloc1_16_i1.c b/gcc-4.6/libgfortran/generated/maxloc1_16_i1.c
index 920ea836b..3e4246311 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_i16.c b/gcc-4.6/libgfortran/generated/maxloc1_16_i16.c
index 0da1cc42f..d6819aa71 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_i2.c b/gcc-4.6/libgfortran/generated/maxloc1_16_i2.c
index 08d2dc19a..691d03486 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_i4.c b/gcc-4.6/libgfortran/generated/maxloc1_16_i4.c
index 4b8a19ef2..1e5b87cab 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_i8.c b/gcc-4.6/libgfortran/generated/maxloc1_16_i8.c
index 292dad316..c6a73d833 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_r10.c b/gcc-4.6/libgfortran/generated/maxloc1_16_r10.c
index 090e9a9d4..d954000c8 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_r16.c b/gcc-4.6/libgfortran/generated/maxloc1_16_r16.c
index a8fe92c85..4ecb78418 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_r4.c b/gcc-4.6/libgfortran/generated/maxloc1_16_r4.c
index 5c80034a1..e5cd29156 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_16_r8.c b/gcc-4.6/libgfortran/generated/maxloc1_16_r8.c
index 3f9200ecd..2d209d786 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_16_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_i1.c b/gcc-4.6/libgfortran/generated/maxloc1_4_i1.c
index 90f529ac8..efd695807 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_i16.c b/gcc-4.6/libgfortran/generated/maxloc1_4_i16.c
index 1b4f33775..71850fcf8 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_i2.c b/gcc-4.6/libgfortran/generated/maxloc1_4_i2.c
index 3898b6f38..d825039e8 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_i4.c b/gcc-4.6/libgfortran/generated/maxloc1_4_i4.c
index 5fcb75452..f70b5aa10 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_i8.c b/gcc-4.6/libgfortran/generated/maxloc1_4_i8.c
index b3b1caa11..cda4a99ca 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_r10.c b/gcc-4.6/libgfortran/generated/maxloc1_4_r10.c
index 7e94e7b45..7901a4b15 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_r16.c b/gcc-4.6/libgfortran/generated/maxloc1_4_r16.c
index 2793b6abc..f06d7b2bb 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_r4.c b/gcc-4.6/libgfortran/generated/maxloc1_4_r4.c
index 5292711e5..e6837aa61 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_4_r8.c b/gcc-4.6/libgfortran/generated/maxloc1_4_r8.c
index 312e5d0b8..26c10c7b9 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_4_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_i1.c b/gcc-4.6/libgfortran/generated/maxloc1_8_i1.c
index 6e63c7eb6..c9dc61020 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_i16.c b/gcc-4.6/libgfortran/generated/maxloc1_8_i16.c
index ea1fa9367..7cd62ac3a 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_i2.c b/gcc-4.6/libgfortran/generated/maxloc1_8_i2.c
index 21362a9d4..fd0cc2172 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_i4.c b/gcc-4.6/libgfortran/generated/maxloc1_8_i4.c
index e0245e3f9..97cd54bb5 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_i8.c b/gcc-4.6/libgfortran/generated/maxloc1_8_i8.c
index c5312c0a1..f9c455cb0 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_r10.c b/gcc-4.6/libgfortran/generated/maxloc1_8_r10.c
index 6459ecffc..ab1173c6c 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_r16.c b/gcc-4.6/libgfortran/generated/maxloc1_8_r16.c
index 62b9ddbda..9a02e1273 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_r4.c b/gcc-4.6/libgfortran/generated/maxloc1_8_r4.c
index 97ef902d9..584bdb81f 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxloc1_8_r8.c b/gcc-4.6/libgfortran/generated/maxloc1_8_r8.c
index e8cb0678f..c6f3efd70 100644
--- a/gcc-4.6/libgfortran/generated/maxloc1_8_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_i1.c b/gcc-4.6/libgfortran/generated/maxval_i1.c
index ca6222bd6..5b676827d 100644
--- a/gcc-4.6/libgfortran/generated/maxval_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_i16.c b/gcc-4.6/libgfortran/generated/maxval_i16.c
index 56580b64d..148319d62 100644
--- a/gcc-4.6/libgfortran/generated/maxval_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_i2.c b/gcc-4.6/libgfortran/generated/maxval_i2.c
index 7d39b2f9b..f87f3edf3 100644
--- a/gcc-4.6/libgfortran/generated/maxval_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_i4.c b/gcc-4.6/libgfortran/generated/maxval_i4.c
index 0acb6b3e3..51f2511b4 100644
--- a/gcc-4.6/libgfortran/generated/maxval_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_i8.c b/gcc-4.6/libgfortran/generated/maxval_i8.c
index 803a79f38..74aca03cf 100644
--- a/gcc-4.6/libgfortran/generated/maxval_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_r10.c b/gcc-4.6/libgfortran/generated/maxval_r10.c
index 6eb3ea76e..3eaaa4c47 100644
--- a/gcc-4.6/libgfortran/generated/maxval_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_r16.c b/gcc-4.6/libgfortran/generated/maxval_r16.c
index 32387f4e3..bc4cf27bb 100644
--- a/gcc-4.6/libgfortran/generated/maxval_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_r4.c b/gcc-4.6/libgfortran/generated/maxval_r4.c
index c4fe4df36..d7e25ee7a 100644
--- a/gcc-4.6/libgfortran/generated/maxval_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/maxval_r8.c b/gcc-4.6/libgfortran/generated/maxval_r8.c
index bffc2b768..21c08e9ef 100644
--- a/gcc-4.6/libgfortran/generated/maxval_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_i1.c b/gcc-4.6/libgfortran/generated/minloc1_16_i1.c
index 2cdfd0f58..8b4b53f81 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_i16.c b/gcc-4.6/libgfortran/generated/minloc1_16_i16.c
index 9e4f82a5f..3a18e8c36 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_i2.c b/gcc-4.6/libgfortran/generated/minloc1_16_i2.c
index 5d55ed01f..bc13bee9e 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_i4.c b/gcc-4.6/libgfortran/generated/minloc1_16_i4.c
index 3ee75aecd..84d131a7a 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_i8.c b/gcc-4.6/libgfortran/generated/minloc1_16_i8.c
index 847aa5184..1f3e0549d 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_r10.c b/gcc-4.6/libgfortran/generated/minloc1_16_r10.c
index cf6f7cf51..6bda151ae 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_r16.c b/gcc-4.6/libgfortran/generated/minloc1_16_r16.c
index ebe6c6dd4..c31cf4bcb 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_r4.c b/gcc-4.6/libgfortran/generated/minloc1_16_r4.c
index 7b335a935..52ec2b078 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_16_r8.c b/gcc-4.6/libgfortran/generated/minloc1_16_r8.c
index a410a2783..a53ed3452 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_16_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_i1.c b/gcc-4.6/libgfortran/generated/minloc1_4_i1.c
index 21448ac18..e8af36127 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_i16.c b/gcc-4.6/libgfortran/generated/minloc1_4_i16.c
index 7851ba8a5..8d3da2059 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_i2.c b/gcc-4.6/libgfortran/generated/minloc1_4_i2.c
index 265472dbd..e7f24491f 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_i4.c b/gcc-4.6/libgfortran/generated/minloc1_4_i4.c
index 794f25e7f..94d45c92d 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_i8.c b/gcc-4.6/libgfortran/generated/minloc1_4_i8.c
index 05e4a6540..fa07bcb87 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_r10.c b/gcc-4.6/libgfortran/generated/minloc1_4_r10.c
index 8f5018f01..5cb23a6b6 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_r16.c b/gcc-4.6/libgfortran/generated/minloc1_4_r16.c
index 42f428a49..40854a12b 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_r4.c b/gcc-4.6/libgfortran/generated/minloc1_4_r4.c
index d05ac79fb..4231d180d 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_4_r8.c b/gcc-4.6/libgfortran/generated/minloc1_4_r8.c
index 372e592da..8e5e5ddc4 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_4_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_i1.c b/gcc-4.6/libgfortran/generated/minloc1_8_i1.c
index c71191f17..9a54335c8 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_i16.c b/gcc-4.6/libgfortran/generated/minloc1_8_i16.c
index 1939ab358..f0b477ebd 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_i2.c b/gcc-4.6/libgfortran/generated/minloc1_8_i2.c
index d869537e6..9d3d14ee5 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_i4.c b/gcc-4.6/libgfortran/generated/minloc1_8_i4.c
index 2ee384f24..edac05ccd 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_i8.c b/gcc-4.6/libgfortran/generated/minloc1_8_i8.c
index ae164cf8e..3c0f44127 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_r10.c b/gcc-4.6/libgfortran/generated/minloc1_8_r10.c
index 383cb884b..a9239d28c 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_r16.c b/gcc-4.6/libgfortran/generated/minloc1_8_r16.c
index 3f4d4702c..953ada7ef 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_r4.c b/gcc-4.6/libgfortran/generated/minloc1_8_r4.c
index f72cbb2ca..388200016 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minloc1_8_r8.c b/gcc-4.6/libgfortran/generated/minloc1_8_r8.c
index 1ed4486c6..c8d181277 100644
--- a/gcc-4.6/libgfortran/generated/minloc1_8_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_i1.c b/gcc-4.6/libgfortran/generated/minval_i1.c
index 9b15d0f3f..d9ee1d754 100644
--- a/gcc-4.6/libgfortran/generated/minval_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_i16.c b/gcc-4.6/libgfortran/generated/minval_i16.c
index 1aea30142..839454756 100644
--- a/gcc-4.6/libgfortran/generated/minval_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_i2.c b/gcc-4.6/libgfortran/generated/minval_i2.c
index 3de9f023b..9cffe844d 100644
--- a/gcc-4.6/libgfortran/generated/minval_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_i4.c b/gcc-4.6/libgfortran/generated/minval_i4.c
index 3023bc214..993116a83 100644
--- a/gcc-4.6/libgfortran/generated/minval_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_i8.c b/gcc-4.6/libgfortran/generated/minval_i8.c
index 32fb133ce..3a52b4b7e 100644
--- a/gcc-4.6/libgfortran/generated/minval_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_r10.c b/gcc-4.6/libgfortran/generated/minval_r10.c
index 033288d94..b490b3bee 100644
--- a/gcc-4.6/libgfortran/generated/minval_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_r16.c b/gcc-4.6/libgfortran/generated/minval_r16.c
index 35d2bac11..701191f40 100644
--- a/gcc-4.6/libgfortran/generated/minval_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_r4.c b/gcc-4.6/libgfortran/generated/minval_r4.c
index 61502b0c2..e69376590 100644
--- a/gcc-4.6/libgfortran/generated/minval_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/minval_r8.c b/gcc-4.6/libgfortran/generated/minval_r8.c
index 8884d93b9..611ee5796 100644
--- a/gcc-4.6/libgfortran/generated/minval_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_c10.c b/gcc-4.6/libgfortran/generated/product_c10.c
index 4aa057de4..140aa305f 100644
--- a/gcc-4.6/libgfortran/generated/product_c10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_c16.c b/gcc-4.6/libgfortran/generated/product_c16.c
index aa69fa86f..d59510248 100644
--- a/gcc-4.6/libgfortran/generated/product_c16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_c4.c b/gcc-4.6/libgfortran/generated/product_c4.c
index 145f41f33..34c1bde26 100644
--- a/gcc-4.6/libgfortran/generated/product_c4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_c8.c b/gcc-4.6/libgfortran/generated/product_c8.c
index 7c16b6425..6e3487489 100644
--- a/gcc-4.6/libgfortran/generated/product_c8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_i1.c b/gcc-4.6/libgfortran/generated/product_i1.c
index e087a0621..2e0428718 100644
--- a/gcc-4.6/libgfortran/generated/product_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_i16.c b/gcc-4.6/libgfortran/generated/product_i16.c
index 9d224f39f..e487ddfed 100644
--- a/gcc-4.6/libgfortran/generated/product_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_i2.c b/gcc-4.6/libgfortran/generated/product_i2.c
index f025729fe..b4b0a4ce7 100644
--- a/gcc-4.6/libgfortran/generated/product_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_i4.c b/gcc-4.6/libgfortran/generated/product_i4.c
index 3452923b0..a0164a161 100644
--- a/gcc-4.6/libgfortran/generated/product_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_i8.c b/gcc-4.6/libgfortran/generated/product_i8.c
index 44b0163ca..64c648774 100644
--- a/gcc-4.6/libgfortran/generated/product_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_r10.c b/gcc-4.6/libgfortran/generated/product_r10.c
index b93929d95..71a70da96 100644
--- a/gcc-4.6/libgfortran/generated/product_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_r16.c b/gcc-4.6/libgfortran/generated/product_r16.c
index 6348cc50e..0028ba1f8 100644
--- a/gcc-4.6/libgfortran/generated/product_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_r4.c b/gcc-4.6/libgfortran/generated/product_r4.c
index a1c0b521b..492980e67 100644
--- a/gcc-4.6/libgfortran/generated/product_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/product_r8.c b/gcc-4.6/libgfortran/generated/product_r8.c
index b56fcfb23..cf05af1fa 100644
--- a/gcc-4.6/libgfortran/generated/product_r8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_c10.c b/gcc-4.6/libgfortran/generated/sum_c10.c
index ae654dc9a..b982bfea0 100644
--- a/gcc-4.6/libgfortran/generated/sum_c10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_c16.c b/gcc-4.6/libgfortran/generated/sum_c16.c
index 7829b5594..0bf2b69d7 100644
--- a/gcc-4.6/libgfortran/generated/sum_c16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_c4.c b/gcc-4.6/libgfortran/generated/sum_c4.c
index 76f67afab..a34e63cdd 100644
--- a/gcc-4.6/libgfortran/generated/sum_c4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_c8.c b/gcc-4.6/libgfortran/generated/sum_c8.c
index 4673357e6..42dea7b28 100644
--- a/gcc-4.6/libgfortran/generated/sum_c8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_i1.c b/gcc-4.6/libgfortran/generated/sum_i1.c
index e661f5e87..4eb6d6420 100644
--- a/gcc-4.6/libgfortran/generated/sum_i1.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_i16.c b/gcc-4.6/libgfortran/generated/sum_i16.c
index cff59c01c..8e2c7b3ae 100644
--- a/gcc-4.6/libgfortran/generated/sum_i16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_i2.c b/gcc-4.6/libgfortran/generated/sum_i2.c
index 1cf463e36..12ef64d35 100644
--- a/gcc-4.6/libgfortran/generated/sum_i2.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_i4.c b/gcc-4.6/libgfortran/generated/sum_i4.c
index 4c86b5240..645ef436b 100644
--- a/gcc-4.6/libgfortran/generated/sum_i4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_i8.c b/gcc-4.6/libgfortran/generated/sum_i8.c
index 4b360242e..adb29b51c 100644
--- a/gcc-4.6/libgfortran/generated/sum_i8.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_r10.c b/gcc-4.6/libgfortran/generated/sum_r10.c
index 7df3ef9a5..9f588a5da 100644
--- a/gcc-4.6/libgfortran/generated/sum_r10.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_r16.c b/gcc-4.6/libgfortran/generated/sum_r16.c
index ce0183b6d..292e66f71 100644
--- a/gcc-4.6/libgfortran/generated/sum_r16.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_r4.c b/gcc-4.6/libgfortran/generated/sum_r4.c
index ab9335f9b..8fd563fc9 100644
--- a/gcc-4.6/libgfortran/generated/sum_r4.c
+++ b/gcc-4.6/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/gcc-4.6/libgfortran/generated/sum_r8.c b/gcc-4.6/libgfortran/generated/sum_r8.c
index d10a86ebd..e58398060 100644
--- a/gcc-4.6/libgfortran/generated/sum_r8.c
+++ b/gcc-4.6/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
     {