PR fortran/24636

[pf3gnuchains/gcc-fork.git] / libgfortran / runtime / stop.c

diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 768d75b..920cc2c 100644 (file)
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -40,7 +40,7 @@ stop_numeric (GFC_INTEGER_4 code)
   show_locus ();
 
   if (code == -1)
-    st_printf ("STOP\n");
+    code = 0;
   else
     st_printf ("STOP %d\n", (int)code);