git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

trans-io.c (gfc_build_io_library_fndecls): Array descriptor arguments to transfer_array can be dereferenced recursively. 

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

	* trans-io.c (gfc_build_io_library_fndecls):
	Array descriptor arguments to transfer_array can be
	dereferenced recursively.

From-SVN: r165561
This commit is contained in:
Thomas Koenig 2010-10-16 18:47:55 +00:00
parent 844db5d09e
commit d4d9b0a641
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
* trans-io.c (gfc_build_io_library_fndecls):
Array descriptor arguments to transfer_array can be
dereferenced recursively.
2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org> 2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/20165 PR fortran/20165

2
gcc/fortran/trans-io.c
View File

@ -366,7 +366,7 @@ gfc_build_io_library_fndecls (void)
void_type_node, 3, dt_parm_type, pvoid_type_node, gfc_int4_type_node); void_type_node, 3, dt_parm_type, pvoid_type_node, gfc_int4_type_node);
iocall[IOCALL_X_ARRAY] = gfc_build_library_function_decl_with_spec ( iocall[IOCALL_X_ARRAY] = gfc_build_library_function_decl_with_spec (
get_identifier (PREFIX("transfer_array")), ".wW", get_identifier (PREFIX("transfer_array")), ".ww",
void_type_node, 4, dt_parm_type, pvoid_type_node, void_type_node, 4, dt_parm_type, pvoid_type_node,
integer_type_node, gfc_charlen_type_node); integer_type_node, gfc_charlen_type_node);