1subroutine f1 (a) 2 integer :: a(*) 3 integer i 4 !$omp do order ! { dg-error "Failed to match clause" } 5 do i = 1, 128 6 a(i) = a(i) + 1 7 end do 8 !$omp do simd order : ! { dg-error "Failed to match clause" } 9 do i = 1, 128 10 a(i) = a(i) + 1 11 end do 12 !$omp simd order ( foobar ) ! { dg-error "Expected ORDER\\(CONCURRENT\\) at .1. with optional 'reproducible' or 'unconstrained' modifier" } 13 do i = 1, 128 14 a(i) = a(i) + 1 15 end do 16 !$omp do simd order( concurrent ! { dg-error "Expected ORDER\\(CONCURRENT\\) at .1. with optional 'reproducible' or 'unconstrained' modifier" } 17 do i = 1, 128 18 a(i) = a(i) + 1 19 end do 20 !$omp do simd order( concurrent : foo )! { dg-error "Expected ORDER\\(CONCURRENT\\) at .1. with optional 'reproducible' or 'unconstrained' modifier" } 21 do i = 1, 128 22 a(i) = a(i) + 1 23 end do 24end 25 26subroutine f2 (a) 27 integer :: a(*) 28 integer i 29 !$omp teams 30 !$omp distribute order(concurrent) 31 do i = 1, 128 32 a(i) = a(i) + 1 33 end do 34 !$omp end teams 35 !$omp taskloop order (concurrent) ! { dg-error "Failed to match clause" } 36 do i = 1, 128 37 a(i) = a(i) + 1 38 end do 39 !$omp do order(concurrent) ordered ! { dg-error "ORDER clause must not be used together ORDERED" } 40 do i = 1, 128 41 !$omp ordered 42 a(i) = a(i) + 1 43 !$omp end ordered 44 end do 45 !$omp do ordered order(concurrent) ! { dg-error "ORDER clause must not be used together ORDERED" } 46 do i = 1, 128 47 !$omp ordered 48 a(i) = a(i) + 1 49 !$omp end ordered 50 end do 51 !$omp do ordered (1) order(concurrent) ! { dg-error "ORDER clause must not be used together ORDERED" } 52 do i = 1, 128 53 !$omp ordered depend (sink: i - 1) 54 !$omp ordered depend (source) 55 end do 56 !$omp do order(concurrent)ordered (1) ! { dg-error "ORDER clause must not be used together ORDERED" } 57 do i = 1, 128 58 !$omp ordered depend (sink: i - 1) 59 !$omp ordered depend (source) 60 end do 61end 62