diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-10-23 02:31:00 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-10-23 02:31:00 +0000 |
| commit | a7f5d0542a6cad8303a025b07a48d2855091fefa (patch) | |
| tree | 0f795feb40442d1e9dcbe1cb9af2d4ad6fecd921 /libgfortran/io/write.c | |
| parent | a7bd6332aca18130563fa6dfa25e82c93a9705c1 (diff) | |
| download | gcc-a7f5d0542a6cad8303a025b07a48d2855091fefa.zip gcc-a7f5d0542a6cad8303a025b07a48d2855091fefa.tar.gz gcc-a7f5d0542a6cad8303a025b07a48d2855091fefa.tar.bz2 | |
re PR libfortran/37707 (Namelist read of array of derived type incorrect)
2008-10-22 Jerry DeLisle <jvdelisle@gcc.gnu.org
PR libfortran/37707
* io/list_read.c (read_character): Remove code to look ahead in namelist
reads to descriminate non-delimited strings from namelist objects.
* io/write.c (namelist_write): Delimit character strings with quote or
apostrophe, defaulting to quote.
From-SVN: r141317
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 020f473..12ff295 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1442,20 +1442,8 @@ namelist_write (st_parameter_dt *dtp) /* Set the delimiter for namelist output. */ tmp_delim = dtp->u.p.current_unit->delim_status; - switch (tmp_delim) - { - case (DELIM_QUOTE): - dtp->u.p.nml_delim = '"'; - break; - - case (DELIM_APOSTROPHE): - dtp->u.p.nml_delim = '\''; - break; - default: - dtp->u.p.nml_delim = '\0'; - break; - } + dtp->u.p.nml_delim = tmp_delim == DELIM_APOSTROPHE ? '\'' : '"'; /* Temporarily disable namelist delimters. */ dtp->u.p.current_unit->delim_status = DELIM_NONE; |