| ! { 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 |