gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_3.f90

   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()
   4 program main
   5 contains
   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
  18 end program main