diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 336c1c00de4f..8536e8befe98 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2018-11-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/78351
+	* io/transfer.c (read_sf_internal): Delete leftover
+	debug code.
+
 2018-11-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libfortran/78351
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 21bfea486404..4013b3be60ab 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -255,7 +255,6 @@ read_sf_internal (st_parameter_dt *dtp, size_t *length)
      requested length could go past the end of a comma shortened
      string.  We only do this if -std=legacy was given at compile
      time.  We also do not support this on kind=4 strings.  */
-  printf("allow_std=%d\n", compile_options.warn_std);
   if (unlikely(compile_options.warn_std == 0)) // the slow legacy way.
     {
       size_t n;