! PR middle-end/27416! { dg-do run }integer:: j
j =6!$omp parallel num_threads (4)callfoo(j)!$omp end parallelif(j.ne.6+16)stop1endsubroutinefoo(j)integer:: i, j
!$omp do firstprivate (j) lastprivate (j)do i =1,16if(i.eq.16) j = j + i
end doend subroutine foo