| ! { dg-do compile } | |
| ! { dg-options "-Wunused-parameter" } | |
| ! PR66605 | |
| MODULE test | |
| IMPLICIT NONE | |
| INTEGER, PARAMETER :: wp = KIND(1.0D0) | |
| CONTAINS | |
| SUBROUTINE sub (neq, time, y, dydt) | |
| IMPLICIT NONE | |
| INTEGER :: neq | |
| REAL(WP) :: time, y(neq), dydt(neq) | |
| dydt(1) = 1.0 / y(1) | |
| END SUBROUTINE sub | |
| END MODULE |