diff --git a/flang/test/Lower/OpenMP/Todo/scope-allocate.f90 b/flang/test/Lower/OpenMP/Todo/scope-allocate.f90 new file mode 100644 index 0000000000000..5a834c81a852c --- /dev/null +++ b/flang/test/Lower/OpenMP/Todo/scope-allocate.f90 @@ -0,0 +1,12 @@ +! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=52 2>&1 | FileCheck %s + +! CHECK: not yet implemented: Scope construct +program omp_scope + integer i + i = 10 + + !$omp scope allocate(x) private(x) + print *, "omp scope", i + !$omp end scope + +end program omp_scope diff --git a/flang/test/Lower/OpenMP/Todo/scope-firstprivate.f90 b/flang/test/Lower/OpenMP/Todo/scope-firstprivate.f90 new file mode 100644 index 0000000000000..87bcecb817da4 --- /dev/null +++ b/flang/test/Lower/OpenMP/Todo/scope-firstprivate.f90 @@ -0,0 +1,12 @@ +! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=52 2>&1 | FileCheck %s + +! CHECK: not yet implemented: Scope construct +program omp_scope + integer i + i = 10 + + !$omp scope firstprivate(x) + print *, "omp scope", i + !$omp end scope + +end program omp_scope