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