From a383cfa3689d2399f1600f1694dab2df0408b4eb Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 26 May 2007 19:31:57 +0000 Subject: [PATCH] re PR fortran/31813 (Warn about deleted feature: H edit descriptor) 2007-05-26 Jerry DeLisle PR fortran/31813 * io.c (check_format): Add warning for H specifier in format. From-SVN: r125097 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/io.c | 28 +++++++++++++++------------- 2 files changed, 20 insertions(+), 13 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2843e99..e86556f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2007-05-26 Jerry DeLisle + + PR fortran/31813 + * io.c (check_format): Add warning for H specifier in format. + 2007-05-26 Tobias Burnus * gfortran.texi: Document the GFORTRAN_ERROR_DUMPCORE and diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 8c17b3a..19a4437 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -565,8 +565,6 @@ format_item_1: case FMT_L: case FMT_A: case FMT_D: - goto data_desc; - case FMT_H: goto data_desc; @@ -718,19 +716,23 @@ data_desc: break; case FMT_H: + if (!(gfc_option.allow_std & GFC_STD_GNU) && !inhibit_warnings) + gfc_warning ("The H format specifier at %C is" + " a Fortran 95 deleted feature"); + if(mode == MODE_STRING) - { - format_string += value; - format_length -= value; - } + { + format_string += value; + format_length -= value; + } else - { - while (repeat >0) - { - next_char (1); - repeat -- ; - } - } + { + while (repeat >0) + { + next_char (1); + repeat -- ; + } + } break; case FMT_IBOZ: -- 2.7.4