1812   SimpleTypeKind STK = SimpleTypeKind::None;  in lowerTypeBasic()  local
1819     case 1:  STK = SimpleTypeKind::Boolean8;   break;  in lowerTypeBasic()
1820     case 2:  STK = SimpleTypeKind::Boolean16;  break;  in lowerTypeBasic()
1821     case 4:  STK = SimpleTypeKind::Boolean32;  break;  in lowerTypeBasic()
1822     case 8:  STK = SimpleTypeKind::Boolean64;  break;  in lowerTypeBasic()
1823     case 16: STK = SimpleTypeKind::Boolean128; break;  in lowerTypeBasic()
1830     case 4:  STK = SimpleTypeKind::Complex16;  break;  in lowerTypeBasic()
1831     case 8:  STK = SimpleTypeKind::Complex32;  break;  in lowerTypeBasic()
1832     case 16: STK = SimpleTypeKind::Complex64;  break;  in lowerTypeBasic()
1833     case 20: STK = SimpleTypeKind::Complex80;  break;  in lowerTypeBasic()
1834     case 32: STK = SimpleTypeKind::Complex128; break;  in lowerTypeBasic()
1839     case 2:  STK = SimpleTypeKind::Float16;  break;  in lowerTypeBasic()
1840     case 4:  STK = SimpleTypeKind::Float32;  break;  in lowerTypeBasic()
1841     case 6:  STK = SimpleTypeKind::Float48;  break;  in lowerTypeBasic()
1842     case 8:  STK = SimpleTypeKind::Float64;  break;  in lowerTypeBasic()
1843     case 10: STK = SimpleTypeKind::Float80;  break;  in lowerTypeBasic()
1844     case 16: STK = SimpleTypeKind::Float128; break;  in lowerTypeBasic()
1849     case 1:  STK = SimpleTypeKind::SignedCharacter; break;  in lowerTypeBasic()
1850     case 2:  STK = SimpleTypeKind::Int16Short;      break;  in lowerTypeBasic()
1851     case 4:  STK = SimpleTypeKind::Int32;           break;  in lowerTypeBasic()
1852     case 8:  STK = SimpleTypeKind::Int64Quad;       break;  in lowerTypeBasic()
1853     case 16: STK = SimpleTypeKind::Int128Oct;       break;  in lowerTypeBasic()
1858     case 1:  STK = SimpleTypeKind::UnsignedCharacter; break;  in lowerTypeBasic()
1859     case 2:  STK = SimpleTypeKind::UInt16Short;       break;  in lowerTypeBasic()
1860     case 4:  STK = SimpleTypeKind::UInt32;            break;  in lowerTypeBasic()
1861     case 8:  STK = SimpleTypeKind::UInt64Quad;        break;  in lowerTypeBasic()
1862     case 16: STK = SimpleTypeKind::UInt128Oct;        break;  in lowerTypeBasic()
1867     case 1: STK = SimpleTypeKind::Character8; break;  in lowerTypeBasic()
1868     case 2: STK = SimpleTypeKind::Character16; break;  in lowerTypeBasic()
1869     case 4: STK = SimpleTypeKind::Character32; break;  in lowerTypeBasic()
1874       STK = SimpleTypeKind::SignedCharacter;  in lowerTypeBasic()
1878       STK = SimpleTypeKind::UnsignedCharacter;  in lowerTypeBasic()
1888   if (STK == SimpleTypeKind::Int32 &&  in lowerTypeBasic()
1890     STK = SimpleTypeKind::Int32Long;  in lowerTypeBasic()
1891   if (STK == SimpleTypeKind::UInt32 && (Ty->getName() == "long unsigned int" ||  in lowerTypeBasic()
1893     STK = SimpleTypeKind::UInt32Long;  in lowerTypeBasic()
1894   if (STK == SimpleTypeKind::UInt16Short &&  in lowerTypeBasic()
1896     STK = SimpleTypeKind::WideCharacter;  in lowerTypeBasic()
1897   if ((STK == SimpleTypeKind::SignedCharacter ||  in lowerTypeBasic()
1898        STK == SimpleTypeKind::UnsignedCharacter) &&  in lowerTypeBasic()
1900     STK = SimpleTypeKind::NarrowCharacter;  in lowerTypeBasic()
1902   return TypeIndex(STK);  in lowerTypeBasic()