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