Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.fortran/retval2.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | a06113de4d67 |
children | 1830386684a0 |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
15 if (omp_get_thread_num () .eq. 1) f1 = 14.5 | 15 if (omp_get_thread_num () .eq. 1) f1 = 14.5 |
16 !$omp barrier | 16 !$omp barrier |
17 l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5) | 17 l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5) |
18 l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5) | 18 l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5) |
19 !$omp end parallel | 19 !$omp end parallel |
20 if (l) call abort | 20 if (l) STOP 1 |
21 f1 = -2.5 | 21 f1 = -2.5 |
22 end subroutine sub1 | 22 end subroutine sub1 |
23 end function f1 | 23 end function f1 |
24 | 24 |
25 real :: f1 | 25 real :: f1 |
26 if (f1 () .ne. -2.5) call abort | 26 if (f1 () .ne. -2.5) STOP 2 |
27 end | 27 end |