14 lines · plain
1! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s -fopenmp-version=51 2>&1 | FileCheck %s2! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=51 2>&1 | FileCheck %s3 4! CHECK: not yet implemented: Scope construct5program omp_scope6 integer i7 i = 108 9 !$omp scope private(i)10 print *, "omp scope", i11 !$omp end scope12 13end program omp_scope14