diff options
| author | Roger Sayle <roger@eyesopen.com> | 2004-05-20 18:56:33 +0000 |
|---|---|---|
| committer | Roger Sayle <sayle@gcc.gnu.org> | 2004-05-20 18:56:33 +0000 |
| commit | 8be123d4a969fb67c7d46754bec8a51de680c97a (patch) | |
| tree | 1bbffc8e89df991e8d3914e85437343b5319933f /gcc | |
| parent | 66fda8b2e69be9d25c621a0ca802434dd3f1f9c2 (diff) | |
| download | gcc-8be123d4a969fb67c7d46754bec8a51de680c97a.zip gcc-8be123d4a969fb67c7d46754bec8a51de680c97a.tar.gz gcc-8be123d4a969fb67c7d46754bec8a51de680c97a.tar.bz2 | |
io.c (format_item): Allow the number before the X format to be optional when not -pedantic.
* io.c (format_item): Allow the number before the X format to
be optional when not -pedantic.
From-SVN: r82067
Diffstat (limited to 'gcc')
| -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; |