1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL: * 3 4! OpenMP Version 4.5 5! 2.7.3 single Construct 6! Symbol present on multiple clauses 7 8program omp_single 9 integer i 10 i = 10 11 12 !$omp single private(i) 13 print *, "omp single", i 14 !ERROR: Symbol ‘i’ present on multiple clauses 15 !$omp end single copyprivate(i) 16 17end program omp_single 18