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