1826   SimpleTypeKind STK = SimpleTypeKind::None;  in lowerTypeBasic()  local
1833     case 1:  STK = SimpleTypeKind::Boolean8;   break;  in lowerTypeBasic()
1834     case 2:  STK = SimpleTypeKind::Boolean16;  break;  in lowerTypeBasic()
1835     case 4:  STK = SimpleTypeKind::Boolean32;  break;  in lowerTypeBasic()
1836     case 8:  STK = SimpleTypeKind::Boolean64;  break;  in lowerTypeBasic()
1837     case 16: STK = SimpleTypeKind::Boolean128; break;  in lowerTypeBasic()
1844     case 4:  STK = SimpleTypeKind::Complex16;  break;  in lowerTypeBasic()
1845     case 8:  STK = SimpleTypeKind::Complex32;  break;  in lowerTypeBasic()
1846     case 16: STK = SimpleTypeKind::Complex64;  break;  in lowerTypeBasic()
1847     case 20: STK = SimpleTypeKind::Complex80;  break;  in lowerTypeBasic()
1848     case 32: STK = SimpleTypeKind::Complex128; break;  in lowerTypeBasic()
1853     case 2:  STK = SimpleTypeKind::Float16;  break;  in lowerTypeBasic()
1854     case 4:  STK = SimpleTypeKind::Float32;  break;  in lowerTypeBasic()
1855     case 6:  STK = SimpleTypeKind::Float48;  break;  in lowerTypeBasic()
1856     case 8:  STK = SimpleTypeKind::Float64;  break;  in lowerTypeBasic()
1857     case 10: STK = SimpleTypeKind::Float80;  break;  in lowerTypeBasic()
1858     case 16: STK = SimpleTypeKind::Float128; break;  in lowerTypeBasic()
1863     case 1:  STK = SimpleTypeKind::SignedCharacter; break;  in lowerTypeBasic()
1864     case 2:  STK = SimpleTypeKind::Int16Short;      break;  in lowerTypeBasic()
1865     case 4:  STK = SimpleTypeKind::Int32;           break;  in lowerTypeBasic()
1866     case 8:  STK = SimpleTypeKind::Int64Quad;       break;  in lowerTypeBasic()
1867     case 16: STK = SimpleTypeKind::Int128Oct;       break;  in lowerTypeBasic()
1872     case 1:  STK = SimpleTypeKind::UnsignedCharacter; break;  in lowerTypeBasic()
1873     case 2:  STK = SimpleTypeKind::UInt16Short;       break;  in lowerTypeBasic()
1874     case 4:  STK = SimpleTypeKind::UInt32;            break;  in lowerTypeBasic()
1875     case 8:  STK = SimpleTypeKind::UInt64Quad;        break;  in lowerTypeBasic()
1876     case 16: STK = SimpleTypeKind::UInt128Oct;        break;  in lowerTypeBasic()
1881     case 1: STK = SimpleTypeKind::Character8; break;  in lowerTypeBasic()
1882     case 2: STK = SimpleTypeKind::Character16; break;  in lowerTypeBasic()
1883     case 4: STK = SimpleTypeKind::Character32; break;  in lowerTypeBasic()
1888       STK = SimpleTypeKind::SignedCharacter;  in lowerTypeBasic()
1892       STK = SimpleTypeKind::UnsignedCharacter;  in lowerTypeBasic()
1902   if (STK == SimpleTypeKind::Int32 &&  in lowerTypeBasic()
1904     STK = SimpleTypeKind::Int32Long;  in lowerTypeBasic()
1905   if (STK == SimpleTypeKind::UInt32 && (Ty->getName() == "long unsigned int" ||  in lowerTypeBasic()
1907     STK = SimpleTypeKind::UInt32Long;  in lowerTypeBasic()
1908   if (STK == SimpleTypeKind::UInt16Short &&  in lowerTypeBasic()
1910     STK = SimpleTypeKind::WideCharacter;  in lowerTypeBasic()
1911   if ((STK == SimpleTypeKind::SignedCharacter ||  in lowerTypeBasic()
1912        STK == SimpleTypeKind::UnsignedCharacter) &&  in lowerTypeBasic()
1914     STK = SimpleTypeKind::NarrowCharacter;  in lowerTypeBasic()
1916   return TypeIndex(STK);  in lowerTypeBasic()