blob: a6d06877e850a8649d44c42a4c6405534e0a67a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|
