diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-27 21:13:37 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-27 21:13:37 +0300 |
| commit | 6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1 (patch) | |
| tree | 9fa4b0c0a60e78b9cad01aa8823b59175cde56cf /gcc | |
| parent | 3ad6a8e12ca4ac15b759f6a407d2ca2ea32e17a2 (diff) | |
| download | gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.zip gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.tar.gz gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.tar.bz2 | |
Fortran frontend changelog:
2007-07-27 Janne Blomqvist <jb@gcc.gnu.org>
* trans-io.c (gfc_build_io_library_fndecls): Change to use
gfc_array_index_type for array descriptor triplets instead of
gfc_int4_type_node.
libgfortran ChangeLog:
2007-07-27 Janne Blomqvist <jb@gcc.gnu.org>
* io/transfer.c (st_set_nml_var_dim): Use index_type instead of
GFC_INTEGER_4 for array descriptor triplets.
From-SVN: r126992
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-io.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1a17c51..79571fd 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-27 Janne Blomqvist <jb@gcc.gnu.org> + + * trans-io.c (gfc_build_io_library_fndecls): Change to use + gfc_array_index_type for array descriptor triplets instead of + gfc_int4_type_node. + 2007-07-26 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/32899 diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 4b70871..adc7bc1 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -417,8 +417,8 @@ gfc_build_io_library_fndecls (void) iocall[IOCALL_SET_NML_VAL_DIM] = gfc_build_library_function_decl (get_identifier (PREFIX("st_set_nml_var_dim")), void_type_node, 5, dt_parm_type, - gfc_int4_type_node, gfc_int4_type_node, - gfc_int4_type_node, gfc_int4_type_node); + gfc_int4_type_node, gfc_array_index_type, + gfc_array_index_type, gfc_array_index_type); } |