1! { dg-do run } 2 PROGRAM A26 3 INTEGER I, J 4 I=1 5 J=2 6!$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J) 7 I=3 8 J=J+2 9!$OMP END PARALLEL 10 PRINT *, I, J ! I and J are undefined 11 END PROGRAM A26 12