OSDN Git Service

2004-10-04 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
authorpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 4 Oct 2004 13:03:43 +0000 (13:03 +0000)
committerpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 4 Oct 2004 13:03:43 +0000 (13:03 +0000)
commit6bf678b8dd750db3b47ab21cefa0d60a213060ed
treec2bb575fefe91c0ea361e22ef1df9305d35086c7
parentf29c97e8a7326354de96618f4439ef48736c4dc0
2004-10-04  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
Paul Brook  <paul@codesourcery.com>

* trans-array.c (gfc_conv_expr_descriptor): Check for substriungs.
Use gfc_get_expr_charlen.
* trans-expr.c (gfc_get_expr_charlen): New function.
* trans.h (gfc_get_expr_charlen): Add prototype.
testsuite/
* gfortran.dg/pr17612.f90: New test.

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