1! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp
2! REQUIRES: shell
3! OpenMP Version 4.5
4! 2.7.1 Loop Construct
5! The loop iteration variable may not appear in a firstprivate directive.
6! A positive case
7
8!DEF: /omp_do MainProgram
9program omp_do
10  !DEF: /omp_do/i ObjectEntity INTEGER(4)
11  integer i
12
13  !$omp do  firstprivate(k)
14  !DEF: /omp_do/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
15  do i=1,10
16    print *, "Hello"
17  end do
18  !$omp end do
19
20end program omp_do
21