gcc/testsuite/gfortran.dg/assumed_type_6.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/
   4 !
   5 ! Contributed by Vladimír Fuka
   6 !
   7 function 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" }
  12 end function