blob: 202e27556c9997aed8cc1520e5889810910df016 [file] [log] [blame]
! RUN: %S/test_errors.sh %s %t %flang -fopenmp
! OpenMP Version 4.5
! 2.8.3 Loop simd Construct
! Semantic error for correct test case.
program omp_loop_simd
integer i, j, k, l
k = 0;
l = 0
!$omp parallel do simd linear(l)
do i = 1, 10
do j = 1, 10
print *, "omp loop simd"
k = k + 1
l = l + 1
end do
end do
print *, k, l
end program omp_loop_simd