26class IntrinsicTypeDefaultKinds {
28 IntrinsicTypeDefaultKinds();
29 int subscriptIntegerKind()
const {
return subscriptIntegerKind_; }
30 int sizeIntegerKind()
const {
return sizeIntegerKind_; }
31 int doublePrecisionKind()
const {
return doublePrecisionKind_; }
32 int quadPrecisionKind()
const {
return quadPrecisionKind_; }
34 IntrinsicTypeDefaultKinds &set_defaultIntegerKind(
int);
35 IntrinsicTypeDefaultKinds &set_subscriptIntegerKind(
int);
36 IntrinsicTypeDefaultKinds &set_sizeIntegerKind(
int);
37 IntrinsicTypeDefaultKinds &set_defaultRealKind(
int);
38 IntrinsicTypeDefaultKinds &set_doublePrecisionKind(
int);
39 IntrinsicTypeDefaultKinds &set_quadPrecisionKind(
int);
40 IntrinsicTypeDefaultKinds &set_defaultCharacterKind(
int);
41 IntrinsicTypeDefaultKinds &set_defaultLogicalKind(
int);
43 int GetDefaultKind(TypeCategory)
const;
51 int defaultIntegerKind_{4};
52 int subscriptIntegerKind_{8};
53 int sizeIntegerKind_{4};
54 int defaultRealKind_{defaultIntegerKind_};
55 int doublePrecisionKind_{2 * defaultRealKind_};
56 int quadPrecisionKind_{2 * doublePrecisionKind_};
57 int defaultCharacterKind_{1};
58 int defaultLogicalKind_{defaultIntegerKind_};