[Bug fortran/38657] [4.3 Regression] PUBLIC/PRIVATE Common blocks

[pault at gcc dot gnu dot org]

------- Comment #17 from pault at gcc dot gnu dot org  2009-01-26 05:12 -------
Subject: Bug 38657

Author: pault
Date: Mon Jan 26 05:12:03 2009
New Revision: 143669

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=143669
Log:
2009-01-26  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/38657
        * module.c (write_common_0): Add argument 'this_module' and
        check that non-use associated common blocks are written first.
        (write_common): Call write_common_0 twice, once with true and
        then with false.

2009-01-26  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/38657
        * gfortran.dg/module_commons_3.f90: Reapply.

Added:
    branches/gcc-4_3-branch/gcc/testsuite/gfortran.dg/module_commons_3.f90
Modified:
    branches/gcc-4_3-branch/gcc/fortran/ChangeLog
    branches/gcc-4_3-branch/gcc/fortran/module.c
    branches/gcc-4_3-branch/gcc/testsuite/ChangeLog


-- 


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