* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,

[pf3gnuchains/gcc-fork.git] / libgfortran / generated / maxval_r8.c

diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index fa357b4..e3c7453 100644 (file)
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -76,8 +76,10 @@ __maxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim)
             retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1];
         }
 
-      retarray->data = internal_malloc (sizeof (GFC_REAL_8) * 
-                                        (retarray->dim[rank-1].stride * extent[rank-1]));
+      retarray->data
+        = internal_malloc_size (sizeof (GFC_REAL_8)
+                                * retarray->dim[rank-1].stride
+                                * extent[rank-1]);
       retarray->base = 0;
     }