trans-array.c (gfc_conv_expr_descriptor): Check for substriungs.
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Mon, 4 Oct 2004 13:03:43 +0000 (13:03 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Mon, 4 Oct 2004 13:03:43 +0000 (13:03 +0000)
commitca2940c3e0ca27dde0e04858d066f3eb852d8ac7
treec2bb575fefe91c0ea361e22ef1df9305d35086c7
parentb805ea17e55a0da7424d97eb9fb252917e51445e
trans-array.c (gfc_conv_expr_descriptor): Check for substriungs.

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.

Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r88483
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]