blob: 87359a152a66eed1406392483a8f2dc3bae58463 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
SUBROUTINE WORK(I)
INTEGER I
END SUBROUTINE WORK
SUBROUTINE A21_WRONG(N)
INTEGER N
INTEGER I
!$OMP DO ORDERED
DO I = 1, N
! incorrect because an iteration may not execute more than one
! ordered region
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
!$OMP ORDERED
CALL WORK(I+1)
!$OMP END ORDERED
END DO
END SUBROUTINE A21_WRONG
|
