diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-01-03 19:49:38 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-01-03 19:49:38 +0000 |
| commit | cf4abc57c8be3b23d98fcbe6db5e1d2883f5cb5b (patch) | |
| tree | 407a1075cdef9fa8b447f85bf9e754483cb358c1 /libjava/classpath/lib/gnu/java/beans/encoder/Root$RootElement.class | |
| parent | cde59b72c9b49740d7f7822c649c2a28c77c187c (diff) | |
| download | ppe42-gcc-cf4abc57c8be3b23d98fcbe6db5e1d2883f5cb5b.tar.gz ppe42-gcc-cf4abc57c8be3b23d98fcbe6db5e1d2883f5cb5b.zip | |
2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34565
* io/io.h: Adjust protoypes for open_internal(),
next_array_record() and init_loop_spec().
* io/list_read.c (next_char): Use argument "finished"
of next_array_record to check for end on internal file.
* io/unit.c: Calculate the offset for an array
internal file and supply this informatin to open_internal().
* io/unix.c (open_internal): Set the offset for the internal
file on open.
* io/transfer.c (init_loop_spec): Calculate the starting
record in case of negative strides. Return size of 0 for
an empty array.
(next_array_record): Use an extra flag to signal that the
array is finished.
(next_record_r): Use the new flag to next_array_record().
(next_record_w): Likewise.
2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34565
* gfortran.dg/internal_readwrite_1.f90: New test.
* gfortran.dg/internal_readwrite_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131305 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libjava/classpath/lib/gnu/java/beans/encoder/Root$RootElement.class')
0 files changed, 0 insertions, 0 deletions
