1! { dg-do compile }
2      SUBROUTINE WORK(I)
3      INTEGER I
4        I=I+1
5      END SUBROUTINE WORK
6      SUBROUTINE INCORRECT()
7        INTEGER OMP_GET_NUM_THREADS
8        INTEGER I, NP
9        NP = OMP_GET_NUM_THREADS()   !misplaced: will return 1
10!$OMP PARALLEL DO SCHEDULE(STATIC)
11          DO I = 0, NP-1
12            CALL WORK(I)
13          ENDDO
14!$OMP END PARALLEL DO
15      END SUBROUTINE INCORRECT
16