1! PR libgomp/59467
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4  FUNCTION t()
5    INTEGER :: a, b, t
6    a = 0
7    b = 0
8    !$OMP PARALLEL REDUCTION(+:b)
9      !$OMP SINGLE	! { dg-error "is not threadprivate or private in outer context" }
10        !$OMP ATOMIC WRITE
11        a = 6
12      !$OMP END SINGLE COPYPRIVATE (a)
13      b = a
14    !$OMP END PARALLEL
15    t = b
16    b = 0
17    !$OMP PARALLEL REDUCTION(+:b)
18      !$OMP SINGLE
19        !$OMP ATOMIC WRITE
20        b = 6
21      !$OMP END SINGLE COPYPRIVATE (b)
22    !$OMP END PARALLEL
23    t = t + b
24  END FUNCTION
25