Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/equal7_pkg.ads @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with Ada.Finalization; use Ada.Finalization; package Equal7_Pkg is type Editor_Location is abstract new Controlled with null record; Nil_Editor_Location : constant Editor_Location'Class; function F (X : Integer) return Unbounded_String; function F (X : Integer) return String; private type Dummy_Editor_Location is new Editor_Location with null record; Nil_Editor_Location : constant Editor_Location'Class := Dummy_Editor_Location'(Controlled with null record); end;