[Bug fortran/33541] gfortran wrongly imports renamed-use-associated symbol unrenamed

[burnus at gcc dot gnu dot org]

------- Comment #10 from burnus at gcc dot gnu dot org  2007-11-24 12:09 -------
(In reply to comment #9)
> The following test now fails:

That test passes (0 0 0) with gfortran (w/o patch) and g95.
With ifort, NAG f95, openf95 and sunf95 it fails with "0 0 2".
And with the patched gfortran it fails with "0 1 3".

The following is definitely a bug:

module m
  integer :: a
end module m

use m, local1 => a
use m, local2 => a
local1 = 5
local2 = 3
print *, local1, local2 ! prints "5 3" instead of "3 3"
end

Dump:
  extern integer(kind=4) a;
  integer(kind=4) local2;
  a = 5;
  local2 = 3;


-- 


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