re PR fortran/31867 ([4.2 only] function result with character LEN computed at run...
authorPaul Thomas <pault@gcc.gnu.org>
Mon, 21 May 2007 13:16:06 +0000 (13:16 +0000)
committerPaul Thomas <pault@gcc.gnu.org>
Mon, 21 May 2007 13:16:06 +0000 (13:16 +0000)
commitc4ba884897fc5aa644f3d43990431e023ed618f4
treec5e95ad910c1fbf82bdcaff914302cf400079f67
parent4d8a8a0a223f8e65a810bdb4ec3fe7496a964699
re PR fortran/31867 ([4.2 only] function result with character LEN computed at run time)

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.

From-SVN: r124903
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]