gcc/testsuite/gfortran.dg/optional_dim.f90

   1 ! { dg-do compile }
   2 subroutine 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" }
   9 end subroutine foo
  10