[Bug libfortran/78549] Very slow formatted internal file output

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78549

--- Comment #12 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This was for trunk.

This patch

Index: io.h
===================================================================
--- io.h        (Revision 253377)
+++ io.h        (Arbeitskopie)
@@ -773,6 +773,7 @@
 extern int newunit_alloc (void);
 internal_proto(newunit_alloc);

+extern void delete_unit (gfc_unit *);

 /* open.c */

Index: transfer.c
===================================================================
--- transfer.c  (Revision 253377)
+++ transfer.c  (Arbeitskopie)
@@ -4169,6 +4169,9 @@
          free_format (dtp);
        }
       unlock_unit (dtp->u.p.current_unit);
+
+      if (is_internal_unit (dtp))
+         delete_unit (dtp->u.p.current_unit);
     }
   library_end ();
 }
Index: unit.c
===================================================================
--- unit.c      (Revision 253377)
+++ unit.c      (Arbeitskopie)
@@ -307,7 +307,7 @@

 /* delete_unit()-- Delete a unit from a tree */

-static void
+void
 delete_unit (gfc_unit *old)
 {
   unit_root = delete_treap (old, unit_root);

helps only a little:

Each sample counts as 0.01 seconds.
  %   cumulative   self              self     total           
 time   seconds   seconds    calls  ms/call  ms/call  name    
 26.26      1.88     1.88                             delete_root
 15.78      3.01     1.13                             build_float_string
  5.24      3.39     0.38                            
formatted_transfer_scalar_write
  4.89      3.74     0.35                             _gfortrani_parse_format
  4.19      4.04     0.30                             next_format0
  4.12      4.33     0.30                             get_float_string
  3.77      4.60     0.27                             write_float_0
  2.51      4.78     0.18                             get_precision
  2.44      4.96     0.18                             data_transfer_init
  2.23      5.12     0.16                            
_gfortrani_free_format_hash_table