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