Subversion Repositories openrisc

! { dg-do run }

! PR fortran/33945

!

! PROCEDURE in the interface was wrongly rejected

module modproc

  implicit none

  interface bar

    procedure x

  end interface bar

  procedure(sub) :: x

  interface

    integer function sub()

    end function sub

  end interface

end module modproc

integer function x()

  implicit none

  x = -5

end function x

program test

  use modproc

  implicit none

  if(x() /= -5) call abort()

end program test

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