3 ! We didn't adapt the exit condition to negative steps in array constructors,
4 ! leaving the resulting arrays uninitialized.
5 integer :: i(5), n, m, l, k
8 i = (/ (m, m = n, 1, -1) /)
9 if (any (i /= (/ 5, 4, 3, 2, 1 /))) call abort
13 i(5:1:-1) = (/ (m, m = n, k, -1) /)
14 if (any (i /= (/ 1, 2, 3, 4, 5 /))) call abort
18 i = (/ (m, m = n, 1, l) /)
19 if (any (i /= (/ 5, 4, 3, 2, 1 /))) call abort
21 i(5:1:-1) = (/ (m, m = n, k, l) /)
22 if (any (i /= (/ 1, 2, 3, 4, 5 /))) call abort