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