gcc/testsuite/gfortran.dg/import10.f90

   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
   9 module select_precision
  10     integer, parameter :: dp = kind(1.0)
  11 end module select_precision
  12
  13 module 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
  22 end module ode_types
  23
  24