Lines Matching defs:f1
6 c = f1 (6)
15 function f1 (n)
17 character (n) :: f1
19 f1 = 'abcdef'
21 !$omp parallel firstprivate (f1) reduction (.or.:l) num_threads (2)
22 l = f1 .ne. 'abcdef'
23 if (omp_get_thread_num () .eq. 0) f1 = 'ijklmn'
24 if (omp_get_thread_num () .eq. 1) f1 = 'IJKLMN'
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')
29 f1 = 'zZzz_z'
30 !$omp parallel shared (f1) reduction (.or.:l) num_threads (2)
31 l = l .or. f1 .ne. 'zZzz_z'
34 f1 = 'abc'
37 l = l .or. f1 .ne. 'abc'
39 if (omp_get_thread_num () .eq. 1) f1 = 'def'
41 l = l .or. f1 .ne. 'def'
44 f1 = 'opqrst'
45 end function f1