| ! { dg-do compile } | |
| ! { dg-require-effective-target tls } | |
| MODULE M | |
| REAL, POINTER, SAVE :: WORK(:) | |
| INTEGER :: SIZE | |
| REAL :: TOL | |
| !$OMP THREADPRIVATE(WORK,SIZE,TOL) | |
| END MODULE M | |
| SUBROUTINE A32( T, N ) | |
| USE M | |
| REAL :: T | |
| INTEGER :: N | |
| TOL = T | |
| SIZE = N | |
| !$OMP PARALLEL COPYIN(TOL,SIZE) | |
| CALL BUILD | |
| !$OMP END PARALLEL | |
| END SUBROUTINE A32 | |
| SUBROUTINE BUILD | |
| USE M | |
| ALLOCATE(WORK(SIZE)) | |
| WORK = TOL | |
| END SUBROUTINE BUILD |