gcc/testsuite/gfortran.dg/goacc/declare-1.f95

! { dg-do compile } 

program test
  implicit none
  integer :: i

  !$acc declare copy(i)
contains
  real function foo(n)
    integer, value :: n
    BLOCK
       integer i
       !$acc declare copy(i) ! { dg-error "is not allowed" }
    END BLOCK
  end function foo
end program test