1! { dg-do compile } 2! 3! PR fortran/31600 4! 5module a 6implicit none 7contains 8 integer function bar() 9 bar = 42 10 end function 11end module a 12 13use a ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" } 14implicit none 15integer :: bar ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" } 16end 17