diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-07-16 14:16:04 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-07-16 14:16:04 +0000 |
| commit | 74db2a472ab3ef14f7022d8680a7545bcd95a075 (patch) | |
| tree | 7dc23731407b69d629e46fa7bdb5a23547025068 /gcc/tree-ssa-loop-prefetch.c | |
| parent | 4b1b0ac1cf1d231766ae3906d3e67f63f612f703 (diff) | |
| download | gcc-74db2a472ab3ef14f7022d8680a7545bcd95a075.zip gcc-74db2a472ab3ef14f7022d8680a7545bcd95a075.tar.gz gcc-74db2a472ab3ef14f7022d8680a7545bcd95a075.tar.bz2 | |
re PR fortran/37077 (Implement Internal Unit I/O for character KIND=4)
2010-07-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37077
* io/read.c (read_default_char4): Add support for reading into a
kind-4 character variable from a character(kind=4) internal unit.
* io/io.h (read_block_form4): Add prototype.
* io/unit.c (get_internal_unit): Add call to fbuf_init.
(free_internal_unit): Add call to fbuf_destroy. (get_unit): Fix
whitespace.
* io/transfer.c (read_sf_internal): Use fbuf_alloc to allocate a string
to recieve the wide characters translated to single byte chracters.
(read_block_form): Fix whitespace. (read_block_form4): New function to
read from a character(kind=4) internal unit into a character(kind=4)
variable. (read_block_direct): Fix whitespace. (write_block): Fix
whitespace. (formatted_transfer_scalar_read): Likewise.
(formatted_transfer_scalar_write): Likewise.
* io/write.c (write_character): Add support for list directed write of
a kind=1 character string to a character(kind=4) internal unit.
From-SVN: r162260
Diffstat (limited to 'gcc/tree-ssa-loop-prefetch.c')
0 files changed, 0 insertions, 0 deletions