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 /libgfortran/io | |
| parent | 3ad6a8e12ca4ac15b759f6a407d2ca2ea32e17a2 (diff) | |
| download | gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.tar.gz | |
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 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/transfer.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 067a065f9cf..3feae04df59 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2906,14 +2906,14 @@ st_set_nml_var (st_parameter_dt *dtp, void * var_addr, char * var_name, /* Store the dimensional information for the namelist object. */ extern void st_set_nml_var_dim (st_parameter_dt *, GFC_INTEGER_4, - GFC_INTEGER_4, GFC_INTEGER_4, - GFC_INTEGER_4); + index_type, index_type, + index_type); export_proto(st_set_nml_var_dim); void st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim, - GFC_INTEGER_4 stride, GFC_INTEGER_4 lbound, - GFC_INTEGER_4 ubound) + index_type stride, index_type lbound, + index_type ubound) { namelist_info * nml; int n; @@ -2922,9 +2922,9 @@ st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim, for (nml = dtp->u.p.ionml; nml->next; nml = nml->next); - nml->dim[n].stride = (ssize_t)stride; - nml->dim[n].lbound = (ssize_t)lbound; - nml->dim[n].ubound = (ssize_t)ubound; + nml->dim[n].stride = stride; + nml->dim[n].lbound = lbound; + nml->dim[n].ubound = ubound; } /* Reverse memcpy - used for byte swapping. */ |