diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-26 19:31:57 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-26 19:31:57 +0000 |
| commit | a383cfa3689d2399f1600f1694dab2df0408b4eb (patch) | |
| tree | d3b8976626f903e84572c25b38c5a5a8b180c647 /gcc/fortran/io.c | |
| parent | 5ef1348f3c0f87d70e284a9b2310fe48cf4d10ed (diff) | |
| download | gcc-a383cfa3689d2399f1600f1694dab2df0408b4eb.zip gcc-a383cfa3689d2399f1600f1694dab2df0408b4eb.tar.gz gcc-a383cfa3689d2399f1600f1694dab2df0408b4eb.tar.bz2 | |
re PR fortran/31813 (Warn about deleted feature: H edit descriptor)
2007-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31813
* io.c (check_format): Add warning for H specifier in format.
From-SVN: r125097
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 28 |
1 files changed, 15 insertions, 13 deletions
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: |