diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-09-14 20:18:19 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-09-14 20:18:19 +0000 |
| commit | 59154ed24c10f5861d2a01ac2822e9a28d08c463 (patch) | |
| tree | b7bbd7592f231bcb71427e42df3994eb7b534c32 /gcc/fortran/trans-io.c | |
| parent | 7ad00e132508704abc2fd3d785b42ab4310880a4 (diff) | |
| download | gcc-59154ed24c10f5861d2a01ac2822e9a28d08c463.zip gcc-59154ed24c10f5861d2a01ac2822e9a28d08c463.tar.gz gcc-59154ed24c10f5861d2a01ac2822e9a28d08c463.tar.bz2 | |
PR fortran/21875 Internal Unit Array I/O, NIST
2005-09-14 Jerry DeLisle <jvdelisle@verizon.net
PR fortran/21875 Internal Unit Array I/O, NIST
* libgfortran.h: Add run time error code for array stride.
* runtime/error.c (translate_error): Add error message for
array stride.
* io/io.h: Add array descriptor pointer to IOPARM structure.
Add prtotypes for two new functions.
* io/transfer.c (data_transfer_init): Removed initialization and
moved to unit.c (get_unit)
* io/transfer.c (next_record_r): Include internal unit read
functionality.
* io/transfer.c (next_record_w): Include internal unit write
functionality, including padding of character array records.
* io/unit.c (get_array_unit_len): New function to return the number
of records in the character array 'file' from the array descriptor.
* io/unit.c (get_unit): Gathered initialization code from
init_data_transfer for internal units and added initialization of
character array unit.
* io/unit.c (is_array_io): New function to determine if internal unit
is an array.
* io/unix.c (mem_alloc_w_at): Add error checks for bad record length
and end of file.
From-SVN: r104276
Diffstat (limited to 'gcc/fortran/trans-io.c')
0 files changed, 0 insertions, 0 deletions