From 8be123d4a969fb67c7d46754bec8a51de680c97a Mon Sep 17 00:00:00 2001 From: Roger Sayle Date: Thu, 20 May 2004 18:56:33 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/io.c | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * io.c (format_item): Allow the number before the X format to + be optional when not -pedantic. + 2004-05-18 Feng Wang Paul Brook 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; -- 2.7.4