Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/parent_ltd_with-child_full_view.adb @ 140:4e440907fcbf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
copy CbC goto flang in cfgexpand remove some CbC unnecessary code
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 14 Nov 2018 00:24:45 +0900
parents 04ced10e8804
children
line wrap: on
line source

--  { dg-do compile }

package body Parent_Ltd_With.Child_Full_View is
   
   function New_Child_Symbol return Child_Symbol_Access is
      Sym : constant Child_Symbol_Access := new Child_Symbol'(Comp => 10);
   
   begin
      return Sym;
   end New_Child_Symbol;

end Parent_Ltd_With.Child_Full_View;