1! PR fortran/71704
2! { dg-do compile }
3
4real function f0 ()
5!$omp declare simd (f0)
6  f0 = 1
7end
8
9real function f1 ()
10!$omp declare target (f1)
11  f1 = 1
12end
13
14real function f2 ()
15!$omp declare reduction (foo : integer : omp_out = omp_out + omp_in) &
16!$omp & initializer (omp_priv = 0)
17  f2 = 1
18end
19
20real function f3 ()
21  real, save :: t
22!$omp threadprivate (t)
23  f3 = 1
24end
25
26real function f4 ()
27!$omp taskwait
28  f4 = 1
29end
30
31real function f5 ()
32!$omp barrier
33  f5 = 1
34end
35
36real function f6 ()
37!$omp parallel
38!$omp end parallel
39  f6 = 1
40end
41
42real function f7 ()
43!$omp single
44!$omp end single
45  f7 = 1
46end
47
48real function f8 ()
49!$omp critical
50!$omp end critical
51  f8 = 1
52end
53
54real function f9 ()
55!$omp critical
56!$omp end critical
57  f9 = 1
58end
59