1! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp
2! REQUIRES: shell
3! OpenMP Version 4.5
4! 2.7.3 single Construct
5! Symbol present on multiple clauses
6
7program omp_single
8  integer i
9  i = 10
10
11  !$omp single private(i)
12  print *, "omp single", i
13  !ERROR: COPYPRIVATE variable 'i' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct
14  !$omp end single copyprivate(i)
15
16end program omp_single
17