| ! { 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 |