From cfd648ca231c1be6a88ab6d8b6f7e7daad9fe7c3 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 19 Aug 2008 08:00:51 +0200 Subject: [PATCH] re PR libfortran/35863 ([F2003] Implement ENCODING="UTF-8") 2008-08-19 Tobias Burnus PR libfortran/35863 * io/write.c (write_a_char4): Add missing variable declaration in HAVE_CRLF block. From-SVN: r139223 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/write.c | 1 + 2 files changed, 7 insertions(+) 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 + + PR libfortran/35863 + * io/write.c (write_a_char4): Add missing variable declaration + in HAVE_CRLF block. + 2008-08-15 Jerry DeLisle 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;