[flang][driver] Generate run-time type info

[awarzynski]

Summary

This is a small follow-up for https://reviews.llvm.org/D120051. It makes
sure that tables with "run-time type information for derived types" are
generated for code-gen action. Originally, only non-code-gen actions
were updated (i.e. actions that were fully supported at that time).

[kiranchandramohan]

LGTM.

flang/lib/Frontend/FrontendActions.cpp

if (this->getCurrentInput().getKind().getLanguage() == Language::LLVM_IR) {
     llvmModule = llvm::parseIRFile(getCurrentInput().getFile(), err, *llvmCtx);
 
     return (nullptr != llvmModule);
   }
 
   // Otherwise, generate an MLIR module from the input Fortran source
   assert(getCurrentInput().getKind().getLanguage() == Language::Fortran &&
          "Invalid input type - expecting a Fortran file");
-  bool res = runPrescan() && runParse() && runSemanticChecks();
+  bool res = runPrescan() && runParse() && runSemanticChecks() &&
+             generateRtTypeTables();
   if (!res)
     return res;
 
   CompilerInstance &ci = this->getInstance();
 
   // Load the MLIR dialects required by Flang
   mlir::DialectRegistry registry;
   mlirCtx = std::make_unique<mlir::MLIRContext>(registry);

flang/test/Lower/derived-type-descriptor.f90

 ! Test lowering of derived type descriptors builtin data
 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
+! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
 
 subroutine foo()
   real, save, target :: init_values(10, 10)
   type sometype
     integer :: num = 42
     real, pointer :: values(:, :) => init_values
   end type
   type(sometype), allocatable, save :: x(:)