28 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=60 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=60 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4!UNPARSE: SUBROUTINE teams_workdistribute5!UNPARSE: USE :: iso_fortran_env6!UNPARSE: REAL(KIND=4_4) a7!UNPARSE: REAL(KIND=4_4), DIMENSION(10_4) :: x8!UNPARSE: REAL(KIND=4_4), DIMENSION(10_4) :: y9!UNPARSE: !$OMP TEAMS WORKDISTRIBUTE10!UNPARSE: y=a*x+y11!UNPARSE: !$OMP END TEAMS WORKDISTRIBUTE12!UNPARSE: END SUBROUTINE teams_workdistribute13 14!PARSE-TREE: | | | OmpBeginDirective15!PARSE-TREE: | | | | OmpDirectiveName -> llvm::omp::Directive = teams workdistribute16!PARSE-TREE: | | | OmpEndDirective17!PARSE-TREE: | | | | OmpDirectiveName -> llvm::omp::Directive = teams workdistribute18 19subroutine teams_workdistribute()20 use iso_fortran_env21 real(kind=real32) :: a22 real(kind=real32), dimension(10) :: x23 real(kind=real32), dimension(10) :: y24 !$omp teams workdistribute25 y = a * x + y26 !$omp end teams workdistribute27end subroutine teams_workdistribute28