gcc/testsuite/gfortran.dg/reshape_rank7.f90

   1 ! { dg-do run }
   2 ! PR 21075:  Reshape with rank 7 used to segfault.
   3 program 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
  27 end program main