[Bug fortran/34565] internal write to string array fails

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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  <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.


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