From 38f1a81f803a9ea4a42cd973483b71014d014347 Mon Sep 17 00:00:00 2001
From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 4 Nov 2005 22:18:22 +0000
Subject: [PATCH] PR fortran/24636 * match.c
(gfc_match_stopcode): Set stop_code = -1. * runtime/stop.c
(stop_numeric): Use stop_code = -1.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106509 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/fortran/ChangeLog | 5 +++++
gcc/fortran/match.c | 2 +-
libgfortran/ChangeLog | 5 +++++
libgfortran/runtime/stop.c | 2 +-
4 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 7e8cb395cf15..1aacb2025469 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index eac5697c5e40..8725a5f03994 100644
--- a/gcc/fortran/match.c
+++ b/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)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index c3c5a9ecb6ff..bb8e3323d1a6 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 768d75bbc0a5..920cc2c4f455 100644
--- 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);
--
GitLab