[Bug fortran/33198] Derived type in common: Default initializer not rejected

[tobi at gcc dot gnu dot org]

------- Comment #3 from tobi at gcc dot gnu dot org  2007-10-03 11:37 -------
Subject: Bug 33198

Author: tobi
Date: Wed Oct  3 11:37:44 2007
New Revision: 128980

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=128980
Log:
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.
testsuite/
* gfortran.dg/common_errors_1.f90: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/common_errors_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33198