diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-10-25 01:32:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-10-25 01:32:33 +0000 |
| commit | 965eec1676035e748a44bc0069f1b046c40a470c (patch) | |
| tree | d242a60a28c0bf664df869ac41dcd94a07afc1a3 /gcc/fortran/resolve.c | |
| parent | 8c4b4e67fb0a519a7d3b6a344bafe395197a1764 (diff) | |
| download | gcc-965eec1676035e748a44bc0069f1b046c40a470c.zip gcc-965eec1676035e748a44bc0069f1b046c40a470c.tar.gz gcc-965eec1676035e748a44bc0069f1b046c40a470c.tar.bz2 | |
re PR libfortran/24224 (Generalized internal array IO not implemented.)
2005-10-24 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/24224
* libgfortran.h: Remove array stride error code.
* runtime/error.c: Remove array stride error.
* io/io.h: Change name of 'nml_loop_spec' to 'array_loop_spec' to be
generic. Add pointer to array_loop_spec and rank to gfc_unit
structure.
* io/list_read.c: Revise nml_loop_spec references to array_loop_spec.
* io/transfer.c (init_loop_spec): New function to initialize
an array_loop_spec.
(next_array_record): New function to return the index to the next array
record by incrementing through the array_loop_spec.
(next_record_r): Use new function.
(next_record_w): Use new function.
(finalize_transfer): Free memory allocated for array_loop_spec.
* io/unit.c (get_array_unit_len): Delete this function. Use new
function init_loop_spec to initialize the array_loop_spec.
From-SVN: r105878
Diffstat (limited to 'gcc/fortran/resolve.c')
0 files changed, 0 insertions, 0 deletions