Skip to content

Commit b7ddb97

Browse files
[flang][OpenMP]Add TODO checking for scope allocate and firstprivate (#116801)
For the situation where scope is implemented to 5.1 standard, check that the 5.2 are still "not yet implemented" (or some other partial implementation).
1 parent 92604d7 commit b7ddb97

File tree

2 files changed

+24
-0
lines changed

2 files changed

+24
-0
lines changed
Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=52 2>&1 | FileCheck %s
2+
3+
! CHECK: not yet implemented: Scope construct
4+
program omp_scope
5+
integer i
6+
i = 10
7+
8+
!$omp scope allocate(x) private(x)
9+
print *, "omp scope", i
10+
!$omp end scope
11+
12+
end program omp_scope
Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=52 2>&1 | FileCheck %s
2+
3+
! CHECK: not yet implemented: Scope construct
4+
program omp_scope
5+
integer i
6+
i = 10
7+
8+
!$omp scope firstprivate(x)
9+
print *, "omp scope", i
10+
!$omp end scope
11+
12+
end program omp_scope

0 commit comments

Comments
 (0)