73 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=502 3subroutine f004 real :: x5!ERROR: The type of 'x' is incompatible with the reduction operator.6!$omp taskgroup task_reduction(.or.: x)7!$omp end taskgroup8end9 10subroutine f0111 real :: x12!ERROR: Invalid reduction operator in TASK_REDUCTION clause.13!$omp taskgroup task_reduction(.not.: x)14!$omp end taskgroup15end16 17subroutine f02(p)18 integer, pointer, intent(in) :: p19!ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a TASK_REDUCTION clause20!$omp taskgroup task_reduction(+: p)21!$omp end taskgroup22end23 24subroutine f0325 common /c/ a, b 26!ERROR: Common block names are not allowed in TASK_REDUCTION clause27!$omp taskgroup task_reduction(+: /c/)28!$omp end taskgroup29end30 31subroutine f0432 integer :: x(10)33!ERROR: Reference to 'x' must be a contiguous object34!$omp taskgroup task_reduction(+: x(1:10:2))35!$omp end taskgroup36end37 38subroutine f0539 integer :: x(10)40!ERROR: 'x' in TASK_REDUCTION clause is a zero size array section41!$omp taskgroup task_reduction(+: x(1:0))42!$omp end taskgroup43end44 45subroutine f0646 type t47 integer :: a(10)48 end type49 type(t) :: x50!ERROR: A variable that is part of another variable cannot appear on the TASK_REDUCTION clause51!ERROR: The base expression of an array element or section in TASK_REDUCTION clause must be an identifier52!$omp taskgroup task_reduction(+: x%a(2))53!$omp end taskgroup54end55 56subroutine f0757 type t58 integer :: a(10)59 end type60 type(t) :: x61!ERROR: A variable that is part of another variable cannot appear on the TASK_REDUCTION clause62!ERROR: The base expression of an array element or section in TASK_REDUCTION clause must be an identifier63!$omp taskgroup task_reduction(+: x%a(1:10))64!$omp end taskgroup65end66 67subroutine f0868 integer :: x69!ERROR: Type parameter inquiry is not permitted in TASK_REDUCTION clause70!$omp taskgroup task_reduction(+: x%kind)71!$omp end taskgroup72end73