Mercurial > hg > CbC > CbC_gcc

diff libgomp/testsuite/libgomp.fortran/depend-1.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
line wrap: on
line diff
--- a/libgomp/testsuite/libgomp.fortran/depend-1.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/libgomp/testsuite/libgomp.fortran/depend-1.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -21,7 +21,7 @@
           x = 2
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 1
         !$omp end task
       !$omp end single
     !$omp end parallel
@@ -36,7 +36,7 @@
           x = 2
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 2
         !$omp end task
         !$omp taskwait
       !$omp end single
@@ -52,7 +52,7 @@
           x = 2
         !$omp endtask
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 3
         !$omp endtask
       !$omp endsingle
     !$omp endparallel
@@ -67,7 +67,7 @@
           x = 2
         !$omp end task
         !$omp task depend(in: x)
-          if (x.ne.1) call abort
+          if (x.ne.1) STOP 4
         !$omp end task
       !$omp end single
     !$omp end parallel
@@ -79,7 +79,7 @@
     !$omp parallel
       !$omp single
         !$omp task shared(x) depend(in: x)
-          if (x.ne.1) call abort
+          if (x.ne.1) STOP 5
         !$omp end task
         !$omp task shared(x) depend(out: x)
           x = 2
@@ -95,7 +95,7 @@
         x = 1
         !$omp taskgroup
           !$omp task shared(x) depend(in: x)
-            if (x.ne.1) call abort
+            if (x.ne.1) STOP 6
           !$omp end task
           !$omp task shared(x) depend(out: x)
             x = 2
@@ -111,7 +111,7 @@
       x = 1
       !$omp single
         !$omp task shared(x) depend(in: x)
-          if (x.ne.1) call abort
+          if (x.ne.1) STOP 7
         !$omp end task
         !$omp task shared(x) depend(out: x)
           x = 2
@@ -132,7 +132,7 @@
           x = 2
         !$omp end task
         !$omp taskwait
-        if (x.ne.2) call abort
+        if (x.ne.2) STOP 8
       !$omp end single
     !$omp end parallel
   end subroutine outdep
@@ -146,13 +146,13 @@
           x = 2
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 9
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 10
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 11
         !$omp end task
       !$omp end single
     !$omp end parallel
@@ -167,13 +167,13 @@
           x = 2;
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 12
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 13
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 14
         !$omp end task
         !$omp taskwait
       !$omp end single
@@ -189,13 +189,13 @@
           x = 2
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 15
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 16
         !$omp end task
         !$omp task shared (x) depend(in: x)
-          if (x.ne.2) call abort
+          if (x.ne.2) STOP 17
         !$omp end task
       !$omp end single
     !$omp end parallel