------- Comment #8 from tkoenig at gcc dot gnu dot org 2008-01-03 19:50 ------- Subject: Bug 34565
Author: tkoenig Date: Thu Jan 3 19:49:38 2008 New Revision: 131305 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=131305 Log: 2008-01-03 Thomas Koenig <[EMAIL PROTECTED]> 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 <[EMAIL PROTECTED]> PR libfortran/34565 * gfortran.dg/internal_readwrite_1.f90: New test. * gfortran.dg/internal_readwrite_2.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/internal_readwrite_1.f90 trunk/gcc/testsuite/gfortran.dg/internal_readwrite_2.f90 Modified: trunk/gcc/testsuite/ChangeLog trunk/libgfortran/ChangeLog trunk/libgfortran/io/io.h trunk/libgfortran/io/list_read.c trunk/libgfortran/io/transfer.c trunk/libgfortran/io/unit.c trunk/libgfortran/io/unix.c -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34565
