From 3ceeb3680fd72c4806812f064b1585eeb1992b67 Mon Sep 17 00:00:00 2001
From: Mats Petersson <mats.petersson@arm.com>
Date: Tue, 19 Nov 2024 10:48:37 +0000
Subject: [PATCH] [flang][OpenMP]Add TODO checking for scope allocate and
 firstprivate

For the situation where scope is implemented to 5.1 standard,
check that the 5.2 are still "not yet implemented".
---
 flang/test/Lower/OpenMP/Todo/scope-allocate.f90     | 12 ++++++++++++
 flang/test/Lower/OpenMP/Todo/scope-firstprivate.f90 | 12 ++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 flang/test/Lower/OpenMP/Todo/scope-allocate.f90
 create mode 100644 flang/test/Lower/OpenMP/Todo/scope-firstprivate.f90

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