blob: 35d5869ac1c2c5f15f4caa1acfc52d8eafc48603 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module m
integer a, b
end module m
subroutine f3 (c, d)
use m
implicit none
integer i, c(64), d(64)
!$omp parallel reduction (inscan, +: a) ! { dg-error "'inscan' REDUCTION clause on construct other than DO, SIMD, DO SIMD, PARALLEL DO, PARALLEL DO SIMD" }
! ...
!$omp end parallel
!$omp sections reduction (inscan, +: a) ! { dg-error "'inscan' REDUCTION clause on construct other than DO, SIMD, DO SIMD, PARALLEL DO, PARALLEL DO SIMD" }
!$omp section
! ...
!$omp end sections
end
|
