1! { dg-do compile }
2      SUBROUTINE WORK(I)
3        INTEGER I
4        I=I+1
5      END SUBROUTINE WORK
6      SUBROUTINE CORRECT()
7        INTEGER OMP_GET_THREAD_NUM
8        INTEGER I
9!$OMP PARALLEL PRIVATE(I)
10          I = OMP_GET_THREAD_NUM()
11          CALL WORK(I)
12!$OMP END PARALLEL
13      END SUBROUTINE CORRECT
14