51 lines · plain
1! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenacc %s | FileCheck %s2 3! Test structure of the Pre-FIR tree with OpenACC construct4 5! CHECK: Subroutine foo6subroutine foo()7 ! CHECK-NEXT: <<OpenACCConstruct>>8 ! CHECK-NEXT: <<OpenACCConstruct>>9 !$acc parallel10 !$acc loop11 ! CHECK-NEXT: <<DoConstruct>>12 ! CHECK-NEXT: NonLabelDoStmt13 do i=1,514 ! CHECK-NEXT: PrintStmt15 print *, "hey"16 ! CHECK-NEXT: <<DoConstruct>>17 ! CHECK-NEXT: NonLabelDoStmt18 do j=1,519 ! CHECK-NEXT: PrintStmt20 print *, "hello", i, j21 ! CHECK-NEXT: EndDoStmt22 ! CHECK-NEXT: <<End DoConstruct>>23 end do24 ! CHECK-NEXT: EndDoStmt25 ! CHECK-NEXT: <<End DoConstruct>>26 end do27 ! CHECK-NEXT: ContinueStmt28 !$acc end parallel29 ! CHECK-NEXT: <<End OpenACCConstruct>>30 ! CHECK-NEXT: <<End OpenACCConstruct>>31 ! CHECK-NEXT: EndSubroutineStmt32end subroutine33! CHECK-NEXT: End Subroutine foo34 35! CHECK: Subroutine foo236subroutine foo2()37 ! CHECK-NEXT: <<OpenACCConstruct>>38 !$acc parallel loop39 ! CHECK-NEXT: <<DoConstruct>>40 ! CHECK-NEXT: NonLabelDoStmt41 do i=1,542 ! CHECK-NEXT: EndDoStmt43 ! CHECK-NEXT: <<End DoConstruct>>44 end do45 ! CHECK-NEXT: ContinueStmt46 !$acc end parallel loop47 ! CHECK-NEXT: <<End OpenACCConstruct>>48 ! CHECK-NEXT: EndSubroutineStmt49end subroutine50! CHECK-NEXT: End Subroutine foo251