3 module declare_target_2
4 !$omp declare target to (a) link (a) ! { dg-error "mentioned multiple times in clauses of the same OMP DECLARE TARGET directive" }
5 !$omp declare target (b)
6 !$omp declare target link (b) ! { dg-error "TO or ENTER clause and later in LINK" }
7 !$omp declare target link (f)
8 !$omp declare target to (f) ! { dg-error "LINK clause and later in TO" }
9 !$omp declare target(c, c) ! { dg-error "mentioned multiple times in clauses of the same" }
10 !$omp declare target to (d) to (d) ! { dg-error "mentioned multiple times in clauses of the same" }
11 !$omp declare target link (e, e) ! { dg-error "mentioned multiple times in clauses of the same" }
12 integer, save :: a
, b
, c
, d
, e
, f
14 integer function f1 (a
)
15 !$omp declare target (f1) ! { dg-error "form without clauses is allowed in interface block" }
20 integer function f2 (a
)
21 !$omp declare target to (f2) ! { dg-error "form without clauses is allowed in interface block" }
27 !$omp declare target link (baz) ! { dg-error "isn.t SAVEd" }
28 call baz
! { dg-error "attribute conflicts" }
30 subroutine foo
! { dg-error "attribute conflicts" }
31 integer :: g
, h
, i
, j
, k
, l
, m
, n
, o
, p
, q
37 !$omp declare target to (g) ! { dg-error "is an element of a COMMON block" }
38 !$omp declare target link (foo)
39 !$omp declare target to (/c2/)
40 !$omp declare target (/c2/)
41 !$omp declare target to(/c2/)
42 !$omp declare target link(/c2/) ! { dg-error "TO or ENTER clause and later in LINK" }
43 !$omp declare target link(/c3/)
44 !$omp declare target (/c3/) ! { dg-error "LINK clause and later in ENTER" }
45 !$omp declare target (/c4/, /c4/) ! { dg-error "mentioned multiple times in clauses of the same" }
46 !$omp declare target to (/c4/) to(/c4/) ! { dg-error "mentioned multiple times in clauses of the same" }
47 !$omp declare target link (/c5/)
48 !$omp declare target link (/c5/)
49 !$omp declare target link(/c5/)link(/c5/) ! { dg-error "mentioned multiple times in clauses of the same" }
50 !$omp declare target link(/c5/,/c5/) ! { dg-error "mentioned multiple times in clauses of the same" }
53 module declare_target_3
54 !$omp declare target enter (a) link (a) ! { dg-error "mentioned multiple times in clauses of the same OMP DECLARE TARGET directive" }
55 !$omp declare target link(b) enter(b) ! { dg-error "mentioned multiple times in clauses of the same OMP DECLARE TARGET directive" }
56 !$omp declare target to (c) enter (c) ! { dg-error "mentioned multiple times in clauses of the same" }
57 !$omp declare target enter (d) to (d) ! { dg-error "mentioned multiple times in clauses of the same" }
58 !$omp declare target enter (e) enter (e) ! { dg-error "mentioned multiple times in clauses of the same" }
59 integer, save :: a
, b
, c
, d
, e