18     logical :: l  local
20     l = .false.
21 !$omp parallel firstprivate (f1) reduction (.or.:l) num_threads (2)
22     l = f1 .ne. 'abcdef'
26     l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 'ijklmn')
27     l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 'IJKLMN')
30 !$omp parallel shared (f1) reduction (.or.:l) num_threads (2)
31     l = l .or. f1 .ne. 'zZzz_z'
37     l = l .or. f1 .ne. 'abc'
41     l = l .or. f1 .ne. 'def'
43     if (l) call abort
49     logical :: l  local
51     l = .false.
52 !$omp parallel firstprivate (f3) reduction (.or.:l) num_threads (2)
53     l = any (f3 .ne. 'abcdef')
57     l = l .or. (omp_get_thread_num () .eq. 0 .and. any (f3 .ne. 'ijklmn'))
58     l = l .or. (omp_get_thread_num () .eq. 1 .and. any (f3 .ne. 'IJKLMN'))
61 !$omp parallel shared (f3) reduction (.or.:l) num_threads (2)
62     l = l .or. any (f3 .ne. 'zZzz_z')
68     l = l .or. any (f3 .ne. 'abc')
72     l = l .or. any (f3 .ne. 'def')
74     if (l) call abort
81     logical :: l  local
83     l = .false.
84 !$omp parallel firstprivate (f4) reduction (.or.:l) num_threads (2)
85     l = any (f4 .ne. 'abcdef')
89     l = l .or. (omp_get_thread_num () .eq. 0 .and. any (f4 .ne. 'ijklmn'))
90     l = l .or. (omp_get_thread_num () .eq. 1 .and. any (f4 .ne. 'IJKLMN'))
91     l = l .or. size (f4) .ne. 2
94 !$omp parallel shared (f4) reduction (.or.:l) num_threads (2)
95     l = l .or. any (f4 .ne. 'zZzz_z')
101     l = l .or. any (f4 .ne. 'abc')
105     l = l .or. any (f4 .ne. 'def')
106     l = l .or. size (f4) .ne. 2
108     if (l) call abort
116   logical :: l  local
118   l = .false.
119 !$omp parallel firstprivate (f2) reduction (.or.:l) num_threads (2)
120   l = f2 .ne. 'abcdef'
124   l = l .or. (omp_get_thread_num () .eq. 0 .and. f2 .ne. 'ijklmn')
125   l = l .or. (omp_get_thread_num () .eq. 1 .and. f2 .ne. 'IJKLMN')
128 !$omp parallel shared (f2) reduction (.or.:l) num_threads (2)
129   l = l .or. f2 .ne. 'zZzz_z'
135   l = l .or. f2 .ne. 'abc'
139   l = l .or. f2 .ne. 'def'
141   if (l) call abort