11 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2subroutine intrinsic_reduction3 type local4 integer alpha5 end type local6 type(local) a7!ERROR: A variable that is part of another variable cannot appear on the REDUCTION clause8!$omp parallel reduction(+:a%alpha)9!$omp end parallel10end subroutine intrinsic_reduction11