| ! { dg-do run } | |
| ! PR 21912 | |
| ! We didn't adapt the exit condition to negative steps in array constructors, | |
| ! leaving the resulting arrays uninitialized. | |
| integer :: i(5), n, m, l, k | |
| n = 5 | |
| i = (/ (m, m = n, 1, -1) /) | |
| if (any (i /= (/ 5, 4, 3, 2, 1 /))) call abort | |
| k = 1 | |
| i(5:1:-1) = (/ (m, m = n, k, -1) /) | |
| if (any (i /= (/ 1, 2, 3, 4, 5 /))) call abort | |
| l = -1 | |
| i = (/ (m, m = n, 1, l) /) | |
| if (any (i /= (/ 5, 4, 3, 2, 1 /))) call abort | |
| i(5:1:-1) = (/ (m, m = n, k, l) /) | |
| if (any (i /= (/ 1, 2, 3, 4, 5 /))) call abort | |
| end |