diff options
Diffstat (limited to 'flang/test/Semantics/omp-do05-positivecase.f90')
-rw-r--r-- | flang/test/Semantics/omp-do05-positivecase.f90 | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/flang/test/Semantics/omp-do05-positivecase.f90 b/flang/test/Semantics/omp-do05-positivecase.f90 new file mode 100644 index 000000000000..72d68d0fb111 --- /dev/null +++ b/flang/test/Semantics/omp-do05-positivecase.f90 @@ -0,0 +1,36 @@ +! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! OpenMP Version 4.5 +! 2.7.1 Loop Construct restrictions on single directive. +! A positive case + +!DEF: /omp_do MainProgram +program omp_do + !DEF: /omp_do/i ObjectEntity INTEGER(4) + !DEF: /omp_do/n ObjectEntity INTEGER(4) + integer i,n + !$omp parallel + !DEF: /omp_do/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) + do i=1,10 + !$omp single + print *, "hello" + !$omp end single + end do + !$omp end parallel + + !$omp parallel default(shared) + !$omp do + !DEF: /omp_do/Block2/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) + !REF: /omp_do/n + do i=1,n + !$omp parallel + !$omp single + !DEF: /work EXTERNAL (Subroutine) ProcEntity + !REF: /omp_do/Block2/Block1/i + call work(i, 1) + !$omp end single + !$omp end parallel + end do + !$omp end do + !$omp end parallel + +end program omp_do |