From: Dominique d'Humieres <dominiq@gcc.gnu.org>
Date: Thu, 7 Feb 2019 17:40:29 +0000 (+0100)
Subject: re PR fortran/52789 (gfortran sets -Wunused-parameter in the C sense as well as the... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2a88974cd18bbe0355ffc5ec59cf790c294a2246;p=gcc.git

re PR fortran/52789 (gfortran sets -Wunused-parameter in the C sense as well as the Fortran sense)

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

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

From-SVN: r268656
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e704b9093d6..5004a5e9252 100644
--- 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
index 00000000000..f6274613977
--- /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