13 lines · plain
1! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=52 2>&1 | FileCheck %s2 3! CHECK: not yet implemented: Scope construct4program omp_scope5 integer i6 i = 107 8 !$omp scope firstprivate(x)9 print *, "omp scope", i10 !$omp end scope11 12end program omp_scope13