gcc/testsuite/gfortran.dg/PR90350.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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