diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 34b07eb12d4..16bef477a50 100644
--- 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 4f342c57b92..d52319f4f3a 100644
--- 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)