! { dg-do compile }
!
! PR fortran/
!
! Contributed by Vladimír Fuka
!
function avg(a)
  integer :: avg
  integer,intent(in) :: a(..)
  
  avg = sum(a)/size(a) ! { dg-error "Assumed-rank argument at .1. is only permitted as actual argument to intrinsic inquiry functions" }
end function