gcc/testsuite/gfortran.dg/gomp/crayptr2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fopenmp -fcray-pointer" }
   3 ! { dg-require-effective-target tls_native }
   4
   5 module 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
  17 end module crayptr2