Mercurial > hg > CbC > CbC_gcc

diff libgomp/testsuite/libgomp.fortran/reduction1.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 a06113de4d67
children 1830386684a0
line wrap: on
line diff
--- a/libgomp/testsuite/libgomp.fortran/reduction1.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/libgomp/testsuite/libgomp.fortran/reduction1.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -55,14 +55,14 @@
     ca = cmplx (-1, 0)
   end if
 !$omp end parallel
-  if (v) call abort
+  if (v) STOP 1
   if (cnt .eq. 3) then
-    if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) call abort
-    if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) call abort
-    if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort
-    if (c .ne. cmplx (11.5, -5)) call abort
-    if (ca(1) .ne. cmplx (12, 2)) call abort
-    if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) call abort
+    if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 2
+    if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 3
+    if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 4
+    if (c .ne. cmplx (11.5, -5)) STOP 5
+    if (ca(1) .ne. cmplx (12, 2)) STOP 6
+    if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 7
   end if
 
   i = 1
@@ -113,14 +113,14 @@
     ca = cmplx (-1, 0)
   end if
 !$omp end parallel
-  if (v) call abort
+  if (v) STOP 8
   if (cnt .eq. 3) then
-    if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) call abort
-    if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) call abort
-    if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort
-    if (c .ne. cmplx (11.5, -5)) call abort
-    if (ca(1) .ne. cmplx (12, 2)) call abort
-    if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) call abort
+    if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 9
+    if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 10
+    if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 11
+    if (c .ne. cmplx (11.5, -5)) STOP 12
+    if (ca(1) .ne. cmplx (12, 2)) STOP 13
+    if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 14
   end if
 
   i = 1
@@ -169,13 +169,13 @@
     ca = cmplx (-1, 0)
   end if
 !$omp end parallel
-  if (v) call abort
+  if (v) STOP 15
   if (cnt .eq. 3) then
-    if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) call abort
-    if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) call abort
-    if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) call abort
-    if (c .ne. cmplx (0, 15)) call abort
-    if (ca(1) .ne. cmplx (0, 10)) call abort
-    if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) call abort
+    if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) STOP 16
+    if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) STOP 17
+    if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) STOP 18
+    if (c .ne. cmplx (0, 15)) STOP 19
+    if (ca(1) .ne. cmplx (0, 10)) STOP 20
+    if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) STOP 21
   end if
 end