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