mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-28 02:34:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

From-SVN: r106509
This commit is contained in:
Steven G. Kargl 2005-11-04 22:18:22 +00:00 committed by Steven G. Kargl
parent 930352c0b7
commit 33de49ea9f
4 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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

2
gcc/fortran/match.c
View File

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

5
libgfortran/ChangeLog
View File

@ -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

2
libgfortran/runtime/stop.c
View File

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