Skip to content

Commit

Permalink
Fix test
Browse files Browse the repository at this point in the history
  • Loading branch information
tblah committed Oct 2, 2024
1 parent 9a43a1d commit d3aa6da
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions flang/test/Semantics/OpenMP/private03.f90
Original file line number Diff line number Diff line change
Expand Up @@ -17,17 +17,17 @@ subroutine stmt_function(temp)
q = 32
r = 9

!ERROR: Variable 'p' in STATEMENT FUNCTION expression cannot be in a PRIVATE clause
!ERROR: Variable 'p' in statement function expression cannot be in a PRIVATE clause
!$omp parallel private(p)
s = c(temp)
!$omp end parallel

!ERROR: Variable 's' in STATEMENT FUNCTION expression cannot be in a FIRSTPRIVATE clause
!ERROR: Variable 's' in statement function expression cannot be in a FIRSTPRIVATE clause
!$omp parallel firstprivate(s)
s = s + f(temp)
!$omp end parallel

!ERROR: Variable 's' in STATEMENT FUNCTION expression cannot be in a LASTPRIVATE clause
!ERROR: Variable 's' in statement function expression cannot be in a LASTPRIVATE clause
!$omp parallel do lastprivate(s, t)
do i = 1, 10
t(i) = v(temp) + i - s
Expand Down

0 comments on commit d3aa6da

Please sign in to comment.