subroutine f4
  !$omp cancellation point ! { dg-error "Expected construct-type PARALLEL, SECTIONS, DO or TASKGROUP in .OMP CANCELLATION POINT statement at" }
  if (.false.) then
!$omp cancellation EKAHI ! { dg-error "Unclassifiable OpenMP directive" }
  end if
!$omp cancellation HO OKAHI ! { dg-error "Unclassifiable OpenMP directive" }

!$omp cancellation point ! { dg-error "Expected construct-type PARALLEL, SECTIONS, DO or TASKGROUP in .OMP CANCELLATION POINT statement at" }
end