Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/derived_type5_pkg.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 | 84e7813d76e9 |
children |
line wrap: on
line source
package Derived_Type5_Pkg is type T_Unsigned8 is new Natural range 0 .. (2 ** 8 - 1); type Rec (Discriminant : T_Unsigned8) is record Fixed_Field : T_Unsigned8; case Discriminant is when 0 => Optional_Field : T_unsigned8; when others => null; end case; end record; type Derived is new Rec (0); for Derived use record Fixed_Field at 0 range 0 .. 7; Discriminant at 0 range 8 .. 15; Optional_Field at 0 range 16 .. 23; end record; procedure Proc1 (R : in out Rec); procedure Proc2 (R : out Rec); end Derived_Type5_Pkg;