xref: /llvm-project/flang/test/Semantics/OpenMP/do01.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp
2! OpenMP Version 4.5
3! 2.7.1 Loop Construct
4! The loop iteration variable may not appear in a firstprivate directive.
5
6program omp_do
7  integer i, j, k
8
9  !ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause.
10  !$omp do firstprivate(k,i)
11  do i = 1, 10
12    do j = 1, 10
13      print *, "Hello"
14    end do
15  end do
16  !$omp end do
17
18end program omp_do
19