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