Lines Matching refs:AsFortran
36 llvm::raw_ostream &ConstantBase<RESULT, VALUE>::AsFortran( in AsFortran() function in Fortran::evaluate::ConstantBase
42 o << '[' << GetType().AsFortran() << "::"; in AsFortran()
55 value.AsFortran(o, Result::kind); in AsFortran()
68 StructureConstructor{result_.derivedTypeSpec(), value}.AsFortran(o); in AsFortran()
79 llvm::raw_ostream &Constant<Type<TypeCategory::Character, KIND>>::AsFortran( in AsFortran() function in Fortran::evaluate::Constant::Character
85 o << '[' << GetType().AsFortran(std::to_string(length_)) << "::"; in AsFortran()
105 llvm::raw_ostream &ActualArgument::AssumedType::AsFortran( in AsFortran() function in Fortran::evaluate::ActualArgument::AssumedType
110 llvm::raw_ostream &ActualArgument::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::ActualArgument
117 expr.value().AsFortran(o); in AsFortran()
119 [&](const AssumedType &assumedType) { assumedType.AsFortran(o); }, in AsFortran()
126 llvm::raw_ostream &SpecificIntrinsic::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::SpecificIntrinsic
130 llvm::raw_ostream &ProcedureRef::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::ProcedureRef
133 arg->AsFortran(o) << '%'; in AsFortran()
137 proc_.AsFortran(o); in AsFortran()
141 arg->AsFortran(o << separator); in AsFortran()
314 return OperatorSpelling{"", AsFortran(x.logicalOperator), ""}; in SpellOperator()
318 return OperatorSpelling{"", AsFortran(x.opr), ""}; in SpellOperator()
322 llvm::raw_ostream &Operation<D, R, O...>::AsFortran( in AsFortran() function in Fortran::evaluate::Operation
330 left().AsFortran(o << '(') << ')'; in AsFortran()
332 left().AsFortran(o); in AsFortran()
338 left().AsFortran(o << '(') << ')'; in AsFortran()
340 left().AsFortran(o); in AsFortran()
345 right().AsFortran(o << '(') << ')'; in AsFortran()
347 right().AsFortran(o); in AsFortran()
354 llvm::raw_ostream &Convert<TO, FROMCAT>::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Convert
362 this->left().AsFortran(o << "achar(iachar(") << ')'; in AsFortran()
364 this->left().AsFortran(o << "int("); in AsFortran()
366 this->left().AsFortran(o << "real("); in AsFortran()
368 this->left().AsFortran(o << "cmplx("); in AsFortran()
370 this->left().AsFortran(o << "logical("); in AsFortran()
375 llvm::raw_ostream &Relational<SomeType>::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Relational
376 common::visit([&](const auto &rel) { rel.AsFortran(o); }, u); in AsFortran()
382 return expr.AsFortran(o); in EmitArray()
393 o << ',' << ImpliedDoIndex::Result::AsFortran() in EmitArray()
395 implDo.lower().AsFortran(o) << ','; in EmitArray()
396 implDo.upper().AsFortran(o) << ','; in EmitArray()
397 implDo.stride().AsFortran(o) << ')'; in EmitArray()
414 llvm::raw_ostream &ArrayConstructor<T>::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::ArrayConstructor
415 o << '[' << GetType().AsFortran() << "::"; in AsFortran()
422 ArrayConstructor<Type<TypeCategory::Character, KIND>>::AsFortran( in AsFortran() function in Fortran::evaluate::ArrayConstructor::Character
424 o << '[' << GetType().AsFortran(LEN().AsFortran()) << "::"; in AsFortran()
429 llvm::raw_ostream &ArrayConstructor<SomeDerived>::AsFortran( in AsFortran() function in Fortran::evaluate::ArrayConstructor
431 o << '[' << GetType().AsFortran() << "::"; in AsFortran()
437 std::string ExpressionBase<RESULT>::AsFortran() const { in AsFortran() function in Fortran::evaluate::ExpressionBase
440 AsFortran(ss); in AsFortran()
445 llvm::raw_ostream &ExpressionBase<RESULT>::AsFortran( in AsFortran() function in Fortran::evaluate::ExpressionBase
453 s.value().AsFortran(o); in AsFortran()
456 [&](const auto &x) { x.AsFortran(o); }, in AsFortran()
462 llvm::raw_ostream &StructureConstructor::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::StructureConstructor
469 value.value().AsFortran(o << ch << symbol->name().ToString() << '='); in AsFortran()
476 std::string DynamicType::AsFortran() const { in AsFortran() function in Fortran::evaluate::DynamicType
489 result += length->AsFortran(); in AsFortran()
504 std::string DynamicType::AsFortran(std::string &&charLenExpr) const { in AsFortran() function in Fortran::evaluate::DynamicType
509 return AsFortran(); in AsFortran()
513 std::string SomeDerived::AsFortran() const { in AsFortran() function in Fortran::evaluate::SomeDerived
534 value.GetExplicit()->AsFortran(ss); in DerivedTypeSpecAsFortran()
561 return x.AsFortran(o); in EmitVar()
615 llvm::raw_ostream &BaseObject::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::BaseObject
619 llvm::raw_ostream &TypeParamInquiry::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::TypeParamInquiry
621 base_.value().AsFortran(o) << '%'; in AsFortran()
626 llvm::raw_ostream &Component::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Component
627 base_.value().AsFortran(o); in AsFortran()
631 llvm::raw_ostream &NamedEntity::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::NamedEntity
634 [&](const Component &c) { c.AsFortran(o); }, in AsFortran()
640 llvm::raw_ostream &Triplet::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Triplet
647 llvm::raw_ostream &Subscript::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Subscript
651 llvm::raw_ostream &ArrayRef::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::ArrayRef
652 base_.AsFortran(o); in AsFortran()
655 ss.AsFortran(o << separator); in AsFortran()
661 llvm::raw_ostream &CoarrayRef::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::CoarrayRef
695 llvm::raw_ostream &DataRef::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::DataRef
699 llvm::raw_ostream &Substring::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Substring
705 llvm::raw_ostream &ComplexPart::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::ComplexPart
706 return complex_.AsFortran(o) << '%' << EnumToString(part_); in AsFortran()
709 llvm::raw_ostream &ProcedureDesignator::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::ProcedureDesignator
714 llvm::raw_ostream &Designator<T>::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Designator
717 [&](const auto &x) { x.AsFortran(o); }, in AsFortran()
723 llvm::raw_ostream &DescriptorInquiry::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::DescriptorInquiry
741 base_.AsFortran(o); in AsFortran()
754 llvm::raw_ostream &Assignment::AsFortran(llvm::raw_ostream &o) const { in AsFortran() function in Fortran::evaluate::Assignment
758 rhs.AsFortran(lhs.AsFortran(o) << '='); in AsFortran()
760 [&](const ProcedureRef &proc) { proc.AsFortran(o << "CALL "); }, in AsFortran()
762 lhs.AsFortran(o); in AsFortran()
766 bound.AsFortran(o << sep) << ':'; in AsFortran()
771 rhs.AsFortran(o << " => "); in AsFortran()
774 lhs.AsFortran(o); in AsFortran()
778 bound.first.AsFortran(o << sep) << ':'; in AsFortran()
779 bound.second.AsFortran(o); in AsFortran()
784 rhs.AsFortran(o << " => "); in AsFortran()