view gcc/testsuite/gnat.dg/parent_ltd_with-child_full_view.ads @ 138:fc828634a951

merge
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 08 Nov 2018 14:17:14 +0900
parents 04ced10e8804
children
line wrap: on
line source

package Parent_Ltd_With.Child_Full_View is
   
   type Child_Symbol is new Parent_Ltd_With.Symbol with private;
   type Child_Symbol_Access is access all Child_Symbol;
   
   function New_Child_Symbol return Child_Symbol_Access;

private
   
   type Child_Symbol is new Parent_Ltd_With.Symbol with null record;

end Parent_Ltd_With.Child_Full_View;