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