2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>
commitb6b4c3ef5f103c7f35a3a6140ceaa504ebf54adc
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 15 Apr 2005 20:06:17 +0000 (15 20:06 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 15 Apr 2005 20:06:17 +0000 (15 20:06 +0000)
tree292cf804ca180a2bbd8b572c18603d0233efe047
parentc22cf4d89f1a9a9046f931be1015d2061e3ef5e0
2005-04-15  Thomas Koenig  <Thomas.Koenig@online.de>

        PR libfortran/18495
        * intrinsics/spread_generic.c (spread):  Remove const from
        return array descriptor.
        New variables: rrank (rank of return array),  rs (for
        calculating the size of the return array), srank (rank
        of the source array).
        Generate runtime error if the dim= argument is larger than
        the rank of the return array.
        Generate runtime error if the needed rank of the return
        array is larger than 7.
        If ret->data is null, populate the return array descriptor
        and initialize the variables for the actual operation.
        Otherwise, set ret->dim[0].stride to one if it is zero.
        Change second, independent use of variable dim to srank.

2005-04-15  Thomas Koenig  <Thomas.Koenig@online.de>

        PR libfortran/18495
        * gfortran.fortran-torture/execute/intrinsic_spread.f90:
        Test callee-allocated version of return array with a write
        statement.
        Test spread with a temporary with another write statement.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98208 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spread.f90
libgfortran/ChangeLog
libgfortran/intrinsics/spread_generic.c