1! { dg-do compile }
2!
3! PR fortran/53537
4! The use of WP in the ODE_DERIVATIVE interface used to be rejected because
5! the symbol was imported under the original name DP.
6!
7! Original test case from Arjen Markus <arjen.markus@deltares.nl>
8
9module select_precision
10    integer, parameter :: dp = kind(1.0)
11end module select_precision
12
13module ode_types
14    use select_precision, only: wp => dp
15    implicit none
16    interface
17        subroutine ode_derivative(x)
18            import   :: wp
19            real(wp) :: x
20        end subroutine ode_derivative
21    end interface
22end module ode_types
23
24
25