re PR fortran/47065 (Replace trim(a) by a(1:len_trim(a)))

re PR fortran/47065 (Replace trim(a) by a(1:len_trim(a)))

2010-12-31  Thomas Koenig  <tkoenig@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  <tkoenig@gcc.gnu.org>

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

From-SVN: r168367