Subversion Repositories openrisc

! { dg-do compile }

! PR51791 and original testcase for PR46328.

!

! Contributer by Thomas Koenig  

!

module field_module

  implicit none

  type ,abstract :: field

  contains

    procedure(field_op_real) ,deferred :: multiply_real

    generic :: operator(*) => multiply_real

  end type

  abstract interface

    function field_op_real(lhs,rhs)

      import :: field

      class(field) ,intent(in)  :: lhs

      real ,intent(in) :: rhs

      class(field) ,allocatable :: field_op_real

    end function

  end interface

end module

program main

  use field_module

  implicit none

  class(field) ,pointer :: u

  u = (u)*2. ! { dg-error "check that there is a matching specific" }

end program

! { dg-final { cleanup-modules "field_module" } }