24 lines
522 B
Fortran
24 lines
522 B
Fortran
! { 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
|