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