gcc/testsuite/gfortran.dg/shape_4.f90

   1 ! PR 35001 - we need to return 0 for the shapes of
   2 ! negative extents.  Test case adapted from Tobias Burnus.
   3 program main
   4   implicit none
   5   integer :: i,j, a(10,10),res(2)
   6   j = 1
   7   i = 10
   8   res = shape(a(1:1,i:j:1))
   9   if (res(1) /=1 .or. res(2) /= 0) call abort
  10   res = shape(a(1:1,j:i:-1))
  11   if (res(1) /=1 .or. res(2) /= 0) call abort
  12 end program main