summaryrefslogtreecommitdiff
path: root/libgfortran/io
diff options
context:
space:
mode:
authorpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>2004-05-13 23:36:16 +0000
committerpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>2004-05-13 23:36:16 +0000
commit1dad1fa1f44d1ac1a0e14475aeb708556d1e05d5 (patch)
treee3563c6b74b5f400422935fc1cb7b81ec6d3c917 /libgfortran/io
parent60b93f922aa5caab5206936061e19e2accc995a3 (diff)
downloadgcc-1dad1fa1f44d1ac1a0e14475aeb708556d1e05d5.tar.gz
* io/format.c: (parse_format_list): No comma is required after
P descriptor. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81819 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
-rw-r--r--libgfortran/io/format.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c
index caec1672da5..0be913c59b9 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";