2010-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/43851
	* runtime/stop.c (stop_string): Make sure nothing is emitted for
	blank stop.

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0f00141..e90848c 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+       PR fortran/43851
+       * runtime/stop.c (stop_string): Make sure nothing is emitted for
+       blank stop.
+
 2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 
        PR fortran/43851

diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 87c0411..f2a1233 100644 (file)
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -44,11 +44,13 @@ stop_numeric (GFC_INTEGER_4 code)
 void
 stop_string (const char *string, GFC_INTEGER_4 len)
 {
-  st_printf ("STOP ");
-  while (len--)
-    st_printf ("%c", *(string++));
-  st_printf ("\n");
-
+  if (string)
+    {
+      st_printf ("STOP ");
+      while (len--)
+       st_printf ("%c", *(string++));
+      st_printf ("\n");
+    }
   sys_exit (0);
 }