1 ! Test of fix for PR18878
3 ! Based on example in PR by Steve Kargl
6 integer, parameter :: b = kind(1.d0)
10 use a, only : e => b, f => b, u => z, v => z
16 if (kind(x).ne.kind(y)) call abort ()
17 if (v.ne.u) call abort ()
20 ! { dg-final { cleanup-modules "a" } }