diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-12-16 20:27:51 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-12-16 20:27:51 +0000 |
| commit | 5cdc4b0ef0381439be6cebd6ba8925f69e4d51d6 (patch) | |
| tree | 1c1292043826432403d69b5a9ecd00fa24a8f2f8 /gcc/fortran | |
| parent | c2d42d16195d87ad6fb063a0db0287ad197a972b (diff) | |
| download | gcc-5cdc4b0ef0381439be6cebd6ba8925f69e4d51d6.zip gcc-5cdc4b0ef0381439be6cebd6ba8925f69e4d51d6.tar.gz gcc-5cdc4b0ef0381439be6cebd6ba8925f69e4d51d6.tar.bz2 | |
re PR fortran/78662 ([F03] Incorrect parsing of quotes in the char-literal-constant of the DT data descriptor)
2016-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/78622
* io.c (format_lex): Continue of string delimiter seen.
* io/transfer.c (get_dt_format): New static function to alloc
and set the DT iotype string, handling doubled quotes.
(formatted_transfer_scalar_read,
formatted_transfer_scalar_write): Use new function.
* gfortran.dg/dtio_20.f03: New test.
From-SVN: r243765
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e460504..fba0d98 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2016-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/78622 + * io.c (format_lex): Continue of string delimiter seen. + 2016-12-16 Jakub Jelinek <jakub@redhat.com> PR fortran/78757 diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index d35437a..8f4f268 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -486,12 +486,13 @@ format_lex (void) if (c == delim) { c = next_char (NONSTRING); - if (c == '\0') { token = FMT_END; break; } + if (c == delim) + continue; unget_char (); break; } |