61 lines · plain
1! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenmp %s | FileCheck %s2 3! Test Pre-FIR Tree captures OpenMP related constructs4 5! CHECK: Program TEST_OMP6program test_omp7 ! CHECK: PrintStmt8 print *, "sequential"9 10 ! CHECK: <<OpenMPConstruct>>11 !$omp parallel12 ! CHECK: PrintStmt13 print *, "in omp //"14 ! CHECK: <<OpenMPConstruct>>15 !$omp do16 ! CHECK: <<DoConstruct>>17 ! CHECK: LabelDoStmt18 do i=1,10019 ! CHECK: PrintStmt20 print *, "in omp do"21 ! CHECK: EndDoStmt22 end do23 ! CHECK: <<End DoConstruct>>24 ! CHECK: OmpEndLoopDirective25 !$omp end do26 ! CHECK: <<End OpenMPConstruct>>27 28 ! CHECK: PrintStmt29 print *, "not in omp do"30 31 ! CHECK: <<OpenMPConstruct>>32 !$omp do33 ! CHECK: <<DoConstruct>>34 ! CHECK: LabelDoStmt35 do i=1,10036 ! CHECK: PrintStmt37 print *, "in omp do"38 ! CHECK: EndDoStmt39 end do40 ! CHECK: <<End DoConstruct>>41 ! CHECK: <<End OpenMPConstruct>>42 ! CHECK-NOT: OmpEndLoopDirective43 ! CHECK: PrintStmt44 print *, "no in omp do"45 !$omp end parallel46 ! CHECK: <<End OpenMPConstruct>>47 48 ! CHECK: PrintStmt49 print *, "sequential again"50 51 ! CHECK: <<OpenMPConstruct>>52 !$omp task53 ! CHECK: PrintStmt54 print *, "in task"55 !$omp end task56 ! CHECK: <<End OpenMPConstruct>>57 58 ! CHECK: PrintStmt59 print *, "sequential again"60end program61