Skip to content

Commit cac1cb5

Browse files
authored
Update ordered01.f90
1 parent 8a923cb commit cac1cb5

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

flang/test/Semantics/OpenMP/ordered01.f90

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -9,11 +9,9 @@ program main
99
real, external :: foo, bar, baz
1010

1111
!ERROR: DEFAULT clause is not allowed on the DO directive
12-
!$omp do ordered default(private)
12+
!$omp do default(private)
1313
do i = 1, N
14-
!$omp ordered
1514
arrayA(i) = arrayA(i) + 1
16-
!$omp end ordered
1715
end do
1816
!$omp end do
1917

0 commit comments

Comments
 (0)