blob: 6531d826c576d8a77bfc59f89f062a7ca8200a4f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! { dg-require-effective-target tls }
SUBROUTINE A22_5_WRONG()
COMMON /T/ A
!$OMP THREADPRIVATE(/T/)
CONTAINS
SUBROUTINE A22_5S_WRONG()
!$OMP PARALLEL COPYIN(/T/) ! { dg-error "COMMON block" }
!non-conforming because /T/ not declared in A22_5S_WRONG
!$OMP END PARALLEL ! { dg-error "Unexpected" }
END SUBROUTINE A22_5S_WRONG
END SUBROUTINE A22_5_WRONG
|
