mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 15:12:11 +01:00
38 lines
1.0 KiB
Fortran
38 lines
1.0 KiB
Fortran
! @@name: default_none.1
|
|
! @@type: F-fixed
|
|
! @@compilable: no
|
|
! @@linkable: no
|
|
! @@expect: failure
|
|
SUBROUTINE DEFAULT_NONE(A)
|
|
INCLUDE "omp_lib.h" ! or USE OMP_LIB
|
|
|
|
INTEGER A
|
|
|
|
INTEGER X, Y, Z(1000)
|
|
COMMON/BLOCKX/X
|
|
COMMON/BLOCKY/Y
|
|
COMMON/BLOCKZ/Z
|
|
!$OMP THREADPRIVATE(/BLOCKX/)
|
|
|
|
INTEGER I, J
|
|
i = 1
|
|
|
|
!$OMP PARALLEL DEFAULT(NONE) PRIVATE(A) SHARED(Z) PRIVATE(J)
|
|
J = OMP_GET_NUM_THREADS();
|
|
! O.K. - J is listed in PRIVATE clause
|
|
A = Z(J) ! O.K. - A is listed in PRIVATE clause
|
|
! - Z is listed in SHARED clause
|
|
X = 1 ! O.K. - X is THREADPRIVATE
|
|
Z(I) = Y ! Error - cannot reference I or Y here
|
|
|
|
!$OMP DO firstprivate(y)
|
|
! Error - Cannot reference y in the firstprivate clause
|
|
DO I = 1,10
|
|
Z(I) = I ! O.K. - I is the loop iteration variable
|
|
END DO
|
|
|
|
|
|
Z(I) = Y ! Error - cannot reference I or Y here
|
|
!$OMP END PARALLEL
|
|
END SUBROUTINE DEFAULT_NONE
|