r128751 - in /branches/redhat/gcc-4_1-branch/gc...

[jakub@gcc.gnu.org]

Author: jakub
Date: Tue Sep 25 09:44:35 2007
New Revision: 128751

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=128751
Log:
	* decl.c (variable_decl): Don't share charlen structs if
	length == NULL.
	* trans-decl.c (create_function_arglist): Assert
	f->sym->ts.cl->backend_decl is NULL instead of unsharing
	charlen struct here.

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

Added:
    branches/redhat/gcc-4_1-branch/gcc/testsuite/gfortran.dg/assumed_charlen_sharing.f90
Modified:
    branches/redhat/gcc-4_1-branch/gcc/fortran/ChangeLog
    branches/redhat/gcc-4_1-branch/gcc/fortran/decl.c
    branches/redhat/gcc-4_1-branch/gcc/fortran/trans-decl.c
    branches/redhat/gcc-4_1-branch/gcc/testsuite/ChangeLog