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 Andrew Benson <abenson@obs.carnegiescience.edu>
8
9module gn
10
11  implicit none
12
13  type :: nc
14   contains
15     procedure :: assign => nca
16     generic   :: assignment(=) => assign
17  end type
18
19  type, extends(nc) :: ncb
20   contains
21     procedure , nopass :: tis => bf
22  end type
23
24contains
25
26  subroutine nca(to,from)
27    class(nc), intent(out) :: to
28    type(nc), intent(in) :: from
29  end subroutine
30
31  logical function bf()
32    bf=.false.
33  end function
34
35end module
36