[PATCH] Avoid sharing ts.cl if ts.cl->length == NULL

[François-Xavier Coudert]

> 2007-08-17  Jakub Jelinek  <jakub@redhat.com>
>
>         * 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.

OK for trunk, OK for 4.1 and 4.2 if it's a regression wrt gfortran-4.0 or g77.

FX