1050   SimpleTypeKind STK = SimpleTypeKind::None;  in lowerTypeBasic()  local
1057     case 1:  STK = SimpleTypeKind::Boolean8;   break;  in lowerTypeBasic()
1058     case 2:  STK = SimpleTypeKind::Boolean16;  break;  in lowerTypeBasic()
1059     case 4:  STK = SimpleTypeKind::Boolean32;  break;  in lowerTypeBasic()
1060     case 8:  STK = SimpleTypeKind::Boolean64;  break;  in lowerTypeBasic()
1061     case 16: STK = SimpleTypeKind::Boolean128; break;  in lowerTypeBasic()
1066     case 2:  STK = SimpleTypeKind::Complex16;  break;  in lowerTypeBasic()
1067     case 4:  STK = SimpleTypeKind::Complex32;  break;  in lowerTypeBasic()
1068     case 8:  STK = SimpleTypeKind::Complex64;  break;  in lowerTypeBasic()
1069     case 10: STK = SimpleTypeKind::Complex80;  break;  in lowerTypeBasic()
1070     case 16: STK = SimpleTypeKind::Complex128; break;  in lowerTypeBasic()
1075     case 2:  STK = SimpleTypeKind::Float16;  break;  in lowerTypeBasic()
1076     case 4:  STK = SimpleTypeKind::Float32;  break;  in lowerTypeBasic()
1077     case 6:  STK = SimpleTypeKind::Float48;  break;  in lowerTypeBasic()
1078     case 8:  STK = SimpleTypeKind::Float64;  break;  in lowerTypeBasic()
1079     case 10: STK = SimpleTypeKind::Float80;  break;  in lowerTypeBasic()
1080     case 16: STK = SimpleTypeKind::Float128; break;  in lowerTypeBasic()
1085     case 1:  STK = SimpleTypeKind::SByte;      break;  in lowerTypeBasic()
1086     case 2:  STK = SimpleTypeKind::Int16Short; break;  in lowerTypeBasic()
1087     case 4:  STK = SimpleTypeKind::Int32;      break;  in lowerTypeBasic()
1088     case 8:  STK = SimpleTypeKind::Int64Quad;  break;  in lowerTypeBasic()
1089     case 16: STK = SimpleTypeKind::Int128Oct;  break;  in lowerTypeBasic()
1094     case 1:  STK = SimpleTypeKind::Byte;        break;  in lowerTypeBasic()
1095     case 2:  STK = SimpleTypeKind::UInt16Short; break;  in lowerTypeBasic()
1096     case 4:  STK = SimpleTypeKind::UInt32;      break;  in lowerTypeBasic()
1097     case 8:  STK = SimpleTypeKind::UInt64Quad;  break;  in lowerTypeBasic()
1098     case 16: STK = SimpleTypeKind::UInt128Oct;  break;  in lowerTypeBasic()
1103     case 2: STK = SimpleTypeKind::Character16; break;  in lowerTypeBasic()
1104     case 4: STK = SimpleTypeKind::Character32; break;  in lowerTypeBasic()
1109       STK = SimpleTypeKind::SignedCharacter;  in lowerTypeBasic()
1113       STK = SimpleTypeKind::UnsignedCharacter;  in lowerTypeBasic()
1120   if (STK == SimpleTypeKind::Int32 && Ty->getName() == "long int")  in lowerTypeBasic()
1121     STK = SimpleTypeKind::Int32Long;  in lowerTypeBasic()
1122   if (STK == SimpleTypeKind::UInt32 && Ty->getName() == "long unsigned int")  in lowerTypeBasic()
1123     STK = SimpleTypeKind::UInt32Long;  in lowerTypeBasic()
1124   if (STK == SimpleTypeKind::UInt16Short &&  in lowerTypeBasic()
1126     STK = SimpleTypeKind::WideCharacter;  in lowerTypeBasic()
1127   if ((STK == SimpleTypeKind::SignedCharacter ||  in lowerTypeBasic()
1128        STK == SimpleTypeKind::UnsignedCharacter) &&  in lowerTypeBasic()
1130     STK = SimpleTypeKind::NarrowCharacter;  in lowerTypeBasic()
1132   return TypeIndex(STK);  in lowerTypeBasic()