Merge pull request #37 from ajarmusch/serial_loop_gang_blocking

New Serial Tests: serial_loop_gang_blocking

Author: chrismun

Tests/serial_loop_gang_blocking.F90

@@ -0,0 +1,71 @@
+#ifndef T1
+!T1:loop,V:2.6-2.7
+    LOGICAL FUNCTION test1()
+        IMPLICIT NONE
+        INCLUDE "acc_testsuite.Fh"
+        REAL(8),DIMENSION(LOOPCOUNT):: a, b, c
+        INTEGER:: multiplier
+        INTEGER:: x
+        INTEGER:: errors
+
+        errors = 0
+
+        SEEDDIM(1) = 1
+        # ifdef SEED
+        SEEDDIM(1) = SEED
+        # endif
+        CALL RANDOM_SEED(PUT=SEEDDIM)
+
+        CALL RANDOM_NUMBER(a)
+        CALL RANDOM_NUMBER(b)
+        c = 0
+
+        !$acc data copyin(a(1:LOOPCOUNT), b(1:LOOPCOUNT)) copyout(c(1:LOOPCOUNT))
+            !$acc serial
+            !$acc loop gang
+            DO x = 1, LOOPCOUNT
+                c(x) = (a(x) + b(x)) * multiplier
+            END DO
+            multiplier = multiplier + 1
+            !$acc loop gang
+            DO x = 1, LOOPCOUNT
+                c(x) = c(x) + ((a(x) + b(x)) * multiplier)
+            END DO
+            !$acc end serial
+        !$acc end data
+
+        DO x = 1, LOOPCOUNT
+            IF (abs(c(x) - (3 * (a(x) + b(x)))) .gt. PRECISION) THEN
+            errors = errors + 1
+            END IF
+        END DO
+
+        IF (errors .eq. 0) THEN
+          test1 = .FALSE.
+        ELSE
+          test1 = .TRUE.
+        END IF
+      END
+#endif
+
+      PROGRAM main
+        IMPLICIT NONE
+        INTEGER :: failcode, testrun
+        LOGICAL :: failed
+        INCLUDE "acc_testsuite.Fh"
+#ifndef T1
+        LOGICAL :: test1
+#endif
+        failed = .FALSE.
+        failcode = 0
+#ifndef T1
+        DO testrun = 1, NUM_TEST_CALLS
+          failed = failed .or. test1()
+        END DO
+        IF (failed) THEN
+          failcode = failcode + 2 ** 0
+          failed = .FALSE.
+        END IF
+#endif
+        CALL EXIT (failcode)
+      END PROGRAM

Tests/serial_loop_gang_blocking.c

@@ -0,0 +1,58 @@
+#include "acc_testsuite.h"
+#ifndef T1
+//T1:serial,loop,V:2.6-2.7
+int test1(){
+    int err = 0;
+    srand(SEED);
+    real_t * a = (real_t *)malloc(n * sizeof(real_t));
+    real_t * b = (real_t *)malloc(n * sizeof(real_t));
+    real_t * c = (real_t *)malloc(n * sizeof(real_t));
+    real_t multiplyer = 1;
+
+    for (int x = 0; x < n; ++x){
+        a[x] = rand() / (real_t)(RAND_MAX / 10);
+        b[x] = rand() / (real_t)(RAND_MAX / 10);
+        c[x] = 0.0;
+    }
+
+    #pragma acc data copyin(a[0:n], b[0:n]) copyout(c[0:n])
+    {
+      #pragma acc serial
+      {
+        #pragma acc loop gang
+        for (int x = 0; x < n; ++x){
+          c[x] = (a[x] + b[x]) * multiplyer;
+        }
+        multiplyer += 1;
+        #pragma acc loop gang
+        for (int x = 0; x < n; ++x){
+          c[x] += (a[x] + b[x]) * multiplyer;
+        }
+      }
+    }
+
+    for (int x = 0; x < n; ++x){
+      if (fabs(c[x] - 3 * (a[x] + b[x])) > PRECISION){
+        err + 1;
+        break;
+      }
+    }
+
+    return err;
+}
+#endif
+
+int main(){
+    int failcode = 0;
+    int failed;
+#ifndef T1
+    failed = 0;
+    for (int x = 0; x < NUM_TEST_CALLS; ++x){
+        failed = failed + test1();
+    }
+    if (failed != 0){
+        failcode = failcode + (1 << 0);
+    }
+#endif
+    return failcode;
+}