gcc/testsuite/gfortran.dg/gomp/appendix-a/a.32.1.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target tls }
   3
   4       MODULE M
   5         REAL, POINTER, SAVE :: WORK(:)
   6         INTEGER :: SIZE
   7         REAL :: TOL
   8 !$OMP THREADPRIVATE(WORK,SIZE,TOL)
   9       END MODULE M
  10       SUBROUTINE A32( T, N )
  11         USE M
  12         REAL :: T
  13         INTEGER :: N
  14         TOL = T
  15         SIZE = N
  16 !$OMP PARALLEL COPYIN(TOL,SIZE)
  17         CALL BUILD
  18 !$OMP END PARALLEL
  19       END SUBROUTINE A32
  20       SUBROUTINE BUILD
  21         USE M
  22         ALLOCATE(WORK(SIZE))
  23         WORK = TOL
  24       END SUBROUTINE BUILD