diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3e10c2e467d..7b5336032cb 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 8194cf8b719..97aed53ced6 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;