gcc/testsuite/gfortran.dg/wunused-parameter.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wunused-parameter" }
   3 ! PR66605
   4 MODULE test
   5   IMPLICIT NONE
   6   INTEGER, PARAMETER :: wp = KIND(1.0D0)
   7 CONTAINS
   8 SUBROUTINE sub (neq, time, y, dydt)
   9   IMPLICIT NONE
  10     INTEGER :: neq
  11     REAL(WP) :: time, y(neq), dydt(neq)
  12
  13     dydt(1) = 1.0 / y(1)
  14 END SUBROUTINE sub
  15 END MODULE