re PR fortran/24636 (gfortran: STOP without stop-code too noisy, regression w.r.t. g77)

	PR fortran/24636
	* match.c (gfc_match_stopcode):  Set stop_code = -1.
	* runtime/stop.c (stop_numeric): Use stop_code = -1.

From-SVN: r106509

gcc/fortran/ChangeLog

+2005-11-04  Steven G. Kargl <kargls@comcast.net>
+
+	PR fortran/24636
+	* match.c (gfc_match_stopcode):  Set stop_code = -1.
+
 2005-11-04  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR fortran/18452

gcc/fortran/match.c

@@ -1405,7 +1405,7 @@ gfc_match_stopcode (gfc_statement st)
   gfc_expr *e;
   match m;
 
-  stop_code = 0;
+  stop_code = -1;
   e = NULL;
 
   if (gfc_match_eos () != MATCH_YES)

libgfortran/ChangeLog

+2005-11-04  Steven G. Kargl <kargls@comcast.net>
+
+	PR fortran/24636
+	* runtime/stop.c (stop_numeric): Use stop_code = -1.
+
 2005-11-04  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR libfortran/22298

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);