[Bug fortran/47065] Replace trim(a) by a(1:len_trim(a))

[tkoenig at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47065

--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2010-12-31 
11:32:20 UTC ---
Author: tkoenig
Date: Fri Dec 31 11:32:16 2010
New Revision: 168367

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=168367
Log:
2010-12-31  Thomas Koenig  <tkoe...@gcc.gnu.org>

    PR fortran/47065
    * frontend-passes.c (count_arglist):  Static variable to
    count the nesting of argument lists.
    (optimize_code):  Set count_arglist to 1 if within a call
    statement, to 0 otherwise.
    (optimize_trim):  New function.
    (optimize_expr):  Adjust count_arglist.  Call optimize_trim.

2010-12-31  Thomas Koenig  <tkoe...@gcc.gnu.org>

    PR fortran/47065
    * gfortran.dg/trim_optimize_3.f90:  New test.
    * gfortran.dg/trim_optimize_4.f90:  New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/trim_optimize_3.f90
    trunk/gcc/testsuite/gfortran.dg/trim_optimize_4.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/frontend-passes.c
    trunk/gcc/testsuite/ChangeLog