[patch, libfortran] UTF-8 Support, part 1.1

[Aaron W. LaFramboise]

Jerry DeLisle wrote:

> Regression tested on x86-64-linux-gnu.

> 2008-08-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
> 

>     * io/write.c (error.h): Add include. (typedef uchar): New type.
>     (write_default_char4): New function to default write KIND=4 string.
>     (write_utf8_char4): New function to UTF-8 write KIND=4 string.
>     (write_a_char4): Modify to use new functions.
>     (write_character): Modify to use new functions.

On current mainline as of revision 139192, I get this error:

../../../svn/libgfortran/io/write.c: In function 'write_a_char4': 

../../../svn/libgfortran/io/write.c:311: error: 'p' undeclared (first 
use in thi
s function) 

../../../svn/libgfortran/io/write.c:311: error: (Each undeclared 
identifier is r
eported only once 

../../../svn/libgfortran/io/write.c:311: error: for each function it 
appears in.
) 

../../../svn/libgfortran/io/write.c:334: warning: passing argument 2 of 
'write_d
efault_char4' from incompatible pointer type 

../../../svn/libgfortran/io/write.c:304: warning: unused variable 'j' 

make[3]: *** [write.lo] Error 1 



Adding back the "char *p;" seems to make things work again.