1552   SimpleTypeKind STK = SimpleTypeKind::None;  in lowerTypeBasic()  local
1559     case 1:  STK = SimpleTypeKind::Boolean8;   break;  in lowerTypeBasic()
1560     case 2:  STK = SimpleTypeKind::Boolean16;  break;  in lowerTypeBasic()
1561     case 4:  STK = SimpleTypeKind::Boolean32;  break;  in lowerTypeBasic()
1562     case 8:  STK = SimpleTypeKind::Boolean64;  break;  in lowerTypeBasic()
1563     case 16: STK = SimpleTypeKind::Boolean128; break;  in lowerTypeBasic()
1568     case 2:  STK = SimpleTypeKind::Complex16;  break;  in lowerTypeBasic()
1569     case 4:  STK = SimpleTypeKind::Complex32;  break;  in lowerTypeBasic()
1570     case 8:  STK = SimpleTypeKind::Complex64;  break;  in lowerTypeBasic()
1571     case 10: STK = SimpleTypeKind::Complex80;  break;  in lowerTypeBasic()
1572     case 16: STK = SimpleTypeKind::Complex128; break;  in lowerTypeBasic()
1577     case 2:  STK = SimpleTypeKind::Float16;  break;  in lowerTypeBasic()
1578     case 4:  STK = SimpleTypeKind::Float32;  break;  in lowerTypeBasic()
1579     case 6:  STK = SimpleTypeKind::Float48;  break;  in lowerTypeBasic()
1580     case 8:  STK = SimpleTypeKind::Float64;  break;  in lowerTypeBasic()
1581     case 10: STK = SimpleTypeKind::Float80;  break;  in lowerTypeBasic()
1582     case 16: STK = SimpleTypeKind::Float128; break;  in lowerTypeBasic()
1587     case 1:  STK = SimpleTypeKind::SignedCharacter; break;  in lowerTypeBasic()
1588     case 2:  STK = SimpleTypeKind::Int16Short;      break;  in lowerTypeBasic()
1589     case 4:  STK = SimpleTypeKind::Int32;           break;  in lowerTypeBasic()
1590     case 8:  STK = SimpleTypeKind::Int64Quad;       break;  in lowerTypeBasic()
1591     case 16: STK = SimpleTypeKind::Int128Oct;       break;  in lowerTypeBasic()
1596     case 1:  STK = SimpleTypeKind::UnsignedCharacter; break;  in lowerTypeBasic()
1597     case 2:  STK = SimpleTypeKind::UInt16Short;       break;  in lowerTypeBasic()
1598     case 4:  STK = SimpleTypeKind::UInt32;            break;  in lowerTypeBasic()
1599     case 8:  STK = SimpleTypeKind::UInt64Quad;        break;  in lowerTypeBasic()
1600     case 16: STK = SimpleTypeKind::UInt128Oct;        break;  in lowerTypeBasic()
1605     case 2: STK = SimpleTypeKind::Character16; break;  in lowerTypeBasic()
1606     case 4: STK = SimpleTypeKind::Character32; break;  in lowerTypeBasic()
1611       STK = SimpleTypeKind::SignedCharacter;  in lowerTypeBasic()
1615       STK = SimpleTypeKind::UnsignedCharacter;  in lowerTypeBasic()
1622   if (STK == SimpleTypeKind::Int32 && Ty->getName() == "long int")  in lowerTypeBasic()
1623     STK = SimpleTypeKind::Int32Long;  in lowerTypeBasic()
1624   if (STK == SimpleTypeKind::UInt32 && Ty->getName() == "long unsigned int")  in lowerTypeBasic()
1625     STK = SimpleTypeKind::UInt32Long;  in lowerTypeBasic()
1626   if (STK == SimpleTypeKind::UInt16Short &&  in lowerTypeBasic()
1628     STK = SimpleTypeKind::WideCharacter;  in lowerTypeBasic()
1629   if ((STK == SimpleTypeKind::SignedCharacter ||  in lowerTypeBasic()
1630        STK == SimpleTypeKind::UnsignedCharacter) &&  in lowerTypeBasic()
1632     STK = SimpleTypeKind::NarrowCharacter;  in lowerTypeBasic()
1634   return TypeIndex(STK);  in lowerTypeBasic()