64 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=502 3! OpenMP Version 4.54! 2.8.1 simd Construct5! Semantic error for correct test case6 7program omp_simd8 integer i, j, k9 integer, allocatable :: a(:), b(:)10 11 allocate(a(10))12 allocate(b(10))13 14 !ERROR: List item 'a' present at multiple NONTEMPORAL clauses15 !$omp simd nontemporal(a, a)16 do i = 1, 1017 a(i) = i18 end do19 !$omp end simd20 21 !ERROR: List item 'a' present at multiple NONTEMPORAL clauses22 !ERROR: List item 'b' present at multiple NONTEMPORAL clauses23 !$omp simd nontemporal(a,a) nontemporal(b) nontemporal(b)24 do i = 1, 1025 a(i) = i26 b(i) = i27 end do28 !$omp end simd29 30 !ERROR: List item 'a' present at multiple NONTEMPORAL clauses31 !$omp simd nontemporal(a) nontemporal(a)32 do i = 1, 1033 a(i) = i34 end do35 !$omp end simd36 37 !$omp simd nontemporal(a) nontemporal(b)38 do i = 1, 1039 a(i) = i40 b(i) = i41 end do42 !$omp end simd43 44 !ERROR: List item 'a' present at multiple NONTEMPORAL clauses45 !$omp simd nontemporal(a) private(a) nontemporal(a)46 do i = 1, 1047 a(i) = i48 b(i) = i49 end do50 !$omp end simd51 52 !ERROR: List item 'a' present at multiple NONTEMPORAL clauses53 !ERROR: List item 'b' present at multiple NONTEMPORAL clauses54 !$omp simd nontemporal(a,a,b,b)55 do i = 1, 1056 a(i) = i57 b(i) = i58 end do59 !$omp end simd60 61 print *, a62 63end program omp_simd64