Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/derived_type1.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } -- { dg-options "-gnatws -fdump-tree-original" } procedure Derived_Type1 is type Root is tagged null record; type Derived1 is new Root with record I1 : Integer; end record; type Derived2 is new Derived1 with record I2: Integer; end record; R : Root; D1 : Derived1; D2 : Derived2; begin R := Root(D1); R := Root(D2); D1 := Derived1(D2); end; -- { dg-final { scan-tree-dump-not "VIEW_CONVERT_EXPR<struct derived_type1__root>" "original" } } -- { dg-final { scan-tree-dump-not "VIEW_CONVERT_EXPR<struct derived_type1__derived1>" "original" } }