flang/test/Semantics/omp-workshare02.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang -fopenmp
   2 ! REQUIRES: shell
   3 ! OpenMP Version 4.5
   4 ! 2.7.4 workshare Construct
   5 ! The !omp workshare construct must not contain any user defined
   6 ! function calls unless the function is ELEMENTAL.
   7
   8 module my_mod
   9   contains
  10   integer function my_func()
  11     my_func = 10
  12   end function my_func
  13 end module my_mod
  14
  15 subroutine workshare(aa, bb, cc, dd, ee, ff, n)
  16   use my_mod
  17   integer n, i, j
  18   real aa(n), bb(n), cc(n), dd(n), ee(n), ff(n)
  19
  20   !$omp workshare
  21   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  22   aa = my_func()
  23   cc = dd
  24   ee = ff
  25
  26   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  27   where (aa .ne. my_func()) aa = bb * cc
  28   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  29   where (dd .lt. 5) dd = aa * my_func()
  30
  31   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  32   where (aa .ge. my_func())
  33     !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  34     cc = aa + my_func()
  35   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  36   elsewhere (aa .le. my_func())
  37     !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  38     cc = dd + my_func()
  39   elsewhere
  40     !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  41     cc = ee + my_func()
  42   end where
  43
  44   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  45   forall (j = 1:my_func()) aa(j) = aa(j) + bb(j)
  46
  47   forall (j = 1:10)
  48     aa(j) = aa(j) + bb(j)
  49
  50     !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  51     where (cc .le. j) cc = cc + my_func()
  52   end forall
  53
  54   !$omp atomic update
  55   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  56   j = j + my_func()
  57
  58   !$omp atomic capture
  59   i = j
  60   !ERROR: User defined non-ELEMENTAL function 'my_func' is not allowed in a WORKSHARE construct
  61   j = j - my_func()
  62   !$omp end atomic
  63
  64   !$omp end workshare
  65
  66 end subroutine workshare