16177SN/A! { dg-do compile }
26537SN/A      SUBROUTINE WORK(K)
36177SN/A        INTEGER k
46177SN/A!$OMP ORDERED
56177SN/A        WRITE(*,*) K
66177SN/A!$OMP END ORDERED
76177SN/A      END SUBROUTINE WORK
86177SN/A      SUBROUTINE SUBA21(LB, UB, STRIDE)
96177SN/A        INTEGER LB, UB, STRIDE
106177SN/A        INTEGER I
116177SN/A!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
126177SN/A        DO I=LB,UB,STRIDE
136177SN/A          CALL WORK(I)
146177SN/A        END DO
156177SN/A!$OMP END PARALLEL DO
166177SN/A      END SUBROUTINE SUBA21
176177SN/A      PROGRAM A21
186177SN/A        CALL SUBA21(1,100,5)
196177SN/A      END PROGRAM A21
206177SN/A