17 lines
340 B
Fortran
17 lines
340 B
Fortran
! { dg-do compile }
|
|
module test
|
|
interface operator(.bar.)
|
|
module procedure func
|
|
end interface
|
|
contains
|
|
function func(a)
|
|
integer,intent(in) :: a
|
|
integer :: funct
|
|
func = a+1
|
|
end function
|
|
end module test
|
|
|
|
use test, only: operator(.func.) ! { dg-error "not found in module 'test'" }
|
|
end
|
|
! { dg-final { cleanup-modules "test" } }
|