diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-04 13:03:43 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-10-04 13:03:43 +0000 |
| commit | ca2940c3e0ca27dde0e04858d066f3eb852d8ac7 (patch) | |
| tree | c2bb575fefe91c0ea361e22ef1df9305d35086c7 /gcc/fortran/trans.h | |
| parent | b805ea17e55a0da7424d97eb9fb252917e51445e (diff) | |
| download | gcc-ca2940c3e0ca27dde0e04858d066f3eb852d8ac7.zip gcc-ca2940c3e0ca27dde0e04858d066f3eb852d8ac7.tar.gz gcc-ca2940c3e0ca27dde0e04858d066f3eb852d8ac7.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 67bc234..f61fd4f 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -316,6 +316,8 @@ tree gfc_conv_expr_present (gfc_symbol *); /* Generate code to allocate a string temporary. */ tree gfc_conv_string_tmp (gfc_se *, tree, tree); +/* Get the string length variable belonging to an expression. */ +tree gfc_get_expr_charlen (gfc_expr *); /* Initialize a string length variable. */ void gfc_trans_init_string_length (gfc_charlen *, stmtblock_t *); |