------- Additional Comments From paulthomas2 at wanadoo dot fr 2005-08-02 07:54 ------- I do apologise for missing this one: My fix for PR16940 fixes this fellow too.
I would be grateful if the reporters can give the latest cvs a whirl to confirm that this is the case. This expanded testcase now works: module foo implicit none interface bar module procedure bar1, bar2 end interface contains function bar1 (arg) integer arg logical bar1 bar1 = (arg==0) end function function bar2 (arg) real arg logical bar2 bar2 = (arg==0) end function subroutine baz logical l l = bar (3) print *, "BAZ: bar (0) =", bar (0), " bar (1.0) =", bar (1.0) end subroutine end module foo program test_18108 use foo print *, "bar (0) =", bar (0), " bar (1) =", bar (1) print *, "bar (0.0) =", bar (0.0), " bar (1.0) =", bar (1.0) call baz () end program test_18108 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18108
