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

[pault at gcc dot gnu dot org]

------- Comment #6 from pault at gcc dot gnu dot org  2009-01-05 16:32 -------
(In reply to comment #1)

> Assuming no local problems and a clean tree (looks like), the following commit
> might have caused the regression:
> 
> r130257 | fxcoudert | 2007-11-17 14:46:53 +0100 (Sat, 17 Nov 2007) | 6 lines
> http://gcc.gnu.org/viewcvs?view=rev&revision=130257
> 
>         PR fortran/30285
>         * module.c (struct written_common, written_commons): New structure.
>         (compare_written_commons, free_written_common, write_common_0):
>         New functions.
>         (write_common): Call recursive function write_common_0.
> 

I have been tinkering with this and have made the above testcase work. 
However, legal cases that rename TESTCHAR on USE test3 (with appropriate PUBLIC
statements of course) are failing.

I am preparing a large envelope to track what happens to the names.

Paul


-- 


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