view gcc/testsuite/gfortran.dg/PR90350.f90 @ 19:2b5abeee2509 default tip

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

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