gcc/testsuite/gfortran.dg/gomp/pr59467.f90

! PR libgomp/59467
! { dg-do compile }
! { dg-options "-fopenmp" }
  FUNCTION t()
    INTEGER :: a, b, t
    a = 0
    b = 0
    !$OMP PARALLEL REDUCTION(+:b)
      !$OMP SINGLE	! { dg-error "is not threadprivate or private in outer context" }
        !$OMP ATOMIC WRITE
        a = 6
      !$OMP END SINGLE COPYPRIVATE (a)
      b = a
    !$OMP END PARALLEL
    t = b
    b = 0
    !$OMP PARALLEL REDUCTION(+:b)
      !$OMP SINGLE
        !$OMP ATOMIC WRITE
        b = 6
      !$OMP END SINGLE COPYPRIVATE (b)
    !$OMP END PARALLEL
    t = t + b
  END FUNCTION