Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/derived_aggregate.adb @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do run } -- { dg-options "-O2" } procedure Derived_Aggregate is type Int is range 1 .. 10; type Str is array (Int range <>) of Character; type Parent (D1, D2 : Int; B : Boolean) is record S : Str (D1 .. D2); case B is when False => C1 : Integer; when True => C2 : Float; end case; end record; for Parent'Alignment use 8; type Derived (D : Int) is new Parent (D1 => D, D2 => D, B => False); function Ident (I : Integer) return integer is begin return I; end; Y : Derived := (D => 7, S => "b", C1 => Ident (32)); begin if Parent(Y).D1 /= 7 then raise Program_Error; end if; end;