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 /libgfortran/io/io.h | |
| 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 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index fbc2fa3..9955348 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -644,6 +644,9 @@ internal_proto(type_name); extern void * read_block_form (st_parameter_dt *, int *); internal_proto(read_block_form); +extern void * read_block_form4 (st_parameter_dt *, int *); +internal_proto(read_block_form4); + extern void *write_block (st_parameter_dt *, int); internal_proto(write_block); |