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