diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-27 18:13:37 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-27 18:13:37 +0000 |
| commit | 412d0f4a3be6c49d177b2e09abac610e0d710226 (patch) | |
| tree | 9fa4b0c0a60e78b9cad01aa8823b59175cde56cf /libgfortran/io/transfer.c | |
| parent | 34da880074f38f11309e262bdfdc10cd1c197957 (diff) | |
| download | gcc-412d0f4a3be6c49d177b2e09abac610e0d710226.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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126992 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/transfer.c')
| -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. */ |