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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

! 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