Home
last modified time | relevance | path

Searched refs:IntrinsicTypeSpec (Results 1 – 16 of 16) sorted by relevance

/llvm-project-15.0.7/flang/include/flang/Semantics/
H A Dtype.h125 class IntrinsicTypeSpec {
129 bool operator==(const IntrinsicTypeSpec &x) const {
136 IntrinsicTypeSpec(TypeCategory, KindExpr &&);
142 llvm::raw_ostream &os, const IntrinsicTypeSpec &x);
145 class NumericTypeSpec : public IntrinsicTypeSpec {
148 : IntrinsicTypeSpec(category, std::move(kind)) { in NumericTypeSpec()
153 class LogicalTypeSpec : public IntrinsicTypeSpec {
159 class CharacterTypeSpec : public IntrinsicTypeSpec {
378 inline IntrinsicTypeSpec *AsIntrinsic();
379 inline const IntrinsicTypeSpec *AsIntrinsic() const;
[all …]
/llvm-project-15.0.7/flang/lib/Parser/
H A DFortran-parsers.cpp202 first(construct<IntrinsicTypeSpec>(integerTypeSpec),
203 construct<IntrinsicTypeSpec>(
205 construct<IntrinsicTypeSpec>("DOUBLE PRECISION" >>
207 construct<IntrinsicTypeSpec>(construct<IntrinsicTypeSpec::Complex>(
209 construct<IntrinsicTypeSpec>(construct<IntrinsicTypeSpec::Character>(
211 construct<IntrinsicTypeSpec>(construct<IntrinsicTypeSpec::Logical>(
961 construct<IntrinsicTypeSpec>(
963 construct<IntrinsicTypeSpec>(
965 construct<IntrinsicTypeSpec>(
967 construct<IntrinsicTypeSpec>(construct<IntrinsicTypeSpec::Character>(
[all …]
H A Dtype-parsers.h57 constexpr Parser<IntrinsicTypeSpec> intrinsicTypeSpec; // R704
H A Dunparse.cpp152 void Before(const IntrinsicTypeSpec::Real &) { // R704 in Before()
155 void Before(const IntrinsicTypeSpec::Complex &) { Word("COMPLEX"); } in Before()
156 void Post(const IntrinsicTypeSpec::DoublePrecision &) { in Post()
159 void Before(const IntrinsicTypeSpec::Character &) { Word("CHARACTER"); } in Before()
160 void Before(const IntrinsicTypeSpec::Logical &) { Word("LOGICAL"); } in Before()
161 void Post(const IntrinsicTypeSpec::DoubleComplex &) { in Post()
483 return !std::holds_alternative<IntrinsicTypeSpec>(dts.u); in Unparse()
/llvm-project-15.0.7/flang/lib/Semantics/
H A Dresolve-names-utils.h130 bool IsDefaultKindNumericType(const IntrinsicTypeSpec &);
134 const DeclTypeSpec *, std::function<bool(const IntrinsicTypeSpec &)>);
H A Dcheck-allocate.cpp274 if (const IntrinsicTypeSpec * intrinsicType2{type2.AsIntrinsic()}) { in IsTypeCompatible()
275 if (const IntrinsicTypeSpec * intrinsicType1{type1.AsIntrinsic()}) { in IsTypeCompatible()
294 if (const IntrinsicTypeSpec * intrinsicType1{type1.AsIntrinsic()}) { in IsTypeCompatible()
380 if (const IntrinsicTypeSpec * intrinsicType1{type1.AsIntrinsic()}) { in HaveCompatibleKindParameters()
397 if (const IntrinsicTypeSpec * intrinsicType1{type1.AsIntrinsic()}) { in HaveCompatibleKindParameters()
H A Dresolve-names-utils.cpp683 return IsSequenceType(type, [&](const IntrinsicTypeSpec &type) { in IsCharacterSequenceType()
691 bool EquivalenceSets::IsDefaultKindNumericType(const IntrinsicTypeSpec &type) { in IsDefaultKindNumericType()
709 return IsSequenceType(type, [&](const IntrinsicTypeSpec &type) { in IsDefaultNumericSequenceType()
715 return IsSequenceType(type, [&](const IntrinsicTypeSpec &type) { in IsAnyNumericSequenceType()
724 std::function<bool(const IntrinsicTypeSpec &)> predicate) { in IsSequenceType()
727 } else if (const IntrinsicTypeSpec * intrinsic{type->AsIntrinsic()}) { in IsSequenceType()
H A Dtype.cpp511 const IntrinsicTypeSpec &intrinsic{DEREF(spec.AsIntrinsic())}; in InstantiateIntrinsicType()
686 IntrinsicTypeSpec::IntrinsicTypeSpec(TypeCategory category, KindExpr &&kind) in IntrinsicTypeSpec() function in Fortran::semantics::IntrinsicTypeSpec
702 std::string IntrinsicTypeSpec::AsFortran() const { in AsFortran()
708 llvm::raw_ostream &os, const IntrinsicTypeSpec &x) { in operator <<()
H A Dcompute-offsets.cpp287 if (const IntrinsicTypeSpec * intrinsic{type->AsIntrinsic()}) { in ComputeOffset()
H A Dresolve-names.cpp317 void Post(const parser::IntrinsicTypeSpec::DoublePrecision &);
318 void Post(const parser::IntrinsicTypeSpec::DoubleComplex &);
898 void Post(const parser::IntrinsicTypeSpec::Real &);
899 void Post(const parser::IntrinsicTypeSpec::Complex &);
900 void Post(const parser::IntrinsicTypeSpec::Logical &);
901 void Post(const parser::IntrinsicTypeSpec::Character &);
1820 const parser::IntrinsicTypeSpec::DoublePrecision &) { in Post()
1824 const parser::IntrinsicTypeSpec::DoubleComplex &) { in Post()
4304 void DeclarationVisitor::Post(const parser::IntrinsicTypeSpec::Real &x) { in Post()
4307 void DeclarationVisitor::Post(const parser::IntrinsicTypeSpec::Complex &x) { in Post()
[all …]
H A Dexpression.cpp71 if (const semantics::IntrinsicTypeSpec * in AnalyzeTypeSpec()
/llvm-project-15.0.7/flang/tools/f18/
H A Ddump.cpp37 DEFINE_DUMP(semantics, IntrinsicTypeSpec)
/llvm-project-15.0.7/flang/include/flang/Parser/
H A Dparse-tree-visitor.h404 void Walk(const IntrinsicTypeSpec::Character &x, V &visitor) { in Walk()
410 template <typename M> void Walk(IntrinsicTypeSpec::Character &x, M &mutator) { in Walk()
417 void Walk(const IntrinsicTypeSpec::Complex &x, V &visitor) { in Walk()
423 template <typename M> void Walk(IntrinsicTypeSpec::Complex &x, M &mutator) { in Walk()
430 void Walk(const IntrinsicTypeSpec::Logical &x, V &visitor) { in Walk()
436 template <typename M> void Walk(IntrinsicTypeSpec::Logical &x, M &mutator) { in Walk()
442 template <typename V> void Walk(const IntrinsicTypeSpec::Real &x, V &visitor) { in Walk()
448 template <typename M> void Walk(IntrinsicTypeSpec::Real &x, M &mutator) { in Walk()
H A Ddump-parse-tree.h392 NODE(parser, IntrinsicTypeSpec) in NODE()
393 NODE(IntrinsicTypeSpec, Character) in NODE()
394 NODE(IntrinsicTypeSpec, Complex) in NODE()
395 NODE(IntrinsicTypeSpec, DoubleComplex) in NODE()
396 NODE(IntrinsicTypeSpec, DoublePrecision) in NODE()
397 NODE(IntrinsicTypeSpec, Logical) in NODE()
398 NODE(IntrinsicTypeSpec, Real) in NODE()
H A Dparse-tree.h680 struct IntrinsicTypeSpec { struct
681 UNION_CLASS_BOILERPLATE(IntrinsicTypeSpec);
726 std::variant<IntrinsicTypeSpec, DerivedTypeSpec> u; argument
749 std::variant<IntrinsicTypeSpec, Type, Class, ClassStar, TypeStar, Record> u;
/llvm-project-15.0.7/flang/lib/Lower/
H A DConvertType.cpp230 if (const Fortran::semantics::IntrinsicTypeSpec *tySpec = in genSymbolType()