| ! { dg-do run } | |
| real, dimension (5) :: b | |
| b = 5 | |
| call foo (b) | |
| contains | |
| subroutine foo (a) | |
| real, dimension (5) :: a | |
| logical :: l | |
| l = .false. | |
| !$omp parallel private (a) reduction (.or.:l) | |
| a = 15 | |
| l = bar (a) | |
| !$omp end parallel | |
| if (l) stop 1 | |
| end subroutine | |
| function bar (a) | |
| real, dimension (5) :: a | |
| logical :: bar | |
| bar = any (a .ne. 15) | |
| end function | |
| end |