http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41951

--- Comment #11 from janus at gcc dot gnu.org 2012-06-19 15:53:02 UTC ---
Here is a reduced version of comment 2, which is invalid according to comment
10:


module m_sort
  implicit none

  type, abstract :: sort_t
  contains
    generic :: assignment(=) => assign
    procedure(assign_it), deferred :: assign 
  end type

  interface assignment(=)
    subroutine assign_it (lhs, rhs)
      import
      class(sort_t), intent(out) :: lhs
      class(sort_t), intent(in) :: rhs
    end subroutine
  end interface

end module

Reply via email to