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