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