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