------- Comment #11 from burnus at gcc dot gnu dot org 2007-11-24 12:20 -------
I think the failures in test3 are ok. Example program:
module m
integer :: a = 10
end module m
program p
integer :: a
a = 5
call s()
contains
subroutine s()
use m, local1 => a
use m
print *, local1, a
end subroutine
end program p
This prints "10 10" with g95 and "10 5" with the patched gfortran, NAG f95,
ifort, sunf95 and openf95. Actually, g95 shows the bug with this PR fixes:
(3) The identifier of the entity in the referenced module if
that identifier does not appear as a use-name or
use-defined-operator in any rename for that module.
(see comment 0 for the full quote). That is: "a" is not imported from the
module as "a" as it is already imported as "local1".
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33541
