diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc
index d0601e0c6c4..2796b7facdb 100644
--- a/gcc/cobol/gengen.cc
+++ b/gcc/cobol/gengen.cc
@@ -102,6 +102,7 @@
 #include "cbldiag.h"
 #include "symbols.h"
 #include "gengen.h"
+#include "dumpfile.h"
 
 // We are limiting the programmer to functions with 512 or fewer arguments.
 // Don't like it?  Cry me a river.
@@ -2926,6 +2927,8 @@ gg_finalize_function()
     cgraph_node::finalize_function (current_function->function_decl, true);
     }
 
+  dump_function (TDI_original, current_function->function_decl);
+
   if( gg_trans_unit.function_stack.back().context_count )
     {
     cbl_internal_error("Residual context count!");