diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-01-10 19:10:48 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-01-10 19:10:48 +0000 |
| commit | 32be9f94bfc4c7246f9091764afc55ffca2db9c9 (patch) | |
| tree | 859fbc40552efe9c0f56f7d86b1c9c1208aed0f1 /gcc/fortran/trans-expr.c | |
| parent | 814252befa3cd780269ed0a321e2d83e5683c557 (diff) | |
| download | gcc-32be9f94bfc4c7246f9091764afc55ffca2db9c9.zip gcc-32be9f94bfc4c7246f9091764afc55ffca2db9c9.tar.gz gcc-32be9f94bfc4c7246f9091764afc55ffca2db9c9.tar.bz2 | |
re PR fortran/34396 (Length of substrings defined by expressions not correctly computed in constructors)
2008-01-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34396
* trans-array.c (gfc_trans_array_ctor_element): Use gfc_trans_string_copy
to assign strings and perform bounds checks on the string length.
(get_array_ctor_strlen): Remove bounds checking.
(gfc_trans_array_constructor): Initialize string length checking.
* trans-array.h : Add prototype for gfc_trans_string_copy.
2008-01-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34396
* gfortran.dg/bounds_check_12.f90: New test.
From-SVN: r131448
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 65c65e3..c1de2a9 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2803,7 +2803,7 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, /* Generate code to copy a string. */ -static void +void gfc_trans_string_copy (stmtblock_t * block, tree dlength, tree dest, tree slength, tree src) { |