1! { dg-do run } 2! PR 21075: Reshape with rank 7 used to segfault. 3program main 4 integer :: a(256), b(2,2,2,2,2,2,2) 5 do i=1,256 6 a(i) = i 7 end do 8 b = reshape(a(1:256:2), shape(b)) 9 do i1=1,2 10 do i2=1,2 11 do i3=1,2 12 do i4=1,2 13 do i5=1,2 14 do i6=1,2 15 do i7=1,2 16 if (b(i1,i2,i3,i4,i5,i6,i7) /= & 17 2*((i1-1)+(i2-1)*2+(i3-1)*4+(i4-1)*8+& 18 (i5-1)*16+(i6-1)*32+(i7-1)*64)+1) & 19 call abort 20 end do 21 end do 22 end do 23 end do 24 end do 25 end do 26 end do 27end program main 28