1! { dg-do compile } 2! { dg-require-effective-target tls } 3 4 SUBROUTINE A22_5_WRONG() 5 COMMON /T/ A 6!$OMP THREADPRIVATE(/T/) 7 CONTAINS 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 14