1! { dg-do run }
2! Test of fix for PR18878
3!
4! Based on example in PR by Steve Kargl
5!
6module a
7  integer, parameter :: b = kind(1.d0)
8  real(b)            :: z
9end module a
10program d
11  use a, only : e => b, f => b, u => z, v => z
12  real(e) x
13  real(f) y
14  x = 1.e0_e
15  y = 1.e0_f
16  u = 99.0
17  if (kind(x).ne.kind(y)) call abort ()
18  if (v.ne.u) call abort ()
19end program d
20