flang/test/Driver/dump-pft.f90

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