gcc/testsuite/gfortran.dg/use_30.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR53542 USE-associated variables shows original instead of renamed symbol name
   4 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   5 !
   6 module select_precision
   7     integer :: dp = kind(1.0)
   8 end module select_precision
   9
  10 module ode_types
  11     use select_precision, only: wp => dp
  12 contains
  13     subroutine ode_derivative(x)
  14         real(wp) :: x ! { dg-error "Parameter .wp. at .1. has not been declared" }
  15     end subroutine ode_derivative
  16 end module ode_types
  17 end