1! { dg-do compile }
2!
3! PR fortran/
4!
5! Contributed by Vladimír Fuka
6!
7function avg(a)
8  integer :: avg
9  integer,intent(in) :: a(..)
10
11  avg = sum(a)/size(a) ! { dg-error "Assumed-rank argument at .1. is only permitted as actual argument to intrinsic inquiry functions" }
12end function
13