2012-03-27 23:13:14 +00:00
|
|
|
C PR fortran/25162
|
|
|
|
C { dg-do run }
|
|
|
|
C { dg-require-effective-target tls_runtime }
|
|
|
|
PROGRAM PR25162
|
|
|
|
CALL TEST1
|
|
|
|
CALL TEST2
|
|
|
|
END
|
|
|
|
SUBROUTINE TEST1
|
|
|
|
DOUBLE PRECISION BPRIM
|
|
|
|
COMMON /TESTCOM/ BPRIM(100)
|
|
|
|
C$OMP THREADPRIVATE(/TESTCOM/)
|
|
|
|
INTEGER I
|
|
|
|
DO I = 1, 100
|
|
|
|
BPRIM( I ) = DBLE( I )
|
|
|
|
END DO
|
|
|
|
RETURN
|
|
|
|
END
|
|
|
|
SUBROUTINE TEST2
|
|
|
|
DOUBLE PRECISION BPRIM
|
|
|
|
COMMON /TESTCOM/ BPRIM(100)
|
|
|
|
C$OMP THREADPRIVATE(/TESTCOM/)
|
|
|
|
INTEGER I, IDUM(50)
|
|
|
|
DO I = 1, 50
|
|
|
|
IDUM(I) = I
|
|
|
|
END DO
|
|
|
|
C$OMP PARALLEL COPYIN(/TESTCOM/) NUM_THREADS(4)
|
|
|
|
CALL TEST3
|
|
|
|
C$OMP END PARALLEL
|
|
|
|
RETURN
|
|
|
|
END
|
|
|
|
SUBROUTINE TEST3
|
|
|
|
DOUBLE PRECISION BPRIM
|
|
|
|
COMMON /TESTCOM/ BPRIM(100)
|
|
|
|
C$OMP THREADPRIVATE(/TESTCOM/)
|
|
|
|
INTEGER K
|
|
|
|
DO K = 1, 10
|
2018-12-28 15:30:48 +00:00
|
|
|
IF (K.NE.BPRIM(K)) STOP 1
|
2012-03-27 23:13:14 +00:00
|
|
|
END DO
|
|
|
|
RETURN
|
|
|
|
END
|