Subversion Repositories openrisc

! { dg-do compile }
! { dg-options "-Wunused-dummy-argument -Wunused-parameter" }
! PR 48847 - we used to generate a warning for g(), and none for h()
program main
contains
  function f(g,h)
    interface
       real function g()
       end function g
    end interface
    interface
       real function h()  !  { dg-warning "Unused dummy argument" }
       end function h
    end interface
    real :: f
    f = g()
  end function f
end program main