[flang] Perform default value initialization on abstract type if needed

[clementval]

Summary

Abstract derived-type components can have default value so perform
the default value initialization if necessary.

type, abstract :: a
  integer :: b = 10
end type

type, extends(a) :: b
  integer :: d
end type

[klausler]

Thanks for digging into the type table construction code and figuring this bug out.

flang/lib/Semantics/runtime-type-info.cpp

616–617

The parentheses around the conjunction are no longer required.

[clementval]

Remove extra parentheses

flang/lib/Semantics/runtime-type-info.cpp

AddValue(dtValues, derivedTypeSchema_, "specialbitset"s,
         IntExpr<4>(specialBitSet));
     // Note the presence/absence of a parent component
     AddValue(dtValues, derivedTypeSchema_, "hasparent"s,
         IntExpr<1>(dtScope.GetDerivedTypeParent() != nullptr));
     // To avoid wasting run time attempting to initialize derived type
     // instances without any initialized components, analyze the type
     // and set a flag if there's nothing to do for it at run time.
     AddValue(dtValues, derivedTypeSchema_, "noinitializationneeded"s,
-        IntExpr<1>(isAbstractType ||
-            (derivedTypeSpec && !derivedTypeSpec->HasDefaultInitialization())));
+        IntExpr<1>(
+            derivedTypeSpec && !derivedTypeSpec->HasDefaultInitialization()));
     // Similarly, a flag to short-circuit destruction when not needed.
     AddValue(dtValues, derivedTypeSchema_, "nodestructionneeded"s,
         IntExpr<1>(isAbstractType ||
             (derivedTypeSpec && !derivedTypeSpec->HasDestruction())));
     // Similarly, a flag to short-circuit finalization when not needed.
     AddValue(dtValues, derivedTypeSchema_, "nofinalizationneeded"s,
         IntExpr<1>(isAbstractType ||
             (derivedTypeSpec && !IsFinalizable(*derivedTypeSpec))));