! { dg-do run } | |
! PR 21127: Reshape of complex didn't work. | |
program main | |
complex, dimension(8) :: b | |
complex, dimension(2,2) :: a | |
integer :: i | |
b = (/(i,i=1,8)/) | |
a = reshape(b(1:8:2),shape(a)) | |
if (a(1,1) /= (1.0, 0.0) .or. a(2,1) /= (3.0, 0.0) .or. & | |
a(1,2) /= (5.0, 0.0) .or. a(2,2) /= (7.0, 0.0)) call abort | |
end |