mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
16 lines
317 B
Fortran
16 lines
317 B
Fortran
! { 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
|