[patch, fortran] Separate READ from WRITE

[Tobias Burnus]

  On 10/13/2010 12:10 AM, Thomas Koenig wrote:
> Here's the updated patch [...]
> OK if it passes?

OK. Thanks for  the patch!

Tobias

> 2010-10-11  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-11  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.