+2009-08-22 Bud Davis <bdavis9659@sbcglobal.net>
+
+ PR fortran/28093
+ * io.c: reverted previous patch
+
2009-08-25 Janne Blomqvist <jb@gcc.gnu.org>
* gfortran.texi: Fix ENCODE example.
static gfc_char_t *format_string;
static int format_string_pos;
static int format_length, use_last_char;
-static int starting_format_length;
static char error_element;
static locus format_locus;
gfc_warning ("The H format specifier at %L is"
" a Fortran 95 deleted feature", &format_locus);
}
- while (repeat >0)
- {
- next_char (1);
- repeat -- ;
- }
+
+ if (mode == MODE_STRING)
+ {
+ format_string += value;
+ format_length -= value;
+ }
+ else
+ {
+ while (repeat >0)
+ {
+ next_char (1);
+ repeat -- ;
+ }
+ }
break;
case FMT_IBOZ:
rv = FAILURE;
finished:
- /* check for extraneous characters at end of valid format string */
- if ( starting_format_length > format_length )
- {
- format_locus.nextc += format_length + 1; /* point to the extra */
- gfc_warning ("Extraneous characters in format at %L", &format_locus);
- }
-
return rv;
}
mode = MODE_STRING;
format_string = e->value.character.string;
- starting_format_length = e->value.character.length;
+
/* More elaborate measures are needed to show where a problem is within a
format string that has been calculated, but that's probably not worth the
effort. */