diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-08-04 10:56:32 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-08-04 10:56:32 +0200 |
| commit | a19d2b955ab5283ce3f92462d517fa0a123bdb98 (patch) | |
| tree | c194432e40a05eed921884da22bf80078f1c643f /gcc | |
| parent | f39cd38b2711ce2e8355ac8188c34db0302e30c5 (diff) | |
| download | gcc-a19d2b955ab5283ce3f92462d517fa0a123bdb98.zip gcc-a19d2b955ab5283ce3f92462d517fa0a123bdb98.tar.gz gcc-a19d2b955ab5283ce3f92462d517fa0a123bdb98.tar.bz2 | |
trans-io.c (gfc_build_io_library_fndecls): Fix return value of some libgfortran functions.
2010-08-04 Tobias Burnus <burnus@net-b.de>
* trans-io.c (gfc_build_io_library_fndecls): Fix return
value of some libgfortran functions.
From-SVN: r162857
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-io.c | 20 |
2 files changed, 15 insertions, 10 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a426d83..ae65b68 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-08-04 Tobias Burnus <burnus@net-b.de> + + * trans-io.c (gfc_build_io_library_fndecls): Fix return + value of some libgfortran functions. + 2010-08-03 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/45159 diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 00c44e7..89c8df7 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -362,7 +362,7 @@ gfc_build_io_library_fndecls (void) parm_type = build_pointer_type (st_parameter[IOPARM_ptype_inquire].type); iocall[IOCALL_INQUIRE] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_inquire")), ".w", - gfc_int4_type_node, 1, parm_type); + void_type_node, 1, parm_type); iocall[IOCALL_IOLENGTH] = gfc_build_library_function_decl_with_spec( get_identifier (PREFIX("st_iolength")), ".w", @@ -372,43 +372,43 @@ gfc_build_io_library_fndecls (void) parm_type = build_pointer_type (st_parameter[IOPARM_ptype_wait].type); iocall[IOCALL_WAIT] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_wait")), ".X", - gfc_int4_type_node, 1, parm_type); + void_type_node, 1, parm_type); parm_type = build_pointer_type (st_parameter[IOPARM_ptype_filepos].type); iocall[IOCALL_REWIND] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_rewind")), ".w", - gfc_int4_type_node, 1, parm_type); + void_type_node, 1, parm_type); iocall[IOCALL_BACKSPACE] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_backspace")), ".w", - gfc_int4_type_node, 1, parm_type); + void_type_node, 1, parm_type); iocall[IOCALL_ENDFILE] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_endfile")), ".w", - gfc_int4_type_node, 1, parm_type); + void_type_node, 1, parm_type); iocall[IOCALL_FLUSH] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_flush")), ".w", - gfc_int4_type_node, 1, parm_type); + void_type_node, 1, parm_type); /* Library helpers */ iocall[IOCALL_READ_DONE] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_read_done")), ".w", - gfc_int4_type_node, 1, dt_parm_type); + void_type_node, 1, dt_parm_type); iocall[IOCALL_WRITE_DONE] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_write_done")), ".w", - gfc_int4_type_node, 1, dt_parm_type); + void_type_node, 1, dt_parm_type); iocall[IOCALL_IOLENGTH_DONE] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_iolength_done")), ".w", - gfc_int4_type_node, 1, dt_parm_type); + void_type_node, 1, dt_parm_type); iocall[IOCALL_SET_NML_VAL] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_set_nml_var")), ".w.R", void_type_node, 6, dt_parm_type, pvoid_type_node, pvoid_type_node, - gfc_int4_type_node, gfc_charlen_type_node, gfc_int4_type_node); + void_type_node, gfc_charlen_type_node, gfc_int4_type_node); iocall[IOCALL_SET_NML_VAL_DIM] = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("st_set_nml_var_dim")), ".w", |