diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-08 04:49:23 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-08 04:49:23 +0000 |
| commit | be9084796b866ff5e3188947010fd2ff9f952b15 (patch) | |
| tree | 6229751b4eb48bff54ae9a9b30558a48f65b4177 /gcc/fortran/primary.c | |
| parent | 99e7c60e695978c4b6d8952c5c01bf375bfc7872 (diff) | |
| download | gcc-be9084796b866ff5e3188947010fd2ff9f952b15.tar.gz | |
2007-06-07 Steven G. Kargl <kargl@gcc.gnu.org>
Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32223
* match.c (gfc_match_special_char): New function. Match special char.
Add handling '\0'.
* match.h: Add prototype.
* io.c (next_char): Use it.
* primary.c (next_string_char): Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125557 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 34 |
1 files changed, 2 insertions, 32 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index ce81f44fd2d..90b1d6840e4 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -732,38 +732,8 @@ next_string_char (char delimiter) { old_locus = gfc_current_locus; - switch (gfc_next_char_literal (1)) - { - case 'a': - c = '\a'; - break; - case 'b': - c = '\b'; - break; - case 't': - c = '\t'; - break; - case 'f': - c = '\f'; - break; - case 'n': - c = '\n'; - break; - case 'r': - c = '\r'; - break; - case 'v': - c = '\v'; - break; - case '\\': - c = '\\'; - break; - - default: - /* Unknown backslash codes are simply not expanded */ - gfc_current_locus = old_locus; - break; - } + if (gfc_match_special_char (&c) == MATCH_NO) + gfc_current_locus = old_locus; if (!(gfc_option.allow_std & GFC_STD_GNU) && !inhibit_warnings) gfc_warning ("Extension: backslash character at %C"); |