gcc/testsuite/gfortran.dg/PR90350.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR90350
   4 !
   5 ! Contributed by  <urbanjost@comcast.net>
   6 !
   7
   8 program artificial
   9 implicit none
  10 integer :: arr(-10:10)
  11    call asub(arr,size(arr))
  12 end program artificial
  13 subroutine asub(arr,n)
  14 integer,intent(in) :: arr(*)
  15 integer,intent(in) :: n
  16    write(*,*)'UPPER=',ubound(arr(:n))
  17    write(*,*)'LOWER=',lbound(arr(:n))
  18    write(*,*)'SIZE=',size(arr(:n))
  19 end subroutine asub