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

Fortran - use temporary char buffer for passing HOST_WIDE_INT to gfc_error

Browse Source 
gcc/fortran/ChangeLog:

	PR fortran/100950
	* simplify.c (substring_has_constant_len): Fix format string of
	gfc_error, pass HOST_WIDE_INT bounds values via char buffer.
This commit is contained in:
Harald Anlauf 2021-08-20 13:38:00 +02:00
parent 37744f8260
commit 12f22906d3
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/fortran/simplify.c
View File

@ -4552,11 +4552,12 @@ substring_has_constant_len (gfc_expr *e)
if (istart <= iend)
{
char buffer[21];
if (istart < 1)
{
gfc_error ("Substring start index (" HOST_WIDE_INT_PRINT_DEC
") at %L below 1",
istart, &ref->u.ss.start->where);
sprintf (buffer, HOST_WIDE_INT_PRINT_DEC, istart);
gfc_error ("Substring start index (%s) at %L below 1",
buffer, &ref->u.ss.start->where);
return false;
}
@ -4567,9 +4568,9 @@ substring_has_constant_len (gfc_expr *e)
length = gfc_mpz_get_hwi (ref->u.ss.length->length->value.integer);
if (iend > length)
{
gfc_error ("Substring end index (" HOST_WIDE_INT_PRINT_DEC
") at %L exceeds string length",
iend, &ref->u.ss.end->where);
sprintf (buffer, HOST_WIDE_INT_PRINT_DEC, iend);
gfc_error ("Substring end index (%s) at %L exceeds string length",
buffer, &ref->u.ss.end->where);
return false;
}
length = iend - istart + 1;