OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/43851 (Add _gfortran_error_stop_numeric)

Browse Source 
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>
PR fortran/43851

12
libgfortran/runtime/stop.c
View File

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