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