27 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags2! XFAIL: *3 4! OpenMP Version 4.55! 2.8.1 simd Construct6! An ordered construct with the simd clause is the only OpenMP construct7! that can be encountered during execution of a simd region.8 9program omp_simd10 integer i, j, k11 integer, allocatable :: a(:)12 13 allocate(a(10))14 15 !$omp simd16 do i = 1, 1017 !ERROR: Invalid OpenMP construct inside simd region18 !$omp single19 a(i) = i20 !$omp end single21 end do22 !$omp end simd23 24 print *, a25 26end program omp_simd27