4 pure
real function foo (a
, b
)
5 real, intent(in
) :: a
, b
6 !$omp taskwait ! { dg-error "may not appear in PURE or ELEMENTAL" }
9 pure
function bar (a
, b
)
10 real, intent(in
) :: a(8), b(8)
13 !$omp do simd ! { dg-error "may not appear in PURE or ELEMENTAL" }
18 pure
function baz (a
, b
)
19 real, intent(in
) :: a(8), b(8)
22 !$omp do ! { dg-error "may not appear in PURE or ELEMENTAL" }
26 !$omp end do ! { dg-error "may not appear in PURE or ELEMENTAL" }
28 pure
real function baz2 (a
, b
)
29 real, intent(in
) :: a
, b
30 !$omp target map(from:baz2) ! { dg-error "may not appear in PURE or ELEMENTAL" }
32 !$omp end target ! { dg-error "may not appear in PURE or ELEMENTAL" }
34 elemental
real function fooe (a
, b
)
35 real, intent(in
) :: a
, b
36 !$omp taskyield ! { dg-error "may not appear in PURE or ELEMENTAL" }
39 elemental
real function baze (a
, b
)
40 real, intent(in
) :: a
, b
41 !$omp target map(from:baz) ! { dg-error "may not appear in PURE or ELEMENTAL" }
43 !$omp end target ! { dg-error "may not appear in PURE or ELEMENTAL" }