[gfortran, PR 33198] Disallow default initialization of derived types in COMMONs

[François-Xavier Coudert]

> 2007-09-28  Tobias Schlüter  <tobi@gcc.gnu.org>
>
>         PR fortran/33198
> fortran/
>         * resolve.c (has_default_initializer): Move to top.  Make bool.
>         (resolve_common_blocks): Simplify logic.  Add case for derived
>         type initialization.
>         (resolve_fl_variable_derived): Split out from ...
>         (resolve_fl_variable): ... from here, while adapting to new h_d_i
>         interface.

OK. Just make sure you don't commit that:

> diff -r 2ffe2d9f2050 .hgtags
> --- /dev/null   Thu Jan 01 00:00:00 1970 +0000
> +++ b/.hgtags   Fri Sep 28 23:08:23 2007 +0200
> @@ -0,0 +1,1 @@
> +f8ce69e5dcb9bd67ade65c2f4e7076caae157bb4 Failed patch.

;-)