| ! { dg-do run } | |
| ! Test of fix for PR18878 | |
| ! | |
| ! Based on example in PR by Steve Kargl | |
| ! | |
| module a | |
| integer, parameter :: b = kind(1.d0) | |
| real(b) :: z | |
| end module a | |
| program d | |
| use a, only : e => b, f => b, u => z, v => z | |
| real(e) x | |
| real(f) y | |
| x = 1.e0_e | |
| y = 1.e0_f | |
| u = 99.0 | |
| if (kind(x).ne.kind(y)) STOP 1 | |
| if (v.ne.u) STOP 2 | |
| end program d |