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

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
187f0734 · Tobias Schlüter · Paul Brook · c39373da · 187f0734 · 187f0734
Commit 187f0734 authored May 13, 2004 by Tobias Schlüter Committed by Paul Brook May 13, 2004
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

libgfortran/ChangeLog
+5 -0

libgfortran/io/format.c
+2 -2

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
+2004-05-13  Tobias Schlter  <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

--- a/libgfortran/io/format.c
+++ b/libgfortran/io/format.c
-/* 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";