2 ! { dg-require-effective-target tls }
4 SUBROUTINE A22_5_WRONG()
6 !$OMP THREADPRIVATE(/T/)
8 SUBROUTINE A22_5S_WRONG()
9 !$OMP PARALLEL COPYIN(/T/) ! { dg-error "COMMON block" }
10 !non-conforming because /T/ not declared in A22_5S_WRONG
11 !$OMP END PARALLEL ! { dg-error "Unexpected" }
12 END SUBROUTINE A22_5S_WRONG
13 END SUBROUTINE A22_5_WRONG