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