1! { dg-do compile }
2module foo
3   implicit none
4   interface operator(.x.)
5      module procedure product
6   end interface operator(.x.)
7   contains
8      function product(x, y)
9         real, intent(in) :: x, y
10         real :: product
11         product = x * y
12      end function product
13end module foo
14
15module gfcbug155
16   implicit none
17   contains
18      subroutine print_prod (x, y)
19         use foo, only : operator(.x.)
20         implicit none
21         real :: x, y
22         print *, x .x. y
23      end subroutine print_prod
24end module gfcbug155
25