27 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=50 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine f005 !$omp loop bind(parallel)6 do i = 1, 107 continue8 enddo9 !$omp end loop10end11 12!UNPARSE: SUBROUTINE f0013!UNPARSE: !$OMP LOOP BIND(PARALLEL)14!UNPARSE: DO i=1_4,10_415!UNPARSE: CONTINUE16!UNPARSE: END DO17!UNPARSE: !$OMP END LOOP18!UNPARSE: END SUBROUTINE19 20!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPLoopConstruct21!PARSE-TREE: | OmpBeginLoopDirective22!PARSE-TREE: | | OmpDirectiveName -> llvm::omp::Directive = loop23!PARSE-TREE: | | OmpClauseList -> OmpClause -> Bind -> OmpBindClause -> Binding = Parallel24!PARSE-TREE: | | Flags = {}25!PARSE-TREE: | ExecutionPartConstruct -> ExecutableConstruct -> DoConstruct26 27