diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 364466b6b6fcc5f948788593ee2022f8507e5b06..891ac3ff8076b25f25d2c2526aa5b25a1f816f65 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2019-07-11  Segher Boessenkool  <segher@kernel.crashing.org>
+
+	* config/rs6000/rs6000-logue.c (rs6000_output_function_epilogue):
+	Handle Modula-2.
+
 2019-07-11  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/91124
diff --git a/gcc/config/rs6000/rs6000-logue.c b/gcc/config/rs6000/rs6000-logue.c
index acc11df0f2d1909322f4b2b044773928885b6fed..c1948e3c31b8f2e0534bf297f9c45d8ee7603ae3 100644
--- a/gcc/config/rs6000/rs6000-logue.c
+++ b/gcc/config/rs6000/rs6000-logue.c
@@ -5252,6 +5252,8 @@ rs6000_output_function_epilogue (FILE *file)
 	i = 1;
       else if (! strcmp (language_string, "GNU Ada"))
 	i = 3;
+      else if (! strcmp (language_string, "GNU Modula-2"))
+	i = 8;
       else if (lang_GNU_CXX ()
 	       || ! strcmp (language_string, "GNU Objective-C++"))
 	i = 9;