diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2014-12-28 12:03:02 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2014-12-28 12:03:02 +0000 |
| commit | 502b97e4d410843e50a59403938f03a07f291327 (patch) | |
| tree | ab1865383e8bab55f395065696f9b6e1acad3f55 /gcc/fortran/trans-array.c | |
| parent | 85a1cdffa2cdc6e328ea08cfb4f7bf488209bed9 (diff) | |
| download | gcc-502b97e4d410843e50a59403938f03a07f291327.zip gcc-502b97e4d410843e50a59403938f03a07f291327.tar.gz gcc-502b97e4d410843e50a59403938f03a07f291327.tar.bz2 | |
re PR fortran/56867 (Missing temporary with string array assignment)
2014-12-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/56867
* trans-array.c (gfc_conv_resolve_dependencies): Also check
dependencies when there may be substrings of character arrays.
2014-12-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/56867
* gfortran.dg/dependency_45.f90: New test.
From-SVN: r219089
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 67beab2..ebd7f11 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -4355,6 +4355,13 @@ gfc_conv_resolve_dependencies (gfc_loopinfo * loop, gfc_ss * dest, && ss_expr->rank) nDepend = gfc_check_dependency (dest_expr, ss_expr, true); + /* Check for cases like c(:)(1:2) = c(2)(2:3) */ + if (!nDepend && dest_expr->rank > 0 + && dest_expr->ts.type == BT_CHARACTER + && ss_expr->expr_type == EXPR_VARIABLE) + + nDepend = gfc_check_dependency (dest_expr, ss_expr, false); + continue; } |