[Bug fortran/41219] libgfortran build warnings

[jvdelisle at gcc dot gnu dot org]

------- 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