1! { dg-do compile } 2! { dg-options "-fopenmp -fcray-pointer" } 3! { dg-require-effective-target tls } 4 5module crayptr2 6 integer :: e ! { dg-error "CRAY POINTEE attribute conflicts with THREADPRIVATE" } 7 pointer (ip5, e) 8 9! The standard is not very clear about this. 10! Certainly, Cray pointees can't be SAVEd, nor they can be 11! in COMMON, so the only way to make threadprivate Cray pointees would 12! be if they are module variables. But threadprivate pointees don't 13! make any sense anyway. 14 15!$omp threadprivate (e) 16 17end module crayptr2 18