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" }