------- Comment #9 from jvdelisle at gcc dot gnu dot org 2009-09-07 02:57
-------
Regarding comment #6.
>> In write_a_char4, one has:
>> const char crlf[] = "\r\n";
>> write_default_char4 (dtp, crlf, 2, 0);
>> but the second argument should be gfc_char4_t*
>Right. So what is "\r\n" in terms of gfc_char4_t?
I believe the following is the correct fix for this. I have partially tested
this but need to do some more testing.
Index: write.c
===================================================================
--- write.c (revision 151441)
+++ write.c (working copy)
@@ -293,7 +293,7 @@
Standard sections 10.6.3 and 9.9 for further information. */
if (is_stream_io (dtp))
{
- const char crlf[] = "\r\n";
+ const gfc_char4_t crlf[] = {0x000d,0x000a};
int i, bytes;
gfc_char4_t *qq;
bytes = 0;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41219
