diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-05-13 23:36:16 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-13 23:36:16 +0000 |
| commit | 187f073476404d31fb0c72ef3767168238bafbc6 (patch) | |
| tree | e3563c6b74b5f400422935fc1cb7b81ec6d3c917 | |
| parent | c39373da4911f9246dec9b50011ed2aa9247c2c1 (diff) | |
| download | gcc-187f073476404d31fb0c72ef3767168238bafbc6.zip gcc-187f073476404d31fb0c72ef3767168238bafbc6.tar.gz gcc-187f073476404d31fb0c72ef3767168238bafbc6.tar.bz2 | |
format.c: (parse_format_list): No comma is required after P descriptor.
* io/format.c: (parse_format_list): No comma is required after
P descriptor.
From-SVN: r81819
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/format.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 715ceeb..7df9edf 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2004-05-13 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> + + * io/format.c: (parse_format_list): No comma is required after + P descriptor. + 2004-05-13 Bud Davis <bdavis9659@comcast.net> PR fortran/15204 diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index caec167..0be913c 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2003 Free Software Foundation, Inc. +/* Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -510,7 +510,7 @@ format_item: } saved_token = t; - goto between_desc; + goto optional_comma; case FMT_P: /* P and X require a prior number */ error = "P descriptor requires leading scale factor"; |