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