| ! { dg-do run } | |
| integer, allocatable :: a(:) | |
| logical :: l | |
| l = .false. | |
| !$omp parallel firstprivate (a) reduction (.or.:l) | |
| l = allocated (a) | |
| allocate (a(10)) | |
| l = l .or. .not. allocated (a) | |
| a = 10 | |
| if (any (a .ne. 10)) l = .true. | |
| deallocate (a) | |
| l = l .or. allocated (a) | |
| !$omp end parallel | |
| if (l) call abort | |
| end |