! { dg-do compile } | |
module foo | |
implicit none | |
interface operator(.x.) | |
module procedure product | |
end interface operator(.x.) | |
contains | |
function product(x, y) | |
real, intent(in) :: x, y | |
real :: product | |
product = x * y | |
end function product | |
end module foo | |
module gfcbug155 | |
implicit none | |
contains | |
subroutine print_prod (x, y) | |
use foo, only : operator(.x.) | |
implicit none | |
real :: x, y | |
print *, x .x. y | |
end subroutine print_prod | |
end module gfcbug155 |