[flang] Fix controlSuccessor chain for select type construct

[clementval]

Summary

Represent the select type statement + type guard statement
the same way the select case statement and case statement are represented.
controlSuccessor was not correctly attributed to the next type guard stmt.

[PeteSteinfeld]

All builds and tests correctly and looks good.

[vdonaldson]

The select rank statement + select rank case statements may need the same update.

[clementval]

clang-format

flang/lib/Lower/PFTBuilder.cpp

for (auto &eval : evaluationList) {
             }
           },
           [&](const parser::SelectRankStmt &s) {
             insertConstructName(s, parentConstruct);
           },
           [&](const parser::SelectRankCaseStmt &) { eval.isNewBlock = true; },
           [&](const parser::SelectTypeStmt &s) {
             insertConstructName(s, parentConstruct);
+            lastConstructStmtEvaluation = &eval;
+          },
+          [&](const parser::TypeGuardStmt &) {
+            eval.isNewBlock = true;
+            lastConstructStmtEvaluation->controlSuccessor = &eval;
+            lastConstructStmtEvaluation = &eval;
           },
-          [&](const parser::TypeGuardStmt &) { eval.isNewBlock = true; },
 
           // Constructs - set (unstructured) construct exit targets
           [&](const parser::AssociateConstruct &) { setConstructExit(eval); },
           [&](const parser::BlockConstruct &) {
             // EndBlockStmt may have code.
             eval.constructExit = &eval.evaluationList->back();
           },
           [&](const parser::CaseConstruct &) {