1!RUN: %S/test_errors.sh %s %t %f18 -fopenmp
2! OpenMP Version 4.5
3! 2.7.1 Collapse Clause Positive cases
4
5!DEF: /omp_docollapse MainProgram
6program omp_docollapse
7  !DEF: /omp_docollapse/i ObjectEntity INTEGER(4)
8  !DEF: /omp_docollapse/j ObjectEntity INTEGER(4)
9  !DEF: /omp_docollapse/k ObjectEntity INTEGER(4)
10  integer i, j, k
11  !$omp do  collapse(2)
12  !DEF: /omp_docollapse/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
13  do i=1,10
14    !DEF: /omp_docollapse/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
15    do j=1,10
16      !REF: /omp_docollapse/k
17      do k=1,10
18        print *, "hello"
19      end do
20    end do
21  end do
22  !$omp end do
23
24  !REF: /omp_docollapse/i
25  do i=1,10
26  !$omp do  collapse(2)
27    !DEF: /omp_docollapse/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
28    do j=1,10
29      !DEF: /omp_docollapse/Block1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
30      do k=1,10
31        print *, "hello"
32      end do
33    end do
34    !$omp end do
35  end do
36end program omp_docollapse
37