1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
2
3! OpenMP Version 4.5
4! 2.8.3 Loop simd Construct
5! Semantic error for correct test case.
6
7program omp_loop_simd
8  integer i, j, k, l
9  k = 0;
10  l = 0
11
12  !$omp parallel do simd linear(l)
13  do i = 1, 10
14    do j = 1, 10
15      print *, "omp loop simd"
16      k = k + 1
17      l = l + 1
18    end do
19  end do
20
21  print *, k, l
22
23end program omp_loop_simd
24