Mercurial > hg > CbC > CbC_gcc
annotate libgomp/testsuite/libgomp.fortran/reference2.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 |
rev | line source |
---|---|
0 | 1 ! { dg-do run } |
2 real, dimension (5) :: b | |
3 b = 5 | |
4 call foo (b) | |
5 contains | |
6 subroutine foo (a) | |
7 real, dimension (5) :: a | |
8 logical :: l | |
9 l = .false. | |
10 !$omp parallel private (a) reduction (.or.:l) | |
11 a = 15 | |
12 l = bar (a) | |
13 !$omp end parallel | |
145 | 14 if (l) stop 1 |
0 | 15 end subroutine |
16 function bar (a) | |
17 real, dimension (5) :: a | |
18 logical :: bar | |
19 bar = any (a .ne. 15) | |
20 end function | |
21 end |