[Bug fortran/55395] [4.8 Regression] libgfortran bootstrap failure on powerpc-linux-gnu and arm-linux-gnueabi

[burnus at gcc dot gnu.org]

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



Tobias Burnus <burnus at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

                 CC|                            |burnus at gcc dot gnu.org



--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-11-19 
23:09:57 UTC ---

Untested:



--- a/libgfortran/io/list_read.c

+++ b/libgfortran/io/list_read.c

@@ -2377,3 +2377,3 @@ nml_query (st_parameter_dt *dtp, char c)

   static const index_type endlen = 3;

-  static const char endl[] = "\r\n";

+  static const char endline[] = "\r\n";

   static const char nmlend[] = "&end\r\n";

@@ -2381,3 +2381,3 @@ nml_query (st_parameter_dt *dtp, char c)

   static const index_type endlen = 2;

-  static const char endl[] = "\n";

+  static const char endline[] = "\n";

   static const char nmlend[] = "&end\n";

@@ -2415,3 +2415,3 @@ nml_query (st_parameter_dt *dtp, char c)

          memcpy ((char*)(p + 1), dtp->namelist_name, len);

-         memcpy ((char*)(p + len + 1), &endl, endlen - 1);

+         memcpy ((char*)(p + len + 1), &endline, endlen - 1);

          for (nl = dtp->u.p.ionml; nl; nl = nl->next)

@@ -2426,3 +2426,3 @@ nml_query (st_parameter_dt *dtp, char c)

              memcpy ((char*)(p + 1), nl->var_name, len);

-             memcpy ((char*)(p + len + 1), &endl, endlen - 1);

+             memcpy ((char*)(p + len + 1), &endline, endlen - 1);

            }