! { dg-do compile } | |
! | |
! Test the fix for PR90350 | |
! | |
! Contributed by <urbanjost@comcast.net> | |
! | |
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(:n)) | |
write(*,*)'LOWER=',lbound(arr(:n)) | |
write(*,*)'SIZE=',size(arr(:n)) | |
end subroutine asub |