1! PR fortran/39354 2! { dg-do compile } 3! { dg-options "-fopenmp" } 4 SUBROUTINE ltest(l1, l2, l3, l4, r1, r2, r3, r4) 5 LOGICAL l1, l2, l3, l4, r1, r2, r3, r4 6!$OMP ATOMIC 7 l1 = l1 .and. r1 8!$OMP ATOMIC 9 l2 = l2 .or. r2 10!$OMP ATOMIC 11 l3 = l3 .eqv. r3 12!$OMP ATOMIC 13 l4 = l4 .neqv. r4 14 END 15 SUBROUTINE itest(l1, l2, l3, l4, l5, l6, l7, l8, l9, & 16& r1, r2, r3, r4, r5, r6, r7, r8, r9) 17 INTEGER l1, l2, l3, l4, l5, l6, l7, l8, l9, & 18& r1, r2, r3, r4, r5, r6, r7, r8, r9 19!$OMP ATOMIC 20 l1 = l1 + r1 21!$OMP ATOMIC 22 l2 = l2 - r2 23!$OMP ATOMIC 24 l3 = l3 * r3 25!$OMP ATOMIC 26 l4 = l4 / r4 27!$OMP ATOMIC 28 l5 = max (l5, r1, r5) 29!$OMP ATOMIC 30 l6 = min (r1, r6, l6) 31!$OMP ATOMIC 32 l7 = iand (l7, r7) 33!$OMP ATOMIC 34 l8 = ior (r8, l8) 35!$OMP ATOMIC 36 l9 = ieor (l9, r9) 37 END 38