procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/82372 (Rejects valid parenthesis)

Browse source 
2017-10-15  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/82372
	* fortran/scanner.c (last_error_char):  New global variable.
	(gfc_scanner_init_1): Set last_error_char to NULL.
	(gfc_gobble_whitespace): If a character not printable or
	not newline, issue an error.

2017-10-15  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/82372
	* gfortran.dg/illegal_char.f90: New test.

From-SVN: r253768
This commit is contained in:
Thomas Koenig 2017-10-15 12:00:29 +00:00
parent 5fe8ac6bfb
commit 31677224bc
4 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View file

@ -1,3 +1,11 @@
2017-10-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/82372
* fortran/scanner.c (last_error_char): New global variable.
(gfc_scanner_init_1): Set last_error_char to NULL.
(gfc_gobble_whitespace): If a character not printable or
not newline, issue an error.
2017-10-13 Paul Thomas <pault@gcc.gnu.org>
PR fortran/81048

10
gcc/fortran/scanner.c
View file

@ -80,6 +80,7 @@ static struct gfc_file_change
size_t file_changes_cur, file_changes_count;
size_t file_changes_allocated;
static gfc_char_t *last_error_char;
/* Functions dealing with our wide characters (gfc_char_t) and
sequences of such characters. */
@ -269,6 +270,7 @@ gfc_scanner_init_1 (void)
continue_line = 0;
end_flag = 0;
last_error_char = NULL;
}
@ -1700,6 +1702,14 @@ gfc_gobble_whitespace (void)
}
while (gfc_is_whitespace (c));
if (!ISPRINT(c) && c != '\n' && last_error_char != gfc_current_locus.nextc)
{
char buf[20];
last_error_char = gfc_current_locus.nextc;
snprintf (buf, 20, "%2.2X", c);
gfc_error_now ("Invalid character 0x%s at %C", buf);
}
gfc_current_locus = old_loc;
}

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2017-10-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/82372
* gfortran.dg/illegal_char.f90: New test.
2017-10-14 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
Michael Collison <michael.collison@arm.com>

6
gcc/testsuite/gfortran.dg/illegal_char.f90 Normal file
View file

@ -0,0 +1,6 @@
! { dg-do compile }
! PR 82372 - show hexcode of illegal, non-printable characters
program main
tmp =È 1.0 ! { dg-error "Invalid character 0xC8" }
print *,tmp
end