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