Hi Jose,
first, thanks for coming on board!
A question: Do you have a copyright assignment yet? This patch is
probably short enough that it can be accepted without it, but if
you're planning to contribute more (which I certainly hope) then
it would make sense to do this.
Regarding your patch, I have one question: What will happen
with the test case
program artificial
implicit none
integer :: arr(-10:10)
call asub(arr,size(arr))
end program artificial
subroutine asub(arr,n)
integer,intent(in) :: arr(*)
integer,intent(in) :: n
write(*,*)'UPPER=',ubound(arr(3:))
write(*,*)'LOWER=',lbound(arr(3:))
write(*,*)'SIZE=',size(arr(3:))
end subroutine asub
? In other words, maybe a check on the upper bound
of the last dimension would be better?
Regards
Thomas
