gcc/testsuite/gfortran.dg/goacc/pr85701.f90

! PR fortran/85701
! { dg-do compile }

subroutine s1
   !$acc declare copy(s1) ! { dg-error "is not a variable" }
end

subroutine s2
   !$acc declare present(s2) ! { dg-error "is not a variable" }
end

function f1 () result(res)
   !$acc declare copy(f1) ! { dg-error "is not a variable" }
end

function f2 () result(res)
   !$acc declare present(f2) ! { dg-error "is not a variable" }
end

program p
  !$acc declare copy(p) ! { dg-error "is not a variable" }
end