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
9module 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
23contains
24
25  integer function unary(rhs)
26    class(foo) ,intent(in) :: rhs
27  end function
28
29end module
30