608f4ae113
The intent is to keep names in sync with the terminology from the OpenMP spec: ``` OmpBindClause::Type -> Binding OmpDefaultClause::Type -> DataSharingAttribute OmpDeviceTypeClause::Type -> DeviceTypeDescription OmpProcBindClause::Type -> AffinityPolicy ``` Add more comments with references to the OpenMP specs.
15 lines
638 B
Fortran
15 lines
638 B
Fortran
! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s
|
|
! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
|
|
|
|
! CHECK: !$OMP PARALLEL PROC_BIND(PRIMARY)
|
|
|
|
! PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPBlockConstruct
|
|
! PARSE-TREE: OmpBeginBlockDirective
|
|
! PARSE-TREE: OmpBlockDirective -> llvm::omp::Directive = parallel
|
|
! PARSE-TREE: OmpClauseList -> OmpClause -> ProcBind -> OmpProcBindClause -> AffinityPolicy = Primary
|
|
subroutine sb1
|
|
!$omp parallel proc_bind(primary)
|
|
print *, "Hello"
|
|
!$omp end parallel
|
|
end subroutine
|