Mercurial > hg > CbC > CbC_gcc
diff libgomp/testsuite/libgomp.fortran/do2.f90 @ 131:84e7813d76e9
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/do2.f90 Fri Oct 27 22:46:09 2017 +0900 +++ b/libgomp/testsuite/libgomp.fortran/do2.f90 Thu Oct 25 07:37:49 2018 +0900 @@ -86,7 +86,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 1 a = -1 k = .false. j = 8 @@ -155,7 +155,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 2 a = -1 k = .false. j = 8 @@ -224,7 +224,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 3 a = -1 k = .false. j = 8 @@ -293,7 +293,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 4 a = -1 k = .false. j = 8 @@ -362,5 +362,5 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 5 end