diff --git a/include/abg-ir.h b/include/abg-ir.h
index 81147144..7ed97987 100644
--- a/include/abg-ir.h
+++ b/include/abg-ir.h
@@ -657,7 +657,7 @@ public:
     LANG_Pascal83,
     LANG_Modula2,
     LANG_Java,
-    LANG_PL1,
+    LANG_PLI,
     LANG_UPC,
     LANG_D,
     LANG_Python,
diff --git a/src/abg-dwarf-reader.cc b/src/abg-dwarf-reader.cc
index 1d6ad24c..daecaf79 100644
--- a/src/abg-dwarf-reader.cc
+++ b/src/abg-dwarf-reader.cc
@@ -11053,8 +11053,8 @@ dwarf_language_to_tu_language(size_t l)
       return translation_unit::LANG_Ada95;
     case DW_LANG_Fortran95:
       return translation_unit::LANG_Fortran95;
-    case DW_LANG_PL1:
-      return translation_unit::LANG_PL1;
+    case DW_LANG_PLI:
+      return translation_unit::LANG_PLI;
     case DW_LANG_ObjC:
       return translation_unit::LANG_ObjC;
     case DW_LANG_ObjC_plus_plus:
@@ -11160,7 +11160,7 @@ get_default_array_lower_bound(translation_unit::language l)
     case translation_unit::LANG_Java:
       value = 0;
       break;
-    case translation_unit::LANG_PL1:
+    case translation_unit::LANG_PLI:
       value = 1;
       break;
     case translation_unit::LANG_UPC:
diff --git a/src/abg-ir.cc b/src/abg-ir.cc
index 4f19e07a..fabc089d 100644
--- a/src/abg-ir.cc
+++ b/src/abg-ir.cc
@@ -1467,8 +1467,8 @@ translation_unit_language_to_string(translation_unit::language l)
       return "LANG_Modula2";
     case translation_unit::LANG_Java:
       return "LANG_Java";
-    case translation_unit::LANG_PL1:
-      return "LANG_PL1";
+    case translation_unit::LANG_PLI:
+      return "LANG_PLI";
     case translation_unit::LANG_UPC:
       return "LANG_UPC";
     case translation_unit::LANG_D:
@@ -1533,8 +1533,8 @@ string_to_translation_unit_language(const string& l)
     return translation_unit::LANG_Modula2;
   else if (l == "LANG_Java")
     return translation_unit::LANG_Java;
-  else if (l == "LANG_PL1")
-    return translation_unit::LANG_PL1;
+  else if (l == "LANG_PLI")
+    return translation_unit::LANG_PLI;
   else if (l == "LANG_UPC")
     return translation_unit::LANG_UPC;
   else if (l == "LANG_D")