10 lines · plain
1! REQUIRES: openmp_runtime2! RUN: %not_todo_cmd %flang_fc1 -emit-llvm %openmp_flags -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s3 4! CHECK: not yet implemented: OpenMPInteropConstruct5program interop_test6 use omp_lib7 integer(omp_interop_kind) :: obj8 !$omp interop init(targetsync,target: obj)9end program interop_test10