[flang] The default kind of complex is the same as that of real.
authorTim Keith <tkeith@nvidia.com>
Wed, 12 Sep 2018 18:37:29 +0000 (11:37 -0700)
committerTim Keith <tkeith@nvidia.com>
Wed, 12 Sep 2018 18:37:29 +0000 (11:37 -0700)
Original-commit: flang-compiler/f18@16080c06746194c9e51daf14ae649342d4c0683a
Reviewed-on: https://github.com/flang-compiler/f18/pull/182

flang/lib/semantics/type.cc

index 0ffc623b7ce06565c4f53a00f9c9e5c5825e3f50..820c4c7d5235d066f7a521f96a06de1d1c8156df 100644 (file)
@@ -87,10 +87,9 @@ IntrinsicTypeSpec::IntrinsicTypeSpec(TypeCategory category, int kind)
 int IntrinsicTypeSpec::GetDefaultKind(TypeCategory category) {
   switch (category) {
   case TypeCategory::Character: return evaluate::DefaultCharacter::kind;
-  //case TypeCategory::Complex: return evaluate::DefaultComplex::kind;
-  case TypeCategory::Complex: return 4;  // TEMP to work around bug
   case TypeCategory::Integer: return evaluate::DefaultInteger::kind;
   case TypeCategory::Logical: return evaluate::DefaultLogical::kind;
+  case TypeCategory::Complex:
   case TypeCategory::Real: return evaluate::DefaultReal::kind;
   default: CRASH_NO_CASE;
   }