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