blob: f769fc18f3e79aaf8641412ca18a533769beed33 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! { dg-require-effective-target tls }
MODULE A22_MODULE
COMMON /T/ A
END MODULE A22_MODULE
SUBROUTINE A22_4_WRONG()
USE A22_MODULE
!$OMP THREADPRIVATE(/T/) ! { dg-error "COMMON block" }
!non-conforming because /T/ not declared in A22_4_WRONG
END SUBROUTINE A22_4_WRONG
|
