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