77 lines · plain
1! UNSUPPORTED: system-windows2! REQUIRES: plugins, shell, examples3 4! RUN: %flang_fc1 -load %llvmshlibdir/flangFeatureList%pluginext \5! RUN: -plugin feature-list %s 2>&1 | FileCheck %s6 7program list_features_test8 implicit none9 call test_sub(test_func(2, 3), 4)10contains11 subroutine test_sub(a, b)12 integer, intent(in) :: a, b13 print "(I0)", a + b14 end subroutine15 16 integer function test_func(a, b)17 integer, intent(in) :: a, b18 test_func = a * b19 end function20end program list_features_test21 22! CHECK: Name: 1923! CHECK-NEXT: Expr: 1124! CHECK-NEXT: DataRef: 525! CHECK-NEXT: Designator: 526! CHECK-NEXT: ActualArg: 427! CHECK-NEXT: ActualArgSpec: 428! CHECK-NEXT: EntityDecl: 429! CHECK-NEXT: LiteralConstant: 430! CHECK-NEXT: ActionStmt: 331! CHECK-NEXT: Block: 332! CHECK-NEXT: DeclarationTypeSpec: 333! CHECK-NEXT: ExecutableConstruct: 334! CHECK-NEXT: ExecutionPart: 335! CHECK-NEXT: ExecutionPartConstruct: 336! CHECK-NEXT: ImplicitPart: 337! CHECK-NEXT: IntLiteralConstant: 338! CHECK-NEXT: IntegerTypeSpec: 339! CHECK-NEXT: IntrinsicTypeSpec: 340! CHECK-NEXT: SpecificationPart: 341! CHECK-NEXT: AttrSpec: 242! CHECK-NEXT: Call: 243! CHECK-NEXT: DeclarationConstruct: 244! CHECK-NEXT: DummyArg: 245! CHECK-NEXT: IntentSpec: 246! CHECK-NEXT: IntentSpec::Intent: 247! CHECK-NEXT: InternalSubprogram: 248! CHECK-NEXT: ProcedureDesignator: 249! CHECK-NEXT: SpecificationConstruct: 250! CHECK-NEXT: TypeDeclarationStmt: 251! CHECK-NEXT: AssignmentStmt: 152! CHECK-NEXT: CallStmt: 153! CHECK-NEXT: CharLiteralConstant: 154! CHECK-NEXT: ContainsStmt: 155! CHECK-NEXT: EndFunctionStmt: 156! CHECK-NEXT: EndProgramStmt: 157! CHECK-NEXT: EndSubroutineStmt: 158! CHECK-NEXT: Expr::Add: 159! CHECK-NEXT: Expr::Multiply: 160! CHECK-NEXT: Format: 161! CHECK-NEXT: FunctionReference: 162! CHECK-NEXT: FunctionStmt: 163! CHECK-NEXT: FunctionSubprogram: 164! CHECK-NEXT: ImplicitPartStmt: 165! CHECK-NEXT: ImplicitStmt: 166! CHECK-NEXT: InternalSubprogramPart: 167! CHECK-NEXT: MainProgram: 168! CHECK-NEXT: OutputItem: 169! CHECK-NEXT: PrefixSpec: 170! CHECK-NEXT: PrintStmt: 171! CHECK-NEXT: Program: 172! CHECK-NEXT: ProgramStmt: 173! CHECK-NEXT: ProgramUnit: 174! CHECK-NEXT: SubroutineStmt: 175! CHECK-NEXT: SubroutineSubprogram: 176! CHECK-NEXT: Variable: 177