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