blob: 78ff84976807c2efd13f6199b92748b57ebd8d0a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|
