@@ -2591,7 +2591,7 @@ gfc_check_init_expr (gfc_expr *e)
else
gfc_error ("Parameter %qs at %L has not been declared or is "
"a variable, which does not reduce to a constant "
- "expression", e->symtree->n.sym->name, &e->where);
+ "expression", e->symtree->name, &e->where);
break;
@@ -0,0 +1,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