re PR libfortran/35863 ([F2003] Implement ENCODING="UTF-8")

2008-08-19  Tobias Burnus  <burnus@net-b.de>

       PR libfortran/35863
       * io/write.c (write_a_char4): Add missing variable declaration
       in HAVE_CRLF block.

From-SVN: r139223

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3e10c2e467d1a0d020d98d3c192513cb10a17d78..7b5336032cbc4c8195cd126aef437e3256926db8 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-08-19  Tobias Burnus  <burnus@net-b.de>
+
+       PR libfortran/35863
+       * io/write.c (write_a_char4): Add missing variable declaration
+       in HAVE_CRLF block.
+
 2008-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libfortran/35863

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 8194cf8b7193d8b587d554c8d1e0bca51df7f117..97aed53ced65267240a0f2959bf9367bec3fdd80 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -308,6 +308,7 @@ write_a_char4 (st_parameter_dt *dtp, const fnode *f, const char *source, int len
       /* Write out any padding if needed.  */
       if (len < wlen)
        {
+         char *p;
          p = write_block (dtp, wlen - len);
          if (p == NULL)
            return;