2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR libgfortran/27634
	* io/format.c (parse_format_list): Allow missing period in format only
	if -std=legacy.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114212 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 50ebaf2..3ecabcd 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/27634
+       * io/format.c (parse_format_list): Allow missing period in format only
+       if -std=legacy.
+
 2006-05-28  Thomas Koenig  <Thomas.Koenig@online.de>
 
        * intrinsics/string_intrinsics.c (compare_string):

diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c
index 96d7019..5af5c6e 100644 (file)
--- a/libgfortran/io/format.c
+++ b/libgfortran/io/format.c
@@ -725,8 +725,16 @@ parse_format_list (st_parameter_dt *dtp)
       t = format_lex (fmt);
       if (t != FMT_PERIOD)
        {
-         fmt->error = period_required;
-         goto finished;
+         /* We treat a missing decimal descriptor as 0.  Note: This is only
+            allowed if -std=legacy, otherwise an error occurs.  */
+         if (compile_options.warn_std != 0)
+           {
+             fmt->error = period_required;
+             goto finished;
+           }
+         fmt->saved_token = t;
+         tail->u.real.d = 0;
+         break;
        }
 
       t = format_lex (fmt);