2019-02-07 Dominique d'Humieres <dominiq@gcc.gnu.org>

	PR fortran/52789
	* gfortran.dg/wunused-parameter_2.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@268656 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e704b9093d6bb6a939eead78012f03ecf01061b7..5004a5e92526fcb750ccdb089d656b2ed034f140 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-02-07  Dominique d'Humieres  <dominiq@gcc.gnu.org>
+
+       PR fortran/52789
+       * gfortran.dg/wunused-parameter_2.f90: New test.
+
 2019-02-07  Matthew Malcomson  <matthew.malcomson@arm.com>
 
        * gcc.dg/rtl/arm/ldrd-peepholes.c: Only run on arm

diff --git a/gcc/testsuite/gfortran.dg/wunused-parameter_2.f90 b/gcc/testsuite/gfortran.dg/wunused-parameter_2.f90
new file mode 100644 (file)
index 0000000..f627461
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/wunused-parameter_2.f90
@@ -0,0 +1,13 @@
+! { dg-do compile }
+! { dg-options "-Wunused-parameter -Wunused-dummy-argument" }
+!
+! PR fortran/52789
+!
+! Contributed by Mat Cross
+!
+!  Check for unused parameter and dummy argument
+!
+
+subroutine s(x)             ! { dg-warning "Unused dummy argument" }
+integer, parameter :: i = 0 ! { dg-warning "Unused parameter" }
+end