18 lines · plain
1! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s2 3! CHECK: not yet implemented: OmpDeclareVariantDirective4 5subroutine sb16 integer :: x7 x = 18 call sub(x)9contains10 subroutine vsub (v1)11 integer, value :: v112 end13 subroutine sub (v1)14 !$omp declare variant(vsub), match(construct={dispatch})15 integer, value :: v116 end17end subroutine18