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
This commit is contained in:
parent
5ef1348f3c
commit
a383cfa368
2 changed files with 20 additions and 13 deletions
|
@ -1,3 +1,8 @@
|
|||
2007-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||
|
||||
PR fortran/31813
|
||||
* io.c (check_format): Add warning for H specifier in format.
|
||||
|
||||
2007-05-26 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* gfortran.texi: Document the GFORTRAN_ERROR_DUMPCORE and
|
||||
|
|
|
@ -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:
|
||||
|
|
Loading…
Add table
Reference in a new issue