gcc/testsuite/gfortran.dg/use_9.f90

   1 ! { dg-do compile }
   2 module test
   3   interface operator(.bar.)
   4      module procedure func
   5   end interface
   6 contains
   7 function func(a)
   8   integer,intent(in) :: a
   9   integer :: funct
  10   func = a+1
  11 end function
  12 end module test
  13
  14 use test, only: operator(.func.) ! { dg-error "not found in module 'test'" }
  15 end
  16 ! { dg-final { cleanup-modules "test" } }