1! { dg-do compile }
2subroutine foo(a,n)
3  real, dimension(2) :: a
4  integer, optional :: n
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" }
9end subroutine foo
10
11