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