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