1! { dg-do compile }
2! { dg-options "-Wunused-dummy-argument -Wunused-parameter" }
3! PR 48847 - we used to generate a warning for g(), and none for h()
4program main
5contains
6  function f(g,h)
7    interface
8       real function g()
9       end function g
10    end interface
11    interface
12       real function h()  !  { dg-warning "Unused dummy argument" }
13       end function h
14    end interface
15    real :: f
16    f = g()
17  end function f
18end program main
19