1! { dg-do compile }
2! { dg-options "-Wunused-parameter" }
3! PR66605
4MODULE test
5  IMPLICIT NONE
6  INTEGER, PARAMETER :: wp = KIND(1.0D0)
7CONTAINS
8SUBROUTINE 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)
14END SUBROUTINE sub
15END MODULE
16