Changes in select-case-statement.f90

a560eea8 - [Flang] Set constructExit for Where and Forall constructs

Fri, 15 Jul 2022 19:32:36 +0000

[Flang] Set constructExit for Where and Forall constructsEvaluations for the Where and Forall constructs previously didnot have their constructExit field fixed up. This could lead tofalling through to subsequent case blocks in select casestatements if either a Where or Forall construct was the final partof one case block. Setting the constructExit field results in theproper branching behavior.Fixes issue: https://github.com/llvm/llvm-project/issues/56500Differential Revision: https://reviews.llvm.org/D129879Change-Id: Ia868df12084520a935f087524e118bcdf47f6d7a List of files: /llvm-project-15.0.7/flang/test/Lower/select-case-statement.f90

1e55ec66 - [flang] SELECT CASE constructs with character selectors that require a temp

Thu, 30 Jun 2022 07:03:49 +0000

[flang] SELECT CASE constructs with character selectors that require a tempHere is a character SELECT CASE construct that requires a temp to hold theresult of the TRIM intrinsic call:```module m character(len=6) :: s contains subroutine sc n = 0 if (lge(s,'00')) then select case(trim(s)) case('11') n = 1 case default continue case('22') n = 2 case('33') n = 3 case('44':'55','66':'77','88':) n = 4 end select end if print*, n end subroutine end module m```This SELECT CASE construct is implemented as an IF/ELSE-IF/ELSE comparisonsequence. The temp must be retained until some comparison is successful.At that point the temp may be freed. Generalize statement context processingto allow multiple finalize calls to do this, such that the program alwaysexecutes exactly one freemem call.This patch is part of the upstreaming effort from fir-dev branch.Reviewed By: klausler, vdonaldsonDifferential Revision: https://reviews.llvm.org/D128852Co-authored-by: V Donaldson List of files: /llvm-project-15.0.7/flang/test/Lower/select-case-statement.f90

308fc3f2 - [flang] Lower select case statement

Fri, 18 Mar 2022 14:39:57 +0000

[flang] Lower select case statementThis patch adds lowering for the `select case`statement.This patch is part of the upstreaming effort from fir-dev branch.Reviewed By: jeanPerierDifferential Revision: https://reviews.llvm.org/D122007Co-authored-by: Jean Perier Co-authored-by: Eric Schweitz Co-authored-by: V Donaldson List of files: /llvm-project-15.0.7/flang/test/Lower/select-case-statement.f90