maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Hanlde COMPLEX 2/3/10 in runtime TypeCode(cat, kind) 

Type codes for COMPLEX kinds 2, 3, and 10 were added in https://reviews.llvm.org/D117336
but handling for these kinds in TypeCode(cat, kind) has not been added
yet.

Differential Revision: https://reviews.llvm.org/D121587
This commit is contained in:
Jean Perier 2022-03-15 09:23:50 +01:00
parent 252bc2b9f5
commit a69cb78242
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
flang/runtime/type-code.cpp
View File

@ -55,6 +55,12 @@ TypeCode::TypeCode(TypeCategory f, int kind) {
break;
case TypeCategory::Complex:
switch (kind) {
case 2:
raw_ = CFI_type_half_float_Complex;
break;
case 3:
raw_ = CFI_type_bfloat_Complex;
break;
case 4:
raw_ = CFI_type_float_Complex;
break;
@ -62,6 +68,8 @@ TypeCode::TypeCode(TypeCategory f, int kind) {
raw_ = CFI_type_double_Complex;
break;
case 10:
raw_ = CFI_type_extended_double_Complex;
break;
case 16:
raw_ = CFI_type_long_double_Complex;
break;