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
This commit is contained in:
parent
c39373da49
commit
187f073476
@ -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>
|
2004-05-13 Bud Davis <bdavis9659@comcast.net>
|
||||||
|
|
||||||
PR fortran/15204
|
PR fortran/15204
|
||||||
|
@ -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
|
Contributed by Andy Vaught
|
||||||
|
|
||||||
This file is part of the GNU Fortran 95 runtime library (libgfortran).
|
This file is part of the GNU Fortran 95 runtime library (libgfortran).
|
||||||
@ -510,7 +510,7 @@ format_item:
|
|||||||
}
|
}
|
||||||
|
|
||||||
saved_token = t;
|
saved_token = t;
|
||||||
goto between_desc;
|
goto optional_comma;
|
||||||
|
|
||||||
case FMT_P: /* P and X require a prior number */
|
case FMT_P: /* P and X require a prior number */
|
||||||
error = "P descriptor requires leading scale factor";
|
error = "P descriptor requires leading scale factor";
|
||||||
|
Loading…
Reference in New Issue
Block a user