* runtime/memory.c (allocate_size): Malloc 1 byte if size == 0.

From-SVN: r104909

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 34b07eb12d4307b17d81235a5e2398a6cb524ce8..16bef477a50bf94d8edb839e41a85475547c5274 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-03  Jakub Jelinek  <jakub@redhat.com>
+
+       * runtime/memory.c (allocate_size): Malloc 1 byte if size == 0.
+
 2005-10-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/19308

diff --git a/libgfortran/runtime/memory.c b/libgfortran/runtime/memory.c
index 4f342c57b92e3826a555d6a8ba528563f00b4d99..d52319f4f3aa07c2a089714ebbd004e6d5bf7b78 100644 (file)
--- a/libgfortran/runtime/memory.c
+++ b/libgfortran/runtime/memory.c
@@ -182,7 +182,7 @@ allocate_size (void **mem, size_t size, GFC_INTEGER_4 * stat)
   if (!mem)
     runtime_error ("Internal: NULL mem pointer in ALLOCATE.");
 
-  newmem = malloc (size);
+  newmem = malloc (size ? size : 1);
   if (!newmem)
     {
       if (stat)