From 2a88974cd18bbe0355ffc5ec59cf790c294a2246 Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Thu, 7 Feb 2019 18:40:29 +0100 Subject: [PATCH] re PR fortran/52789 (gfortran sets -Wunused-parameter in the C sense as well as the Fortran sense) 2019-02-07 Dominique d'Humieres PR fortran/52789 * gfortran.dg/wunused-parameter_2.f90: New test. From-SVN: r268656 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/wunused-parameter_2.f90 | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/wunused-parameter_2.f90 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 + + PR fortran/52789 + * gfortran.dg/wunused-parameter_2.f90: New test. + 2019-02-07 Matthew Malcomson * 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 -- 2.30.2