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" }