From: Tobias Burnus <burnus@net-b.de>
Date: Tue, 19 Aug 2008 06:00:51 +0000 (+0200)
Subject: re PR libfortran/35863 ([F2003] Implement ENCODING="UTF-8")
X-Git-Tag: releases/gcc-4.4.0~3077
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cfd648ca231c1be6a88ab6d8b6f7e7daad9fe7c3;p=thirdparty%2Fgcc.git

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 3e10c2e467d1..7b5336032cbc 100644
--- 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 8194cf8b7193..97aed53ced65 100644
--- 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;