22 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 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(:)10 11 allocate(a(10))12 13 !$omp simd aligned(a)14 do i = 1, 1015 a(i) = i16 end do17 !$omp end simd18 19 print *, a20 21end program omp_simd22