gcc/testsuite/gfortran.dg/in_pack_rank7.f90

   1 ! { dg-do run }
   2 ! PR 21354:  Rank 7 was not handled correctly by many library
   3 !            functions, including in_pack.
   4 program main
   5   real, dimension (2,2,2,2,2,2,2):: a
   6   a = 1.0
   7   call foo(a(2:1:-1,:,:,:,:,:,:))
   8 end program main
   9
  10 subroutine foo(a)
  11   real, dimension (2,2,2,2,2,2,2):: a
  12 end subroutine foo