!RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -fopenmp-version=50

!Ref: [5.0:298:19]
! A type parameter inquiry cannot appear in a reduction clause.

subroutine f00
  integer :: x
!ERROR: Type parameter inquiry is not permitted in REDUCTION clause
!$omp do reduction (+ : x%kind)
  do i = 1, 10
  end do
!$omp end do
end subroutine