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