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