xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.2.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1! { dg-do run }
2
3      PROGRAM A28_2
4        COMMON /BLOCK2/ X
5        X = 1.0
6!$OMP PARALLEL PRIVATE (X)
7          X = 2.0
8          CALL SUB()
9!$OMP END PARALLEL
10       CONTAINS
11        SUBROUTINE SUB()
12        COMMON /BLOCK2/ Y
13        PRINT *,X                 ! X is undefined
14        PRINT *,Y                 ! Y is undefined
15        END SUBROUTINE SUB
16      END PROGRAM A28_2
17