PR fortran/36420, 36422

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 950e67839a383e78a8b8cad8aecbc5710599acda..91cf3d72c8e4b0d9695de8073d3f2d65b47ae16a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 736253fe1599d76cda0752cb0f13b8d558af30d2..9b417c21463aafa17b83e33fed835c1c2ea1a9bd 100644 (file)
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -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)