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