[Bug libfortran/59764] Read logicals, line buffer, item_count, and error message consistancy

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59764

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
I have a patch successfully regression tested.

Basically, I have change in io.h as follows.  The component expanded_read is
just a flag and does not need to an integer, so I have used an available bit
above it for this and and then used the integer slot for line_buffer_pos.

This integer is then used in those places where needed for the look-ahead
buffer.  I will submit a patch for approval as soon as I get coordinated with
Steves patch for pr59700. 

Index: io.h
===================================================================
--- io.h    (revision 206351)
+++ io.h    (working copy)
@@ -430,7 +430,10 @@
       unsigned g0_no_blanks : 1;
       /* Used to signal use of free_format_data.  */
       unsigned format_not_saved : 1;
-      /* 14 unused bits.  */
+      /* A flag used to identify when a non-standard expanded namelist read
+         has occurred.  */
+      unsigned expanded_read : 1;
+      /* 13 unused bits.  */

       /* Used for ungetc() style functionality. Possible values
          are an unsigned char, EOF, or EOF - 1 used to mark the
@@ -447,9 +450,8 @@
       char *line_buffer;
       struct format_data *fmt;
       namelist_info *ionml;
-      /* A flag used to identify when a non-standard expanded namelist read
-         has occurred.  */
-      int expanded_read;
+      /* Current position within the look-ahead line buffer.  */
+      int line_buffer_pos;
       /* Storage area for values except for strings.  Must be
          large enough to hold a complex value (two reals) of the
          largest kind.  */