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