re PR fortran/33198 (Derived type in common: Default initializer not rejected)
authorTobias Schlüter <tobi@gcc.gnu.org>
Wed, 3 Oct 2007 11:37:44 +0000 (13:37 +0200)
committerTobias Schlüter <tobi@gcc.gnu.org>
Wed, 3 Oct 2007 11:37:44 +0000 (13:37 +0200)
commit448d2cd2f73e2e16e2bdd5c407174afebf3ed845
tree198c2f8ce81370dbdbfc2a4c7df24b6dddcf0131
parenta24549d472e2235a6042b96e08a1278d4856fabd
re PR fortran/33198 (Derived type in common: Default initializer not rejected)

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.

From-SVN: r128980
gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/common_errors_1.f90 [new file with mode: 0644]