------- 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