--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/ada/libgnat/a-ztcoau.ads	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,53 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT RUN-TIME COMPONENTS                         --
+--                                                                          --
+--    A D A . W I D E _ W I D E _ T E X T _ I O . C O M P L E X _ A U X     --
+--                                                                          --
+--                                 S p e c                                  --
+--                                                                          --
+-- This specification is derived from the Ada Reference Manual for use with --
+-- GNAT.  In accordance with the copyright of that document, you can freely --
+-- copy and modify this specification,  provided that if you redistribute a --
+-- modified version,  any changes that you have made are clearly indicated. --
+--                                                                          --
+------------------------------------------------------------------------------
+
+--  This package contains the routines for Ada.Wide_Wide_Text_IO.Complex_IO
+--  that are shared among separate instantiations of this package. The routines
+--  in this package are identical semantically to those in Complex_IO itself,
+--  except that the generic parameter Complex has been replaced by separate
+--  real and imaginary values of type Long_Long_Float, and default parameters
+--  have been removed because they are supplied explicitly by the calls from
+--  within the generic template.
+
+package Ada.Wide_Wide_Text_IO.Complex_Aux is
+
+   procedure Get
+     (File  : File_Type;
+      ItemR : out Long_Long_Float;
+      ItemI : out Long_Long_Float;
+      Width : Field);
+
+   procedure Gets
+     (From  : String;
+      ItemR : out Long_Long_Float;
+      ItemI : out Long_Long_Float;
+      Last  : out Positive);
+
+   procedure Put
+     (File  : File_Type;
+      ItemR : Long_Long_Float;
+      ItemI : Long_Long_Float;
+      Fore  : Field;
+      Aft   : Field;
+      Exp   : Field);
+
+   procedure Puts
+     (To    : out String;
+      ItemR : Long_Long_Float;
+      ItemI : Long_Long_Float;
+      Aft   : Field;
+      Exp   : Field);
+
+end Ada.Wide_Wide_Text_IO.Complex_Aux;