flang/test/Driver/dump-pft.f90

   1 ! RUN: %flang_fc1 -fdebug-dump-parse-tree %s 2>&1 | FileCheck %s --check-prefix=PARSE_TREE
   2 ! RUN: %flang_fc1 -fdebug-dump-pft %s 2>&1 | FileCheck %s --check-prefix=PFT
   3 ! RUN: bbc -pft-test %s 2>&1 | FileCheck %s --check-prefix=PFT
   4
   5 ! PFT: 1 Subroutine test_routine: subroutine test_routine(a, b, n)
   6 ! PFT-NEXT:  1 EndSubroutineStmt: end subroutine
   7 ! PRF-NEXT: End Subroutine test_routine
   8 ! PFT-NO: Program -> ProgramUnit -> SubroutineSubprogram
   9
  10 ! PARSE_TREE: Program -> ProgramUnit -> SubroutineSubprogram
  11 ! PARSE_TREE-NEXT: | SubroutineStmt
  12 ! PARSE_TREE-NEXT: | | Name = 'test_routine'
  13 ! PARSE_TREE-NEXT: | | DummyArg -> Name = 'a'
  14 ! PARSE_TREE-NEXT: | | DummyArg -> Name = 'b'
  15 ! PARSE_TREE-NEXT: | | DummyArg -> Name = 'n'
  16 ! PARSE_TREE-NEXT: | SpecificationPart
  17 ! PARSE_TREE-NEXT: | | ImplicitPart ->
  18 ! PARSE_TREE-NEXT: | ExecutionPart -> Block
  19 ! PARSE_TREE-NEXT: | EndSubroutineStmt ->
  20 ! PARSE_TREE-NO: Subroutine test_routine: subroutine test_routine(a, b, n)
  21
  22 subroutine test_routine(a, b, n)
  23 end subroutine