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/ada/socket.c | |
| 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/ada/socket.c')
0 files changed, 0 insertions, 0 deletions