1! RUN: %S/test_errors.sh %s %t %flang -fopenmp 2! REQUIRES: shell 3 4! OpenMP Version 4.5 5! 2.8.1 simd Construct 6! Semantic error for correct test case 7 8program omp_simd 9 integer i, j, k 10 integer, allocatable :: a(:) 11 12 allocate(a(10)) 13 14 !$omp simd aligned(a) 15 do i = 1, 10 16 a(i) = i 17 end do 18 !$omp end simd 19 20 print *, a 21 22end program omp_simd 23