r123051 - in /trunk/gcc: fortran/ChangeLog fort...

Mon Mar 19 08:13:00 GMT 2007

Author: fxcoudert
Date: Mon Mar 19 08:13:30 2007
New Revision: 123051

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123051
Log:
	PR fortran/31203

	* trans-expr.c (gfc_trans_init_string_length): Length should
	never be negative.
	(gfc_conv_function_call): Likewise.

	* gfortran.dg/string_length_1.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/string_length_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/testsuite/ChangeLog