Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/elab1.ads @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
package elab1 is -- the forward declaration is the trigger type Stream; type Stream_Ptr is access Stream; type Stream is array (Positive range <>) of Character; function Get_Size (S : Stream_Ptr) return Natural; type Rec (Size : Natural) is record B : Boolean; end record; My_Desc : constant Stream_Ptr := new Stream'(1 => ' '); My_Size : constant Natural := Get_Size (My_Desc); subtype My_Rec is Rec (My_Size); end;