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