flang/test/Semantics/OpenMP/threadprivate04.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 5.1
   3 ! Check OpenMP construct validity for the following directives:
   4 ! 2.21.2 Threadprivate Directive
   5
   6 program main
   7   integer :: i, N = 10
   8   integer, save :: x1, x2, x3, x4, x5, x6, x7, x8, x9
   9   common /blk1/ y1, /blk2/ y2, /blk3/ y3, /blk4/ y4, /blk5/ y5
  10
  11   !$omp threadprivate(x1, x2, x3, x4, x5, x6, x7, x8, x9)
  12   !$omp threadprivate(/blk1/, /blk2/, /blk3/, /blk4/, /blk5/)
  13
  14   !$omp parallel num_threads(x1)
  15   !$omp end parallel
  16
  17   !ERROR: COPYPRIVATE clause is not allowed on the OMP SINGLE directive, use it on OMP END SINGLE directive
  18   !$omp single copyprivate(x2, /blk1/)
  19   !$omp end single
  20
  21   !$omp single
  22   !$omp end single copyprivate(x2, /blk1/)
  23
  24   !$omp do schedule(static, x3)
  25   do i = 1, N
  26     y1 = x3
  27   end do
  28   !$omp end do
  29
  30   !$omp parallel copyin(x4, /blk2/)
  31   !$omp end parallel
  32
  33   !$omp parallel if(x5 > 1)
  34   !$omp end parallel
  35
  36   !$omp teams thread_limit(x6)
  37   !$omp end teams
  38
  39   !ERROR: A THREADPRIVATE variable cannot be in PRIVATE clause
  40   !ERROR: A THREADPRIVATE variable cannot be in PRIVATE clause
  41   !$omp parallel private(x7, /blk3/)
  42   !$omp end parallel
  43
  44   !ERROR: A THREADPRIVATE variable cannot be in FIRSTPRIVATE clause
  45   !ERROR: A THREADPRIVATE variable cannot be in FIRSTPRIVATE clause
  46   !$omp parallel firstprivate(x8, /blk4/)
  47   !$omp end parallel
  48
  49   !ERROR: A THREADPRIVATE variable cannot be in SHARED clause
  50   !ERROR: A THREADPRIVATE variable cannot be in SHARED clause
  51   !$omp parallel shared(x9, /blk5/)
  52   !$omp end parallel
  53 end