From a7a8dddd9946fcdba42bc4a65956c8c575a36db5 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 29 May 2006 19:28:48 +0000 Subject: re PR fortran/27634 (formatted reading/writing: real format without dot) 2006-05-29 Jerry DeLisle PR libgfortran/27634 * io/format.c (parse_format_list): Allow missing period in format only if -std=legacy. From-SVN: r114212 --- libgfortran/io/format.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'libgfortran/io') diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 96d7019..5af5c6e 100644 --- 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); -- cgit v1.1