2007-05-21 Paul Thomas <pault@gcc.gnu.org>
authorpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 21 May 2007 13:16:06 +0000 (13:16 +0000)
committerpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 21 May 2007 13:16:06 +0000 (13:16 +0000)
commit20c3cb95962ca8e8782397c0d880a408f4ab7bf8
treec5e95ad910c1fbf82bdcaff914302cf400079f67
parent8fa7d67baf9bb5d141b7fc16d3257324d9246c21
2007-05-21  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/31867
PR fortran/31994
* trans-array.c (gfc_conv_expr_descriptor): Obtain the stored
offset for non-descriptor, source arrays and correct for stride
not equal to one before writing to field of output descriptor.

2007-05-21  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/31867
* gfortran.dg/char_length_5.f90: New test.

PR fortran/31994
* gfortran.dg/array_reference_1.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124903 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-array.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/array_reference_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/char_length_5.f90 [new file with mode: 0644]