16 lines · plain
1! RUN: %flang_fc1 -fopenmp -fdebug-unparse-no-sema %s 2>&1 | FileCheck %s2 3 program name_with_space4!CHECK: !$OMP THREADPRIVATE(/cc/, var1)5!$omp threadprivate(/c c/, var 1)6 7!CHECK: !$OMP PARALLEL PRIVATE(somevar,expr1,expr2) IF(expr2>expr1)8!$omp parallel private(some var, expr 1, ex pr2)9!$omp+ if (exp r2 > ex pr1)10!$omp critical (x_x)11 print '(a)', 'Hello World'12!CHECK: !$OMP END CRITICAL(x_x)13!$omp end critical (x _x)14!$omp end parallel15 end program name_with_space16