OSDN Git Service

2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 16 Oct 2010 16:06:07 +0000 (16:06 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 16 Oct 2010 16:06:07 +0000 (16:06 +0000)
commit8545af25e56a0ef6a7bbe3f98dc0978736a8231a
treeef2e1984f68327623f3236a0f91f67926babb5ce
parent28fa603b6a58f13ca33afc722b1f24b7c5dcd9a6
2010-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/20165
PR fortran/31593
PR fortran/43665
* gfortran.map:  Add _gfortran_transfer_array_write,
_gfortran_transfer_array_write, _gfortran_transfer_character_write,
_gfortran_transfer_character_wide_write,
_gfortran_transfer_complex_write,
_gfortran_transfer_integer_write,
_gfortran_transfer_logical_write and
_gfortran_transfer_real_write.
* io/transfer.c (transfer_integer_write):  Add prototype and
function body as call to the original function, without the
_write.
(transfer_real_write):  Likewise.
(transfer_logical_write):  Likewise.
(transfer_character_write):  Likewise.
(transfer_character_wide_write):  Likewise.
(transfer_complex_write):  Likewise.
(transfer_array_write):  Likewise.

2010-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/20165
PR fortran/31593
PR fortran/43665
* trans-io.c (enum iocall): Add IOCALL_X_INTEGER_WRITE,
IOCALL_X_LOGICAL_WRITE, IOCALL_X_CHARACTER_WRITE,
IOCALL_X_CHARACTER_WIDE_WRIE, IOCALL_X_REAL_WRITE,
IOCALL_X_COMPLEX_WRITE and IOCALL_X_ARRAY_WRITE.
(gfc_build_io_library_fndecls):  Add corresponding function
decls.
(transfer_expr):  If the current transfer is a READ, use
the iocall with the original version, otherwise the version
with _WRITE.
(transfer_array_desc):  Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165559 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-io.c
libgfortran/ChangeLog
libgfortran/gfortran.map
libgfortran/io/transfer.c