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