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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104909 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 34b07eb..16bef47 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 4f342c5..d52319f 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)