Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/retval2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } function f1 () real :: f1 f1 = 6.5 call sub1 contains subroutine sub1 use omp_lib logical :: l l = .false. !$omp parallel firstprivate (f1) num_threads (2) reduction (.or.:l) l = f1 .ne. 6.5 if (omp_get_thread_num () .eq. 0) f1 = 8.5 if (omp_get_thread_num () .eq. 1) f1 = 14.5 !$omp barrier l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5) l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5) !$omp end parallel if (l) stop 1 f1 = -2.5 end subroutine sub1 end function f1 real :: f1 if (f1 () .ne. -2.5) stop 2 end