------- Comment #4 from jvdelisle at gcc dot gnu dot org 2010-07-13 02:08 ------- Subject: Bug 37077
Author: jvdelisle Date: Tue Jul 13 02:07:48 2010 New Revision: 162122 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=162122 Log: 2010-07-12 Jerry DeLisle <jvdeli...@gcc.gnu.org> PR fortran/37077 * trans-io.c (build_dt): Set common.unit to flag chracter(kind=4) internal unit. Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/trans-io.c ------- Comment #5 from jvdelisle at gcc dot gnu dot org 2010-07-13 02:12 ------- Subject: Bug 37077 Author: jvdelisle Date: Tue Jul 13 02:12:08 2010 New Revision: 162123 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=162123 Log: 2010-07-12 Jerry DeLisle <jvdeli...@gcc.gnu.org> PR libfortran/37077 * io/read.c: Fix comment. * io/io.h (is_char4_unit): New macro. * io/unit.c (get_internal_unit): Call new function open_internal4. * io/unix.c (mem_alloc_r4): New function. (mem_alloc_w4): New function. (mem_read4): New function, temporary stub. (mem_write4): New function. (open_internal4): New function to set stream pointers to use the new mem functions. * io/transfer.c (write_block): Use new mem_alloc_w4 to access internal units of kind=4. * io/unix.h: Add prototypes for open_internal4, mem_alloc_w4, and mem_alloc_r4. * io/write.c (memset4): New helper function. (memcpy4): New helper function. (write_default_char4): Use new helper functions. (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise. (write_integer): Likewise. * io/write_float.def (output_float): Add code blocks to handle internal unit kind=4 output utilizing gfc_char4_t pointers. (write_infnan): Use new helper functions. (OUTPUT_FLOAT_FMT_G): Update this macro likewise. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/io.h trunk/libgfortran/io/read.c trunk/libgfortran/io/transfer.c trunk/libgfortran/io/unit.c trunk/libgfortran/io/unix.c trunk/libgfortran/io/unix.h trunk/libgfortran/io/write.c trunk/libgfortran/io/write_float.def ------- Comment #6 from jvdelisle at gcc dot gnu dot org 2010-07-13 02:16 ------- Subject: Bug 37077 Author: jvdelisle Date: Tue Jul 13 02:16:29 2010 New Revision: 162124 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=162124 Log: 2010-07-12 Jerry DeLisle <jvdeli...@gcc.gnu.org> PR libfortran/37077 * gfortran.dg/char4_iunit_1.f03: New test. Added: trunk/gcc/testsuite/gfortran.dg/char4_iunit_1.f03 Modified: trunk/gcc/testsuite/ChangeLog ------- Comment #7 from jvdelisle at gcc dot gnu dot org 2010-07-16 05:39 ------- As an update. I have READ from character(kind=4) working. I am also going to complete list directed write of character and combine that. write(widestring,*) "test" does not work yet. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37077
