1762   SimpleTypeKind STK = SimpleTypeKind::None;  in lowerTypeBasic()  local
1769     case 1:  STK = SimpleTypeKind::Boolean8;   break;  in lowerTypeBasic()
1770     case 2:  STK = SimpleTypeKind::Boolean16;  break;  in lowerTypeBasic()
1771     case 4:  STK = SimpleTypeKind::Boolean32;  break;  in lowerTypeBasic()
1772     case 8:  STK = SimpleTypeKind::Boolean64;  break;  in lowerTypeBasic()
1773     case 16: STK = SimpleTypeKind::Boolean128; break;  in lowerTypeBasic()
1778     case 2:  STK = SimpleTypeKind::Complex16;  break;  in lowerTypeBasic()
1779     case 4:  STK = SimpleTypeKind::Complex32;  break;  in lowerTypeBasic()
1780     case 8:  STK = SimpleTypeKind::Complex64;  break;  in lowerTypeBasic()
1781     case 10: STK = SimpleTypeKind::Complex80;  break;  in lowerTypeBasic()
1782     case 16: STK = SimpleTypeKind::Complex128; break;  in lowerTypeBasic()
1787     case 2:  STK = SimpleTypeKind::Float16;  break;  in lowerTypeBasic()
1788     case 4:  STK = SimpleTypeKind::Float32;  break;  in lowerTypeBasic()
1789     case 6:  STK = SimpleTypeKind::Float48;  break;  in lowerTypeBasic()
1790     case 8:  STK = SimpleTypeKind::Float64;  break;  in lowerTypeBasic()
1791     case 10: STK = SimpleTypeKind::Float80;  break;  in lowerTypeBasic()
1792     case 16: STK = SimpleTypeKind::Float128; break;  in lowerTypeBasic()
1797     case 1:  STK = SimpleTypeKind::SignedCharacter; break;  in lowerTypeBasic()
1798     case 2:  STK = SimpleTypeKind::Int16Short;      break;  in lowerTypeBasic()
1799     case 4:  STK = SimpleTypeKind::Int32;           break;  in lowerTypeBasic()
1800     case 8:  STK = SimpleTypeKind::Int64Quad;       break;  in lowerTypeBasic()
1801     case 16: STK = SimpleTypeKind::Int128Oct;       break;  in lowerTypeBasic()
1806     case 1:  STK = SimpleTypeKind::UnsignedCharacter; break;  in lowerTypeBasic()
1807     case 2:  STK = SimpleTypeKind::UInt16Short;       break;  in lowerTypeBasic()
1808     case 4:  STK = SimpleTypeKind::UInt32;            break;  in lowerTypeBasic()
1809     case 8:  STK = SimpleTypeKind::UInt64Quad;        break;  in lowerTypeBasic()
1810     case 16: STK = SimpleTypeKind::UInt128Oct;        break;  in lowerTypeBasic()
1815     case 1: STK = SimpleTypeKind::Character8; break;  in lowerTypeBasic()
1816     case 2: STK = SimpleTypeKind::Character16; break;  in lowerTypeBasic()
1817     case 4: STK = SimpleTypeKind::Character32; break;  in lowerTypeBasic()
1822       STK = SimpleTypeKind::SignedCharacter;  in lowerTypeBasic()
1826       STK = SimpleTypeKind::UnsignedCharacter;  in lowerTypeBasic()
1836   if (STK == SimpleTypeKind::Int32 &&  in lowerTypeBasic()
1838     STK = SimpleTypeKind::Int32Long;  in lowerTypeBasic()
1839   if (STK == SimpleTypeKind::UInt32 && (Ty->getName() == "long unsigned int" ||  in lowerTypeBasic()
1841     STK = SimpleTypeKind::UInt32Long;  in lowerTypeBasic()
1842   if (STK == SimpleTypeKind::UInt16Short &&  in lowerTypeBasic()
1844     STK = SimpleTypeKind::WideCharacter;  in lowerTypeBasic()
1845   if ((STK == SimpleTypeKind::SignedCharacter ||  in lowerTypeBasic()
1846        STK == SimpleTypeKind::UnsignedCharacter) &&  in lowerTypeBasic()
1848     STK = SimpleTypeKind::NarrowCharacter;  in lowerTypeBasic()
1850   return TypeIndex(STK);  in lowerTypeBasic()