From b5ee9d1c0d9955335e7d8a0cf7653f44d0afb2ab Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 11 Jun 2011 08:22:35 +0000 Subject: [PATCH] frontend-passes.c (optimize_assignment): Follow chains of concatenation operators to the end for removing trailing TRIMS... 2011-05-11 Thomas Koenig * frontend-passes.c (optimize_assignment): Follow chains of concatenation operators to the end for removing trailing TRIMS for assignments. 2011-05-11 Thomas Koenig * gfortran.dg/trim_optimize_7.f90: New test. From-SVN: r174944 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/frontend-passes.c | 8 ++++++++ gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/trim_optimize_7.f90 | 19 +++++++++++++++++++ 4 files changed, 37 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/trim_optimize_7.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dbfaa7cd5dd..ac9f3cae188 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-05-11 Thomas Koenig + + * frontend-passes.c (optimize_assignment): Follow chains + of concatenation operators to the end for removing trailing + TRIMS for assignments. + 2011-06-10 Daniel Carrera * trans-decl.c (gfc_build_builtin_function_decls): diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index f100e1fb811..d1cc22979b7 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -500,6 +500,14 @@ optimize_assignment (gfc_code * c) if (lhs->ts.type == BT_CHARACTER) { + /* Check for a // b // trim(c). Looping is probably not + necessary because the parser usually generates + (// (// a b ) trim(c) ) , but better safe than sorry. */ + + while (rhs->expr_type == EXPR_OP + && rhs->value.op.op == INTRINSIC_CONCAT) + rhs = rhs->value.op.op2; + if (rhs->expr_type == EXPR_FUNCTION && rhs->value.function.isym && rhs->value.function.isym->id == GFC_ISYM_TRIM) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ffbc9f37466..f34cf1933ff 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2011-05-11 Thomas Koenig + + * gfortran.dg/trim_optimize_7.f90: New test. + 2011-06-10 Wei Guozhi PR target/45335 diff --git a/gcc/testsuite/gfortran.dg/trim_optimize_7.f90 b/gcc/testsuite/gfortran.dg/trim_optimize_7.f90 new file mode 100644 index 00000000000..26663c04d27 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/trim_optimize_7.f90 @@ -0,0 +1,19 @@ +! { dg-do run } +! { dg-options "-O -fdump-tree-original" } +! Check that trailing trims are also removed from assignment of +! expressions involving concatenations of strings . +program main + character(2) :: a,b,c + character(8) :: d + a = 'a ' + b = 'b ' + c = 'c ' + d = a // b // a // trim(c) ! This should be optimized away. + if (d /= 'a b a c ') call abort + d = a // trim(b) // c // a ! This shouldn't. + if (d /= 'a bc a ') call abort + d = a // b // a // trim(trim(c)) ! This should also be optimized away. + if (d /= 'a b a c ') call abort +end +! { dg-final { scan-tree-dump-times "string_len_trim" 1 "original" } } +! { dg-final { cleanup-tree-dump "original" } } -- 2.30.2