mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-22 06:50:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

PR fortran/36420, 36422

Browse Source 
2008-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36420, 36422
	* io.c (check_format): Add new error message for zero width. Use new
	error message for FMT_A and with READ, FMT_G.  Allow FMT_G with WRITE
	except when -std=F95 and -std=F2003.

From-SVN: r136544
This commit is contained in:
Jerry DeLisle 2008-06-07 23:55:47 +00:00
parent 359ce95f40
commit 8955a00563
2 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2008-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36420, 36422
* io.c (check_format): Add new error message for zero width.
Use new error message for FMT_A and with READ, FMT_G. Allow
FMT_G with WRITE except when -std=F95 and -std=F2003.
2008-06-07 Tobias Burnus <burnus@net-b.de>
PR fortran/36437

20
gcc/fortran/io.c
View File

@ -476,6 +476,7 @@ check_format (bool is_input)
const char *nonneg_required = _("Nonnegative width required");
const char *unexpected_element = _("Unexpected element");
const char *unexpected_end = _("Unexpected end of format string");
const char *zero_width = _("Zero width in format descriptor");
const char *error;
format_token t, u;
@ -672,6 +673,11 @@ data_desc:
t = format_lex ();
if (t == FMT_ERROR)
goto fail;
if (t == FMT_ZERO)
{
error = zero_width;
goto syntax;
}
if (t != FMT_POSINT)
saved_token = t;
break;
@ -681,6 +687,18 @@ data_desc:
case FMT_G:
case FMT_EXT:
u = format_lex ();
if (t == FMT_G && u == FMT_ZERO)
{
if (is_input)
{
error = zero_width;
goto syntax;
}
else
return gfc_notify_std (GFC_STD_F2008, "Fortran F2008: 'G0' in "
"format at %C");
}
if (u == FMT_ERROR)
goto fail;
if (u != FMT_POSINT)
@ -1711,7 +1729,7 @@ gfc_match_open (void)
if (open->round)
{
/* When implemented, change the following to use gfc_notify_std F2003. */
gfc_error ("F2003 Feature: ROUND= specifier at %C not implemented");
gfc_error ("Fortran F2003: ROUND= specifier at %C not implemented");
goto cleanup;
if (open->round->expr_type == EXPR_CONSTANT)