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

--- Comment #12 from janus at gcc dot gnu.org 2012-06-23 13:54:29 UTC ---
(In reply to comment #11)
> Here is a reduced version of comment 2, which is invalid according to comment
> 10:

Here is a non-abstract version of the test case in comment #11, which should be
equally invalid (however, in this case it is not a problem of having two
ambiguous procedures, but adding the same procedure twice to the same generic
assignment operator):

module m_sort
  implicit none

  type :: sort_t
  contains
    generic :: assignment(=) => assign
    procedure :: assign
  end type

  interface assignment(=)
    module procedure :: assign
  end interface

contains

  subroutine assign (lhs, rhs)
    class(sort_t), intent(out) :: lhs
    class(sort_t), intent(in) :: rhs
  end subroutine

end module

Reply via email to