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 target in_reduction(.or.: x)7!$omp end target8end9 10subroutine f0111 real :: x12!ERROR: Invalid reduction operator in IN_REDUCTION clause.13!$omp target in_reduction(.not.: x)14!$omp end target15end16 17subroutine f02(p)18 integer, pointer, intent(in) :: p19!ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a IN_REDUCTION clause20!$omp target in_reduction(+: p)21!$omp end target22end23 24subroutine f0325 common /c/ a, b 26!ERROR: Common block names are not allowed in IN_REDUCTION clause27!$omp target in_reduction(+: /c/)28!$omp end target29end30 31subroutine f0432 integer :: x(10)33!ERROR: Reference to 'x' must be a contiguous object34!$omp target in_reduction(+: x(1:10:2))35!$omp end target36end37 38subroutine f0539 integer :: x(10)40!ERROR: 'x' in IN_REDUCTION clause is a zero size array section41!$omp target in_reduction(+: x(1:0))42!$omp end target43end44 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 IN_REDUCTION clause51!ERROR: The base expression of an array element or section in IN_REDUCTION clause must be an identifier52!$omp target in_reduction(+: x%a(2))53!$omp end target54end55 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 IN_REDUCTION clause62!ERROR: The base expression of an array element or section in IN_REDUCTION clause must be an identifier63!$omp target in_reduction(+: x%a(1:10))64!$omp end target65end66 67subroutine f0868 integer :: x69!ERROR: Type parameter inquiry is not permitted in IN_REDUCTION clause70!$omp target in_reduction(+: x%kind)71!$omp end target72end73