gcc/testsuite/gfortran.dg/typebound_assignment_4.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 Andrew Benson <abenson@obs.carnegiescience.edu>
   8
   9 module 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
  24 contains
  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
  35 end module