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