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