1! { dg-do compile } 2 SUBROUTINE WORK(K) 3 INTEGER k 4!$OMP ORDERED 5 WRITE(*,*) K 6!$OMP END ORDERED 7 END SUBROUTINE WORK 8 SUBROUTINE SUBA21(LB, UB, STRIDE) 9 INTEGER LB, UB, STRIDE 10 INTEGER I 11!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC) 12 DO I=LB,UB,STRIDE 13 CALL WORK(I) 14 END DO 15!$OMP END PARALLEL DO 16 END SUBROUTINE SUBA21 17 PROGRAM A21 18 CALL SUBA21(1,100,5) 19 END PROGRAM A21 20