git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/43851 (Add _gfortran_error_stop_numeric) 

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.

From-SVN: r159638
This commit is contained in:
Jerry DeLisle 2010-05-20 19:40:30 +00:00
parent 1a494ab5a5
commit 00b97acd1b
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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> 2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43851 PR fortran/43851

12
libgfortran/runtime/stop.c
View File

@ -44,11 +44,13 @@ stop_numeric (GFC_INTEGER_4 code)
void void
stop_string (const char *string, GFC_INTEGER_4 len) stop_string (const char *string, GFC_INTEGER_4 len)
{ {
st_printf ("STOP "); if (string)
while (len--) {
st_printf ("%c", *(string++)); st_printf ("STOP ");
st_printf ("\n"); while (len--)
st_printf ("%c", *(string++));
st_printf ("\n");
}
sys_exit (0); sys_exit (0);
} }