From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 20 May 2010 19:40:30 +0000 (+0000)
Subject: 2010-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=98c48d20dc97f33396f914b9bcb28ec9f3518e0f

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 0f001411834..e90848cf57f 100644
--- 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 87c0411acbe..f2a12338175 100644
--- 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);
 }