gcc/testsuite/gfortran.dg/typebound_operator_19.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/54195
   4 ! The compiler used to diagnose a duplicate entity in the assignment interface
   5 ! because NC was resolved twice.
   6 !
   7 ! Contributed by Damian Rouson <damian@rouson.net>
   8
   9 module import_clashes_with_generic
  10
  11   type ,abstract :: foo
  12   contains
  13     procedure :: unary
  14     generic :: operator(-) => unary
  15   end type
  16
  17   abstract interface
  18     integer function bar()
  19       import :: foo
  20     end function
  21   end interface
  22
  23 contains
  24
  25   integer function unary(rhs)
  26     class(foo) ,intent(in) :: rhs
  27   end function
  28
  29 end module