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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { 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