view gcc/ada/libgnat/a-scteio.ads @ 144:8f4e72ab4e11

fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children
line wrap: on
line source

------------------------------------------------------------------------------
--                                                                          --
--                         GNAT RUN-TIME COMPONENTS                         --
--                                                                          --
--             A D A . S H O R T _ C O M P L E X _ T E X T _ I O            --
--                                                                          --
--                                 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. --
--                                                                          --
------------------------------------------------------------------------------

--  Ada 2005 AI-328

with Ada.Text_IO.Complex_IO;
with Ada.Numerics.Short_Complex_Types;

pragma Elaborate_All (Ada.Text_IO.Complex_IO);

package Ada.Short_Complex_Text_IO is
  new Ada.Text_IO.Complex_IO (Ada.Numerics.Short_Complex_Types);