1! { dg-do run }
2
3        PROGRAM A28_3
4        EQUIVALENCE (X,Y)
5        X = 1.0
6!$OMP PARALLEL PRIVATE(X)
7          PRINT *,Y         ! Y is undefined
8          Y = 10
9          PRINT *,X         ! X is undefined
10!$OMP END PARALLEL
11      END PROGRAM A28_3
12