3 real, dimension(2) :: a
5 print *,maxloc(a
,dim
=n
) ! { dg-error "must not be OPTIONAL" }
6 print *,maxloc(a
,dim
=4) ! { dg-error "is not a valid dimension index" }
7 print *,maxval(a
,dim
=n
) ! { dg-error "must not be OPTIONAL" }
8 print *,maxval(a
,dim
=4) ! { dg-error "is not a valid dimension index" }