1 files changed, 18 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_3.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_3.f90
new file mode 100644
index 000000000..f15026e9a
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_3.f90
@@ -0,0 +1,18 @@
+! { 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