Make some check examples compilable with OpenMP

They contained some wrong directive clauses that either
- Referenced not-yet-declared variables
- Were missing the datascoping for a referenced variable

Checks/PWD003/example-omp.c

@@ -4,7 +4,7 @@
 void example(int *a, int *b, int *sum, int size) {
   // Array bounds should be specified
   #pragma omp target map(to: a, b) map(from: sum)
-  #pragma omp parallel for default(none) shared(a, b, sum)
+  #pragma omp parallel for default(none) shared(a, b, sum, size)
   for (int i = 0; i < size; i++) {
     sum[i] = a[i] + b[i];
   }

Checks/PWD003/example-omp.f90

@@ -10,7 +10,7 @@ subroutine example(a, b, sum, size)
 
   ! Array bounds should be specified
   !$omp target map(to: a, b) map(from: sum)
-  !$omp parallel do default(none) shared(a, b, sum)
+  !$omp parallel do default(none) shared(a, b, sum, size)
   do i = 1, size
     sum(i) = a(i) + b(i)
   end do

Checks/PWD009/README.md

@@ -25,7 +25,7 @@ on non-overlapping positions of the array:
 void example(int m, double *A, double *B, double *C) {
   double temp;
 
-  #pragma omp parallel for default(none) private(i, temp, C) shared(A, B, m)
+  #pragma omp parallel for default(none) private(temp, C) shared(A, B, m)
   for (int i = 0; i < m; i++) {
     temp = A[i] * B[i];
     C[i] = C[i] + temp;
@@ -39,7 +39,7 @@ To fix this, `C` should be moved to a `shared` clause:
 void example(int m, double *A, double *B, double *C) {
   double temp;
 
-  #pragma omp parallel for default(none) private(i, temp) shared(A, B, C, m)
+  #pragma omp parallel for default(none) private(temp) shared(A, B, C, m)
   for (int i = 0; i < m; i++) {
     temp = A[i] * B[i];
     C[i] = C[i] + temp;

Checks/PWD009/example-omp.c

@@ -4,7 +4,7 @@ void example(int m, double *A, double *B, double *C) {
   double temp;
 
   // "C" should be shared
-  #pragma omp parallel for default(none) private(i, temp, C) shared(A, B, m)
+  #pragma omp parallel for default(none) private(temp, C) shared(A, B, m)
   for (int i = 0; i < m; i++) {
     temp = A[i] * B[i];
     C[i] = C[i] + temp;

Checks/PWR006/README.md

@@ -32,7 +32,7 @@ void example() {
   int B[SIZE] = {5, 4, 3, 2, 1};
   int sum[SIZE];
 
-  #pragma omp parallel for shared(sum) firstprivate(A, B) private(i)
+  #pragma omp parallel for shared(sum) firstprivate(A, B)
   for (int i = 0; i < SIZE; i++) {
     sum[i] = A[i] + B[i];
   }
@@ -51,7 +51,7 @@ void example() {
   int B[SIZE] = {5, 4, 3, 2, 1};
   int sum[SIZE];
 
-  #pragma omp parallel for shared(sum, A, B) private(i)
+  #pragma omp parallel for shared(sum, A, B)
   for (int i = 0; i < SIZE; i++) {
     sum[i] = A[i] + B[i];
   }

Checks/PWR006/example.c

@@ -7,7 +7,7 @@ void example() {
   int B[SIZE] = {5, 4, 3, 2, 1};
   int sum[SIZE];
 
-  #pragma omp parallel for shared(sum) firstprivate(A, B) private(i)
+  #pragma omp parallel for shared(sum) firstprivate(A, B)
   for (int i = 0; i < SIZE; i++) {
     sum[i] = A[i] + B[i];
   }

Checks/PWR013/README.md

@@ -27,7 +27,7 @@ used:
 ```c
 void example(double *A, double *B, double *C) {
   #pragma omp target teams distribute parallel for schedule(auto) shared(A, B) \
-          private(i) map(to: A[0:100], B[0:100]) map(tofrom: C[0:100])
+          map(to: A[0:100], B[0:100]) map(tofrom: C[0:100])
   for (int i = 0; i < 100; i++) {
     C[i] += A[i];
   }
@@ -39,7 +39,7 @@ This can be easily corrected by removing references to B from all the clauses:
 ```c
 void example(double *A, double *B, double *C) {
   #pragma omp target teams distribute parallel for schedule(auto) shared(A) \
-          private(i) map(to: A[0:100]) map(tofrom: C[0:100])
+          map(to: A[0:100]) map(tofrom: C[0:100])
   for (int i = 0; i < 100; i++) {
     C[i] += A[i];
   }

Checks/PWR013/example-omp.c

@@ -2,7 +2,7 @@
 
 void example(double *A, double *B, double *C) {
   #pragma omp target teams distribute parallel for schedule(auto) shared(A, B) \
-      private(i) map(to: A[0:100], B[0:100]) map(tofrom: C[0:100])
+      map(to: A[0:100], B[0:100]) map(tofrom: C[0:100])
   for (int i = 0; i < 100; i++) {
     C[i] += A[i];
   }

Checks/PWR015/example-omp.c

@@ -3,7 +3,7 @@
 void example() {
   int A[100], B[100], sum[100];
   #pragma omp target map(to: A[0:100], B[0:100]) map(from: sum[0:100])
-  #pragma omp parallel for private(i)
+  #pragma omp parallel for
   for (int i = 0; i < 50; i++) {
     sum[i] = A[i] + B[i];
   }