15 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -fopenmp-version=502 3!Ref: [5.0:298:19]4! A type parameter inquiry cannot appear in a reduction clause.5 6subroutine f007 integer :: x8!ERROR: Type parameter inquiry is not permitted in REDUCTION clause9!$omp do reduction (+ : x%kind)10 do i = 1, 1011 end do12!$omp end do13end subroutine14 15