1661   SimpleTypeKind STK = SimpleTypeKind::None;  in lowerTypeBasic()  local
1668     case 1:  STK = SimpleTypeKind::Boolean8;   break;  in lowerTypeBasic()
1669     case 2:  STK = SimpleTypeKind::Boolean16;  break;  in lowerTypeBasic()
1670     case 4:  STK = SimpleTypeKind::Boolean32;  break;  in lowerTypeBasic()
1671     case 8:  STK = SimpleTypeKind::Boolean64;  break;  in lowerTypeBasic()
1672     case 16: STK = SimpleTypeKind::Boolean128; break;  in lowerTypeBasic()
1677     case 2:  STK = SimpleTypeKind::Complex16;  break;  in lowerTypeBasic()
1678     case 4:  STK = SimpleTypeKind::Complex32;  break;  in lowerTypeBasic()
1679     case 8:  STK = SimpleTypeKind::Complex64;  break;  in lowerTypeBasic()
1680     case 10: STK = SimpleTypeKind::Complex80;  break;  in lowerTypeBasic()
1681     case 16: STK = SimpleTypeKind::Complex128; break;  in lowerTypeBasic()
1686     case 2:  STK = SimpleTypeKind::Float16;  break;  in lowerTypeBasic()
1687     case 4:  STK = SimpleTypeKind::Float32;  break;  in lowerTypeBasic()
1688     case 6:  STK = SimpleTypeKind::Float48;  break;  in lowerTypeBasic()
1689     case 8:  STK = SimpleTypeKind::Float64;  break;  in lowerTypeBasic()
1690     case 10: STK = SimpleTypeKind::Float80;  break;  in lowerTypeBasic()
1691     case 16: STK = SimpleTypeKind::Float128; break;  in lowerTypeBasic()
1696     case 1:  STK = SimpleTypeKind::SignedCharacter; break;  in lowerTypeBasic()
1697     case 2:  STK = SimpleTypeKind::Int16Short;      break;  in lowerTypeBasic()
1698     case 4:  STK = SimpleTypeKind::Int32;           break;  in lowerTypeBasic()
1699     case 8:  STK = SimpleTypeKind::Int64Quad;       break;  in lowerTypeBasic()
1700     case 16: STK = SimpleTypeKind::Int128Oct;       break;  in lowerTypeBasic()
1705     case 1:  STK = SimpleTypeKind::UnsignedCharacter; break;  in lowerTypeBasic()
1706     case 2:  STK = SimpleTypeKind::UInt16Short;       break;  in lowerTypeBasic()
1707     case 4:  STK = SimpleTypeKind::UInt32;            break;  in lowerTypeBasic()
1708     case 8:  STK = SimpleTypeKind::UInt64Quad;        break;  in lowerTypeBasic()
1709     case 16: STK = SimpleTypeKind::UInt128Oct;        break;  in lowerTypeBasic()
1714     case 2: STK = SimpleTypeKind::Character16; break;  in lowerTypeBasic()
1715     case 4: STK = SimpleTypeKind::Character32; break;  in lowerTypeBasic()
1720       STK = SimpleTypeKind::SignedCharacter;  in lowerTypeBasic()
1724       STK = SimpleTypeKind::UnsignedCharacter;  in lowerTypeBasic()
1731   if (STK == SimpleTypeKind::Int32 && Ty->getName() == "long int")  in lowerTypeBasic()
1732     STK = SimpleTypeKind::Int32Long;  in lowerTypeBasic()
1733   if (STK == SimpleTypeKind::UInt32 && Ty->getName() == "long unsigned int")  in lowerTypeBasic()
1734     STK = SimpleTypeKind::UInt32Long;  in lowerTypeBasic()
1735   if (STK == SimpleTypeKind::UInt16Short &&  in lowerTypeBasic()
1737     STK = SimpleTypeKind::WideCharacter;  in lowerTypeBasic()
1738   if ((STK == SimpleTypeKind::SignedCharacter ||  in lowerTypeBasic()
1739        STK == SimpleTypeKind::UnsignedCharacter) &&  in lowerTypeBasic()
1741     STK = SimpleTypeKind::NarrowCharacter;  in lowerTypeBasic()
1743   return TypeIndex(STK);  in lowerTypeBasic()