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