diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8e1d6b3..8203f53 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-05-20 Roger Sayle <roger@eyesopen.com> + + * io.c (format_item): Allow the number before the X format to + be optional when not -pedantic. + 2004-05-18 Feng Wang <fengwang@nudt.edu.cn> Paul Brook <paul@codesourcery.com> diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index e2fd33d..7d3702c 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -467,11 +467,14 @@ format_item: goto data_desc; case FMT_P: - /* P and X require a prior number. */ + /* P requires a prior number. */ error = "P descriptor requires leading scale factor"; goto syntax; case FMT_X: + /* X requires a prior number if we're being pedantic. */ + if (!pedantic) + goto between_desc; error = "X descriptor requires leading space count"; goto syntax; |