summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.1.f90
blob: c271333a86d5ac750493902a00b391d1a364280f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
! { dg-do run }

       SUBROUTINE SUB()
       COMMON /BLOCK/ X
       PRINT *,X              ! X is undefined
       END SUBROUTINE SUB
       PROGRAM A28_1
         COMMON /BLOCK/ X
         X = 1.0
!$OMP PARALLEL PRIVATE (X)
         X = 2.0
         CALL SUB()
!$OMP END PARALLEL
      END PROGRAM A28_1