1! { dg-do run }
2
3      PROGRAM A28_2
4        COMMON /BLOCK2/ X
5        X = 1.0
6!$OMP PARALLEL PRIVATE (X)
7          X = 2.0
8          CALL SUB()
9!$OMP END PARALLEL
10       CONTAINS
11        SUBROUTINE SUB()
12        COMMON /BLOCK2/ Y
13        PRINT *,X                 ! X is undefined
14        PRINT *,Y                 ! Y is undefined
15        END SUBROUTINE SUB
16      END PROGRAM A28_2
17