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