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