19 lines · plain
1! Test that Structure Component Array Elements are caught by Semantics and return an error2! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -fopenmp-version=453 4type test_type5 integer :: array(2)6end type7 8contains9 subroutine test10 type(test_type) :: x11 12 !ERROR: A variable that is part of another variable cannot appear on the REDUCTION clause13 !$omp do reduction(+: x%array(2))14 do i=1, 215 end do16 !$omp end do17 end subroutine18end19