diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-21 21:37:25 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-21 21:37:25 +0000 |
| commit | 61fa81cc91924163fd83420c2dcfcedfbe23a641 (patch) | |
| tree | d8fe1bebb6dada99658d820fef0bcdf6b8789378 /libgfortran/io | |
| parent | c7fe03c012a11c8b641a4e140914034e11538ca3 (diff) | |
| download | gcc-61fa81cc91924163fd83420c2dcfcedfbe23a641.tar.gz | |
* io.c (check_format): As a GNU extension, allow the comma after a
string literal to be optional in a format. Use gfc_notify_std to
issue an error/warning as appropriate.
* io/format.c (parse_format_list): Allow the comma after a string
literal to be optional.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82109 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/format.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 4255e29f49c..f886f7f7187 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -543,7 +543,7 @@ format_item: tail->u.string.p = string; tail->u.string.length = value; tail->repeat = 1; - goto between_desc; + goto optional_comma; case FMT_S: case FMT_SS: |